[VB6] Lista di cartelle e file presenti sul PC

[andrew4]

Si ma come, dov'è il codice che cambia da uno all'altro?

[oregon]

Originariamente inviato da andrew4
Si ma come, dov'è il codice che cambia da uno all'altro?

Senti andrew, se vuoi programmare devi sbattere un po' la testa sul codice.
Altrimenti tutto si riduce a chiedere il programma gia' fatto sul forum e cosi' non va bene (almeno, personalmente non sono d'accordo).

Hai il codice che elenca nella listbox i file? Bene ... studialo e ristudialo e fai quelle piccole modifiche che ti servono. Se ci riesci (e penso che non ci sia motivo per non riuscirci) bene, altrimenti posta tutte le modifiche e i ragionamenti che hai fatto e cosa non funziona e allora se ne discute.

[andrew4]

Ho provato così:


Sub ElencaFolders(folderOr As String, ByRef fso)
Dim f, cartella, SubF
Static i As Long
Dim NewDir As String

Set f = fso.GetFolder(folderOr)
Set SubF = f.SubFolders
If (SubF.Count > 0) Then
For Each cartella In SubF
NewDir = fso.BuildPath(folderOr, cartella.Name)
Call ElencaFolders(NewDir, fso)
Next
End If
End Sub


Private Sub Command1_Click()

Set fso = CreateObject("Scripting.FileSystemObject")
Call ElencaFolders("C:\Programmi", fso)
Text1.Text = NewDir

End Sub

[oregon]

E quindi?