'文件夹
FolderPath="\udd1020"
'创建文件夹
CreateFolder(FolderPath)
Function CreateFolder(FolderPath)
dim fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
If not fso.FolderExists(Server.MapPath(FolderPath)) then
Set f = fso.CreateFolder(Server.MapPath(FolderPath))
End if
Set fso = nothing
End Function
代码如上,
权限已经能开的全开了。
但是还是创建不了,提示权限不够,操作系统2003,磁盘NTFS
往高手不吝剔教~~~