Escalar directorios

Iniciado por yeikos, 4 Octubre 2005, 22:54 PM

0 Miembros y 1 Visitante están viendo este tema.

yeikos

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.

Slasher-K




A la reina de las profundidades que cuida los pasos de una sombra en la noche :*

yeikos

Gracias por contestar, he probado la función de este tema pero no se qué valor darle a Index, es integer, alguna idea?

DarkMouth

     Hola, checa este codigo a ver si te jala.  ;D




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


    Nur Gott kann mich bewerten

yeikos

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.

DarkMouth

   

    :-\ Si es cierto eso y si me ha dado algunos problemas pero para hacerlo con APIs no me lo se, comoquiera dejame investigar porque yo también lo necesito y si lo encuentro te lo paso ;D


    Nur Gott kann mich bewerten