SubFolders

[luciano]

Cuando te referis a controlar, a que te referis ?? si te referis a tambien obtener los paths de los ficheros, por ejemplo poder visualizarlos en un control List, podes hacerlo asi,

..modifica en el bucle esto: ..salu2

Código:

        While Cont
            FileName = StripNulls(WFD.cFileName)
            If (FileName <> ".") And (FileName <> "..") Then
                Contar = Contar + (WFD.nFileSizeHigh * MAXDWORD) + WFD.nFileSizeLow
                FileCount = FileCount + 1
                
                List1.AddItem path & FileName
                
            End If
            Cont = FindNextFile(hSearch, WFD)
        Wend

-------