elenco files di una cartella

[feno]

esiste il modo in windows di trasferire su un file (ad esempio di testo) il percorso e il nome completo di tutti i files contenuti in una cartella/unità e in tutte le sue sottocartelle?
So che esiste un comando di DOS che lo fa (dir *.* >c:\directory.txt).
Sarebbe interessante se ci fosse un software che lo facesse in modo un po' più serio e completo.

Grazie

FEno

[piercing]

cioè che intendi per più completo? il comando dos che hai scritto fa esattamente quello che hai detto... no?

[feno]

non mi da il percorso completo, nè va a vedere nelle sottocartelle.

Vorrei un listato di tutti i files contenuti nella directory e in quelle sottostanti con il loro percorso.

[piercing]

uhmm... di esistente non so....

si potrebbe buttare giù un programmino per farlo...

[BianConiglio]

Esiste, esiste, l'ha fatto il mio amico (C)DMP, stasera cerco il link esatto e lo posto

[BianConiglio]

http://digilander.iol.it/cdmp/software/ ... /index.htm

Dagli un occhio....spero ti basti sennò....bè, bisogna scrivenre un altro con + funzionalità.

[feno]

Grazie,
nel frattempo ho risolto facendomi una macro in excel che fa la stessa cosa...
Riporta su un foglio xcel semplicemente l'elenco di tutti i files contenuti i cartelle e sottocartelle a partire dal percorso interessato
vi riporto di seguito il codice se può interessarvi
nella cella B1 del foglio 1 bisogna mettere il percorso da analizzare.

Sub listato()
Worksheets("Foglio1").Activate
If Cells(1, 2).Value <> "" Then
Worksheets("Foglio1").Select
percorso = Cells(1, 2).Value
With Application.FileSearch
.LookIn = percorso
.SearchSubFolders = True
.Filename = "*"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
'MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
Sheets.Add.Activate
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = .FoundFiles(i)
Next i
Columns("A:A").Select
Columns("A:A").EntireColumn.AutoFit
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Else
MsgBox "Non ho trovato files"
End If

End With
Else
Worksheets(1).Select
MsgBox "Inserisci prima il percorso da esaminare"
End If
End Sub



Ciao

FEno

[JClark]

sorry non text

[JClark]

feno
Grazie, nel frattempo ho risolto facendomi una macro in excel che fa la stessa cosa...

Era un po' che non vedevo qualcuno capace di programmare come l'help on line di VBA per Excel

[feno]

adattati e raggiungi lo scopo...
Non importa come...
quello che conta è sempre e solo il risultato...


Bye

[piercing]

Ho trovato un programmino che lo fa... se ancora ti interessa....

Directory Lister


Sta QUA

[luna11]

da DOS:
dir /b/s>lista.txt