|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Listar arquivos com FSO
|
 |
|
|
|
Postada em 19/11/2003 por :: Renato ::
'Este é um exemplo de como utilizar FSO (File System Object)
'Essa Sub preenche uma listbox com todas pastas e sub pastas de um determinado diretório
'Exemplo de chamada da Sub: GetFoldersAndSubFolders "c\window\",List1
Public AllFolders() As String
Public Sub GetFoldersAndSubFolders(path As String, List1 As ListBox)
Dim fso As Object
Dim i, i2
Dim f As Object
Dim f2 As Object
Dim fc As Object
Dim fc2 As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(path)
Set fc = f.SubFolders
For Each i In fc
List1.AddItem i.Name
Set f2 = fso.GetFolder(path & "\" & i.Name)
Set fc2 = f2.SubFolders
For Each i2 In fc2
List1.AddItem " [" & i2.Name & "]"
Next
List1.AddItem " "
Next
End Sub
Renato
|
|
|
|
|
