Help Directory E Driver

[webporta.it]

Salve a tutti
Mi servirebbero due codici..
1) Dato un disco >>> vorrei l'elenco di tutte le sue cartelle
2) Data una cartella >>> vorrei l'elenco di tutti i sui file

Premesso che non voglio usare dirlistbox, dirfilebox

Vi ringrazio

P.S. i codici trovati in questo forum nn mi funzionano..

[netgost]

Se non mi sbaglio nella OCX Microsoft Common dialog control c'e un
controllo che ti visualizza le cartelle ad albero.

[webporta.it]

no nn mi servono oggetti.devo trovare un modo(da codice) di trovarmi l'elenco delle cartelle dato un disco e l'elenco dei file data una cartella.
Grazie
Vi prego è urgente

[marco1970]

Prova con questo codice di esempio ed adattalo alle tue sigenze.
Fai ATTENZIONE agli attributi del comando DIR potresti non vedere i file nascosti ecc...

Marco

Public Sub Elenca_Cartelle()
    Percorso = "c:\"   ' Quì indichi il percorso dove vuoi avere il risultato delle cartelle.
    Nome = Dir(Percorso, vbDirectory)   ' Nome trova la prima cartella.
    Do While Nome <> ""   ' Avvio il ciclo.
       If Nome <> "." And Nome <> ".." Then
          If (GetAttr(Percorso & Nome) And vbDirectory) = vbDirectory Then ' controllo che sia una directory
             Debug.Print Nome   ' Stampo nel debug il nome della cartella
          End If
       End If
       Nome = Dir   ' Avanzo nel ciclo DO
    Loop
    MsgBox "Fine ricerca cartelle. Il risultato è stampato nella finestra debug"
End Sub
Public Sub Elenca_File()
    Percorso = "c:\*.*"   ' Quì indichi il percorso dove vuoi avere il risultato dei file.
    Nome = Dir(Percorso)   ' Nome trova il primo file.
    Do While Nome <> ""   ' Avvio il ciclo.
        Debug.Print Nome   ' Stampo nel debug il nome del file.
        Nome = Dir   ' Avanzo nel ciclo DO
    Loop
    MsgBox "Fine ricerca file. Il risultato è stampato nella finestra debug"
End Sub

Private Sub Command1_Click()
Call Elenca_Cartelle
Call Elenca_File
End Sub

[webporta.it]

GRANDISSIMOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO :gren: