Sottocartelle upload Baol

[ubbicom]

Ciao.

Che cosa sbaglio in questo codice di upload Baol?

If Request("Upload") = "1" then

Function IsSet(Value)
 IsSet = Not IsNull(Value) And Value <> ""
End Function

Sub Write(Value)
 Response.Write Value
End Sub

Set oUpload = new cUpload  
With oUpload
oUpload.Load
      
strCartellaUno = Split(oUpload.Form("C1"), "-")
strCartellaDue= Split(oUpload.Form("C2"), "-")  
strCartellaTre = Split(oUpload.Form("C3"), "-") 
    
    strFolder = "Folder/" & strCartellaUno1(1) & "/" & strCartellaDue(1) & "/" & strCartellaTre(1) & ""  

If IsSet(strFolder) Then

 oUpload.SetPath strFolder 
 oUpload.AutoRename = true
 oUpload.Overwrite = false
 
 While Not .Eof    
    
    oUpload.SaveAs oUpload.GetFileName    

    file_uploaded = replace(oUpload.files("name"), "'", "''") & "." & oUpload.files("ext")   

 oUpload.MoveNext
Wend

Else
 Write "Percorso non valido"
End if

End With

Set oUpload = Nothing

Va in errore sulla riga rossa... error 80020009

[Roby_72]

Fatti stampare strFolder

Roby

[ubbicom]

Ecco:

Folder/AQ/PE/BO

[Roby_72]

strFolder = "/Folder/" & strCartellaUno1(1) & "/" & strCartellaDue(1) & "/" & strCartellaTre(1) & "/"

Roby

[ubbicom]

/Folder/AQ/PE/BO/

error '80020009'

[Roby_72]

Ma le cartelle esistono?

Roby

[ubbicom]

Originariamente inviato da Roby_72
Ma le cartelle esistono?

Roby

No, ma non dovrebbe crearle lo script ?

[Domenix]

Originariamente inviato da ubbicom
No, ma non dovrebbe crearle lo script ?

No.

[Roby_72]

Originariamente inviato da ubbicom
No, ma non dovrebbe crearle lo script ?

beato te

Roby

[ubbicom]

Scusate ma se strCartellaUno1(1) NON ESISTE , perchè la crea sotto Folder e non crea le altre sottocartelle?