upload & fso nuova cartella

[jartuf]

ciao a tutti,
sto cercando di creare uno script un po complesso e come al solito vado in bomba come w98...

Ho un sist. di news abbastanza collaudato, ora però ho necessita di inserirci dei file in upload e collegarli alle news. I file vanno in public, e vorrei creare una cartella xogni inserimento.
Lo script x news suona tipo:

			
	if UCase(Request.QueryString("tipo")) = "NEW" Then
		Dim Uploader, File
		Set Uploader = New FileUploader
		Dim pathfile
		....	
		Uploader.Upload()
		If Uploader.Files.Count = 0 Then
			' Nessun file inserito
			pathfile = "http://www.ciccio.net/immagini/icone/spacer.gif"
			pathfile2 = "http://www.ciccio.net/immagini/icone/spacer.gif"
			
		Else
			Uploader.Files("pathfile").SaveToDisk Server.MapPath("/public/foto")
			Uploader.Files("pathfile2").SaveToDisk Server.MapPath("/public/foto")
			pathfile = "/public/video/" & Uploader.Files("pathfile").FileName
			pathfile2 = "/public/video/" & Uploader.Files("pathfile2").FileName
		End if
		' Inseriamo tutto nell'archivio



		oRst.Open "SELECT * FROM tgflash WHERE ID=0", oConn, adOpenKeyset, adLockOptimistic
		oRst.AddNew
		oRst("titolo").Value = Uploader.Form("titolo")
		oRst("descrizione").Value = Uploader.Form("notizia") 
		oRst("imgLink").Value = pathfile
		oRst("imgLink2").Value = pathfile2
		oRst("Data").Value = year(Date()) & "/" & month(date()) & "/" & day(date())
		



		oRst.Update
		oRst.Close
		oConn.Close

Mentre per creare una cartella:

Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")

Dim FolderVirtualPath
FolderVirtualPath = "cartella/"

Dim FolderPhysicalPath
FolderPhysicalPath = Server.mapPath(FolderVirtualPath)

fso.CreateFolder(FolderPhysicalPath)

NN capisco se devo fare prima il passaggio della cartella a parte, e poi creare la news oppure insieme. Inoltre l'upload come lo gestisco?

Thanks

[Roby_72]

Se il file esiste devi crearti pima la cartella e poi inserirla nel path dell'upload.

Roby