ASP ใช้ฟังก์ชั่นที่ตรวจสอบว่าไดเรกทอรีมีอยู่หรือไม่และสร้างไดเร็กทอรี

-

'-检查目录是否存在

-

FunctionCheckDir (ByValFolderPath)

dimfso

setfso = server.createObject ("Scripting.FilesYstemObject")

iffso.folderexists (Server.mappath (FolderPath)) จากนั้น

'存在

checkdir = true

อื่น

'不存在

checkdir = false

endif

setfso = ไม่มีอะไร

endfunction

-

'-建立目录

-

functionmakenewsdir (byvalfoldername)

dimfso

setfso = server.createObject ("Scripting.FilesYstemObject")

FSO.CreateFolder (Server.Mappath (FolderName)))

iffso.folderexists (server.mappath (folderName)) จากนั้น

makenewsdir = true

อื่น

makenewsdir = false

endif

setfso = ไม่มีอะไร

endfunction