[ASP] File system

[Sypher]

tiè l'ho scritto adesso...vedi se ti piace una cosa del genere:

<%
  
Set fso = CreateObject("Scripting.FileSystemObject")
Dim cartella
Dim sottocartella
 
On Error Resume Next

Set cartella = fso.GetFolder("percorsocartella") 
    
For Each sottocartella In cartella.SubFolders
     GetFiles cartella
     GetFiles sottocartella
     getSubFolders sottocartella
Next
 

Private Sub getSubFolders(cartella)
        For Each sottocartella In cartella.SubFolders
            GetFiles sottocartella
            getSubFolders sottocartella
        Next
End Sub

Private Sub GetFiles(cartella)
	Response.Write(cartella.Name + "
")
    For Each doc In cartella.Files
        Response.Write("-->" & doc.Name & "
")
    Next
End Sub