Dim percorso As String
Dim valore As String
Dim file As String
Dim aPostedFile As HttpPostedFile
aPostedFile = Request.Files.Item(0)
file = UCase(Mid(aPostedFile.FileName, InStrRev(aPostedFile.FileName, "\") + 1))
If convalida(file) = False Then Exit Sub
percorso = Progetto.Text & "\"
Try
MkDir("c:\Progetti\" & percorso & "")
Catch err As Exception
End Try
File1.PostedFile.SaveAs("c:\Progetti\" & percorso & "\" & file)
Errore.Text = "File Caricato Correttamente"


koning