st. cartelle di 1 directory

[Adam7]

Ciao a tutti!
Ancora 1 volta ho bisogno del vostro aiuto..
Vorrei visualizzare tutte le cartelle di una directory fin qui ci sono riuscito ma ora vorrei ad esempio stampare a video solo le cartelle che iniziano x “A” ma non so come farlo…. Qualche suggerimento?

Ecco come faccio x visualizzare tutte le cartelle della directory:

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath(".\"))
For Each objItem In cartella.SubFolders
response.write "Nome Cartella: "&objItem.Name
Next

grazie a tutti

[yoyo87]

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath(".\"))
For Each objItem In cartella.SubFolders
   If left(lcase(objItem.Name),1) = "a" then
      response.write objItem.Name &"
"
   End If
Next

Dovrebbe funzionare
CIAO

[Adam7]

Grazie!!!
Funziona alla perfezione…. Solo 1 cosa … ma se voglio estrarre solo le cartelle che iniziano con i numeri come posso fare? :master:
grazie ancora

[santino83]

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath(".\"))
For Each objItem In cartella.SubFolders
   If  asc(left(lcase(objItem.Name),1) )<10 then
      response.write objItem.Name &"
"
   End If
Next