|
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")
|