|
Dim fso, f, ndir
ndir=server.MapPath(".") & "/" &
GetUploadFolder("FieldName","") & _
session("UserID")
Set fso = CreateObject("Scripting.FileSystemObject")
If not fso.FolderExists(ndir) Then _
set f=fso.CreateFolder(ndir)
pageObject.filesToSave(0).destFilename =
session("UserID") & "/" & _
values("FieldName")
values("FieldName") = session("UserID") & "/" & values("FieldName")
|