Script o programma per elencare l'albero delle sottocartelle di una cartella

[natasha]

Buongiorno a tutti,
avrei bisogno di uno script (preferibilmente VBS, ma anche ASP o ASP.NET) o di un programma eseguibile per elencare l'albero delle sottocartelle di una cartella.
Potete aiutarmi?
Kisses,

Nat

[cisky]

Questo è un'esempio di .vbs che crea memorizza la struttura di una directory di partenza di un file txt (il nome è impostato nella costante 'OUTPUT_FILE_NAME').
In questo esempio il file riepilogativo viene creato nella cartella principale da cui eseguire la scansione delle sotto-directory.
Copia tutto il codice in un file .VBS


' Nome del file che contiene la struttura delle sotto-cartelle
Const OUTPUT_FILE_NAME = "SubFolderList.txt"

Dim oFso ' Scripting.FileSystemObject
Dim oTsResult ' Scripting.TextStream
Dim oMainFolder ' Scripting.Folder
Dim sStartDir
Dim bProcess
Dim sResultText

Set oFso = CreateObject("Scripting.FileSystemObject")

' Chiedo all'utente la directory di partenza
sStartDir = Trim(InputBox("Inserire la directory di partenza", "Elenco sotto directory"))

' Verifico se posso procedere
bProcess = False
If sStartDir = "" Then
MsgBox "Inserire una directory di partenza"
ElseIf Not oFso.FolderExists(sStartDir) Then
MsgBox "La directory indicata non esiste"
Else
bProcess = True
End If

If Right(sStartDir, 1) <> "\" Then sStartDir = sStartDir & "\"

' Creo il file in cui scrivere l'elenco delle sub-directory
Set oTsResult = oFso.CreateTextFile(sStartDir & OUTPUT_FILE_NAME, True)

' Ottengo la directory di partenza
Set oMainFolder = oFso.GetFolder(sStartDir)

oTsResult.WriteLine "Albero sotto cartelle:"
oTsResult.WriteLine ""

' Riempio il file con l'elenco delle informazioni
RecursiveListFolders oMainFolder, oTsResult, 1

' Chiudo il file
oTsResult.Close


Private Sub RecursiveListFolders(ByRef oCurrentFolder, oTsResult,iLevel)

Dim sLineText
Dim oFolder

' Questo è il testo da scrivere nel file
' (Tanti spazi in base al livello di nidificazione delle directory...)
'
sLineText = String(iLevel, " ") & "-> " & oCurrentFolder.Name
oTsResult.WriteLine sLineText

' Vado in ricorsione per tutte le sub-directory...
For Each oFolder In oCurrentFolder.SubFolders
RecursiveListFolders oFolder, oTsResult, iLevel + 1
Next
End Sub


Ciao

[lovaz]

Forse ricordo male, ma non esisteva un comando tree in dos/win?

[cisky]

Buona idea!
...è vero, puoi usare il comando TREE del dos (funziona anche con il Dos di Windows).