Metodo FSO e sottocartelle

[[trodat]]

Ciao a tutti; ho questo codice per creare una cartella sul server con il metodo FSO:

Dim fso
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
  Dim FolderVirtualPath
   FolderVirtualPath = NomeCartella
  Dim FolderPhysicalPath
 FolderPhysicalPath = Server.mapPath(FolderVirtualPath)
if fso.FolderExists(FolderPhysicalPath) then
response.write "cartella esistente"
else
   fso.CreateFolder(FolderPhysicalPath)
end if

E' possibile con lo stesso metodo creare delle sottocartelle all'interno della cartella principale???

Ad esempio creo la cartella "Pippo", all'interno di "Pippo" devo creare le sottocartelle "PippoUna", "PippoDue", etc...

E' possibile? grazie

[Roby_72]

FolderVirtualPath = NomeCartella &"/pippo1"

Roby

[[trodat]]

Grazie, ma non crea la sottocartella e non restituisce errori??? :master:

[[trodat]]

nessuna idea?

[Baol74]

Prova così

Function CreateFolder(Name)
Dim Fso,Path
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
 Path  = Server.mapPath(Name)
 if Not fso.FolderExists(Name) then fso.CreateFolder(Path)
 Set fso = Nothing
End Function

CreateFolder NomeCartella

Questa ti restiuirà errore se non riesce a crearla.

[[trodat]]

Error Type:
Server.MapPath(), ASP 0171 (0x80004005)
The Path parameter must be specified for the MapPath method.

???

[Baol74]

Scusa, ma non l'hai valorizzato NomeCartella?

[[trodat]]

... non ho capito...

[Baol74]

rifacciamo

Function CreateFolder(Name)
Dim Fso,Path
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
 Path  = Server.mapPath(Name)
 if Not fso.FolderExists(Name) then fso.CreateFolder(Path)
 Set fso = Nothing
End Function
NomeCartella="Prova"
CreateFolder NomeCartella

[[trodat]]

<%
Function CreateFolder(Name)
Dim Fso, Path
 Set fso = Server.CreateObject("Scripting.FileSystemObject")
 Path = Server.mapPath(Name)
 if Not fso.FolderExists(Name) then fso.CreateFolder(Path)
 Set fso = Nothing
End Function
NomeCartella = "Pippo"
CreateFolder NomeCartella
%>

La cartella Pippo viene creata... sono le sottocartelle che non riesco a creare...