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)
values(FieldName) = session("UserID") & "\" & values(FieldName)
|