Autor
|
Tema: Escalar directorios (Leído 3,321 veces)
|
yeikos
Desconectado
Mensajes: 1.424
|
Estoy intentando realizar una búsqueda de archivos de todas las unidades disponibles escalando a su vez todos los directorios, pero solo consigo realizar un listado de las unidades, luego no se como hacer para id metiendome directorio a directorio, a ver si me pueden ayudar.
|
|
|
En línea
|
|
|
|
Slasher-K
Desconectado
Mensajes: 1.477
|
Mira el siguiente post: Recorrer archivosSaludos.
|
|
|
En línea
|
A la reina de las profundidades que cuida los pasos de una sombra en la noche :*
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Gracias por contestar, he probado la función de este tema pero no se qué valor darle a Index, es integer, alguna idea?
|
|
|
En línea
|
|
|
|
DarkMouth
Desconectado
Mensajes: 14
|
Hola, checa este codigo a ver si te jala. Option Explicit Dim Archivos As String Dim FSO As Variant Dim drv As Variant Dim Drvs As Variant Dim Fldr As Variant Dim C As Integer
Private Sub Form_Load()
Set FSO = CreateObject("Scripting.FileSystemObject") Set Drvs = FSO.Drives C = 0 For Each drv In Drvs If (drv.DriveType = 2) Or (drv.DriveType = 3) Then Set Fldr = FSO.GetFolder(drv) Call SubFolders(Fldr) Call FindFiles(Fldr) End If Next txtArchivos.Text = Archivos
End Sub
Sub FindFiles(ByVal Folder As Variant)
Dim fls As Variant Dim fl As Variant Set fls = Folder.Files For Each fl In fls C = C + 1 Archivos = Archivos & CStr(C) & ". " & CStr(fl.Name) & vbCrLf 'SI QUIERES MANDARLO A UN ARCHIVO DE TEXTO 'Set Ar = Fso.createTextFile("C:\Archivos.txt") 'Ar.write (Archivos) 'Ar.Close Next End Sub
Sub SubFolders(Folder As Variant)
Dim Fldrs As Variant Dim Fld As Variant
Set Fldrs = Folder.SubFolders For Each Fld In Fldrs Call FindFiles(Fld) Call SubFolders(Fld) Next End Sub
|
|
|
En línea
|
Nur Gott kann mich bewerten
|
|
|
yeikos
Desconectado
Mensajes: 1.424
|
Por lo que tengo entendido al usar el FSO y demás ciertos antivirus lo detecta como posible archivo vírico, es cierto eso? es por adaptarlo con las APIs.
|
|
|
En línea
|
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Identificar directorios
Scripting
|
Tonker
|
3
|
2,722
|
23 Mayo 2012, 12:34 pm
por Elemental Code
|
|
|
MOVIDO: Identificar directorios
Scripting
|
Eleкtro
|
0
|
1,580
|
23 Mayo 2012, 07:45 am
por Eleкtro
|
|
|
Directorios no conocidos
Windows
|
Puntoinfinito
|
7
|
3,976
|
13 Agosto 2012, 12:55 pm
por Randomize
|
|
|
calcular producto escalar
« 1 2 »
Programación C/C++
|
indict
|
10
|
12,150
|
12 Diciembre 2012, 14:22 pm
por rir3760
|
|
|
Directorios en PS3
Dudas Generales
|
Uves
|
1
|
2,464
|
26 Septiembre 2016, 03:58 am
por sempus
|
|