[VB6]: Lista file presenti in un percorso con sottocartelle

[Adrix]

Ciao, sto usando una listbox per visionare i file presenti in un percorso, il problema è che non posso vedere i files contenuti nelle sottocartelle...come risolvere?

grazie anticipatamente

[wallrider]

una bella funzione ricorsiva, che prende in pasto il percorso completo di una cartella, aggiunge i files contenuti alla lista e si autochiama sulle sottocartelle

[Adrix]

scusa la mia ignoranza ma non ci ho capito niente

[LMondi]

Per vedere i files contenuti in cartelle e sottocartelle puoi usare i controlli:
DriveListBox, DirListBox e FileListBox. Poni i predetti controlli su una form ed esegui il seguente esempio:

Private Sub Drive1_Change()
   ' Quando si cambia unità, imposta il percorso della directory:
   Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
   ' Quando si cambiadirectory, imposta il percorso del file:
   File1.Path = Dir1.Path
End Sub

[Adrix]

ciao, conosco questi controlli ma il mio intento è quello di inserire con un solo commandbottom tutti files presenti in una cartella anche quelli delle sottocartelle

[Adrix]

ragazzi assolutamente nn ci riesco il mio progr si blocca totalmente aiuto!!
Qllo che mi serve e avere in una listbox tutti i files presenti in una cartella scelta nella dirlistbox (anche i file presenti nelle sottocartelle)

Dim I As Integer
Dim L As Integer
Dim M As Integer
Dim N As Integer

I = -1

Do
Dir1.Path = App.Path
N = N + 1
I = -1

Do
I = I + 1

Dir1.Path = Dir1.List(I)


If Dir1.ListCount > 0 Then

For L = 0 To Dir1.ListCount
Dir1.Path = Dir1.List(L)
File1.Path = Dir1.Path

For M = 0 To File1.ListCount
List1.AddItem File1.List(M)
Next M
Next L
End If

Loop Until I = Dir1.ListCount
Loop Until N = Dir1.ListCount

così nn funzia spero qualcuno mi aiuti

[LMondi]

Ora ho capito il tuo problema.
Per conseguire l'obiettivo devi usare la libreria Scripting Runtime, nel seguente modo visualizzi tutti i files,
compresi quelli nascosti, contenuti nella cartella principale e nelle
relative sottocartelle:

Dim sT As String
Private Sub Command1_Click()

' Ricorda di attivare il riferimento a MS Scripting Runtime:
    Dim FSO As New FileSystemObject
    Dim f As Folder
    Dim intRis As Integer

' Nome e percorso della cartella d'origine:
    Set f = FSO.GetFolder("D:\Prova")
    
    Call ScanDirectory(f)

    intRis = MsgBox("Files contenuti nella Cartella Principale e nelle SubCartelle e relativi byte:" & Chr(13) _
    & vbCrLf & sT & Chr(13) _
    & "L'operazione si é conclusa con successo !", vbOKOnly, "Elenco dei Files")


    Set FSO = Nothing
    Set f = Nothing

End Sub

Public Sub ScanDirectory(fol As Folder)
    Dim foll As Folder
    Dim fil As File
    
    For Each fil In fol.Files
        sT = sT & "   " & fil.Name
        sT = sT & "   " & Format(fil.Size, "#,##0")
    Next
    
    For Each foll In fol.SubFolders
        Call ScanDirectory(foll)
    Next
       
End Sub

[Adrix]

ciao, quando lo avvio mi dà errore "Tipo definito dall'utente non definito" su questa riga

Public Sub ScanDirectory(fol As Folder)

grazie 1000 sei molto gentile LMondi

[Adrix]

scusami non avevo caricato la libreria

[Adrix]

mi scuso per la terza risposta consecutiva, il codice funziona perfettamente ma io vorrei che i files vengano visualizzati in una listbox completi di percorso, ma non riesco a farlo...