sfogliare cartelle e sottocartelle

[soundforgers]

salve a tutti.
allora ho il seguente problema:
dovrei realizzare una pagina asp che mi sfogli delle cartelle(e le relative sottocartelle) partendo da una cartella predefinita che imposto io.
il mio problema è realizzare un ciclo che ogni volta che incontra una cartella entri in tutte le eventuali sottocartelle, e se non ce ne sono controlli se ci sono dei file, creando un xml dove apparirà l'elenco di tutti i file presenti.
la parte relativa alla creazione dell'xml la ho gia fatta.
ora mi manca solo il ciclo per sfogliare le cartelle.
qualcuno sa aiutarmi?
vi ringrazio in anticipo.

[Mems]

Si usa una funzione ricorsiva che dato un path elenca la struttura sottostante di file e cartelle e per ogni cartella trovata ripassa a se stessa (alla funzione) il nuovo path.

<%
function buildTree(theFSO, thePath)
  set theFolder = theFSO.getFolder(thePath)
    set theSubfolders = theFolder.subfolders
      for each subfolder in theSubfolders
        response.write "<ul>" & vbCrLf
        response.write "[*]" & subfolder.name & vbCrLf
          call buildTree(subfolder)
        response.write "" & vbCrLf
        set theFiles = theSubfolders.files
          for each file in theFiles
            response.write "[*]" & file.name & "" & vbCrLf
          next
        set theFiles = nothing
        response.write "[/list]" & vbCrLf
      next
    set theSubfolders = nothing
  set theFolder = nothing
end function

path = "/"
path = server.mapPath(path)

set fso = server.createObject("Scripting.FileSystemObject")
response.write "<ul>" & vbCrLf
response.write "[*]Root" & vbCrLf
call buildTree(path)
response.write "" & vbCrLf
response.write "[/list]" vbCrLf
set fso = nothing
%>

L'ho scritta mo senza testarla, ma la logica dovrebbe essere questa.

[soundforgers]

ti ringrazio mems... come al solito i tuoi consigli sono sempre preziosissimi.
c'è solo un problema... dopo che mi ha scritto
- Root
mi da questo errore:

Errore di run-time di Microsoft VBScript error '800a01c2'

Numero errato di argomenti o assegnazione di proprietà non valida: 'buildTree'

/aggiornagallery.asp, line 54

e la linea 54 è la seguente:

call buildTree(path)

quale potrebbe essere il problema?
scusa se approfitto della tua pazienza... tel'ho detto prima o poi ti farò una statua!!

[Mems]

Hai ragione.

<%
function buildTree(theFSO, thePath)
  set theFolder = theFSO.getFolder(thePath)
    set theSubfolders = theFolder.subfolders
      for each subfolder in theSubfolders
        response.write "<ul>" & vbCrLf
        response.write "[*]" & subfolder.name & vbCrLf
          call buildTree(theFSO, subfolder)
        response.write "" & vbCrLf
        set theFiles = theSubfolders.files
          for each file in theFiles
            response.write "[*]" & file.name & "" & vbCrLf
          next
        set theFiles = nothing
        response.write "[/list]" & vbCrLf
      next
    set theSubfolders = nothing
  set theFolder = nothing
end function

path = "/"
path = server.mapPath(path)

set fso = server.createObject("Scripting.FileSystemObject")
response.write "<ul>" & vbCrLf
response.write "[*]Root" & vbCrLf
call buildTree(fso, path)
response.write "" & vbCrLf
response.write "[/list]" vbCrLf
set fso = nothing
%>

[soundforgers]

grazie... ora siamo migliorati... mi legge la prima cartella e mi dice:
Errore di run-time di Microsoft VBScript error '800a01b6'

Proprietà o metodo non supportati dall'oggetto: 'file'

/aggiornagallery.asp, line 37
e la linea 37 è

set theFiles = theSubfolders.files

[Mems]

EDIT (messaggio doppio).

[Mems]

<%
function buildTree(theFSO, thePath)
  set theFolder = theFSO.getFolder(thePath)
    set theSubfolders = theFolder.subfolders
      for each subfolder in theSubfolders
        response.write "<ul>" & vbCrLf
        response.write "[*]" & subfolder.name & vbCrLf
          call buildTree(theFSO, subfolder)
        response.write "" & vbCrLf   
        response.write "[/list]" & vbCrLf             
      next
    set theSubfolders = nothing
    set theFiles = theFolder.files
      response.write "<ul>" & vbCrLf
      for each file in theFiles
        response.write "[*]" & file.name & "" & vbCrLf
      next         
     response.write "[/list]" & vbCrLf 
    set theFiles = nothing    
  set theFolder = nothing
end function

path = "/"
path = server.mapPath(path)

set fso = server.createObject("Scripting.FileSystemObject")
response.write "<ul>" & vbCrLf
response.write "[*]Root" & vbCrLf
call buildTree(fso, path)
response.write "" & vbCrLf
response.write "[/list]" vbCrLf
set fso = nothing
%>

[soundforgers]

mems se nn ci fossi bisognerebbe inventarti!!!!
sei un grosso!!!!!
grazie 1000000000

[Mems]

Originariamente inviato da soundforgers
mems se nn ci fossi bisognerebbe inventarti!!!!
sei un grosso!!!!!
grazie 1000000000

[michele.santoro]

Tanto per rompere le scatole :
[/code]
response.write "[/list]" & vbCrLf
set fso = nothing
[/code]