<%
'創建文件夾(無此文件夾則新建)【凌陳亮(QQ:57404811)】
'參數:路徑(以/結束)
sub file_folde_add(folderurl)
dim f_folderurl : f_folderurl=folderurl
if len(f_folderurl)>0 then
f_folderurl=server.mappath("" & f_folderurl & "")
dim objfilesys,myexists
set objfilesys=server.createobject("scripting.filesystemobject")
myexists=objfilesys.folderexists("" & f_folderurl & "")
if myexists=false then objfilesys.createfolder(f_folderurl)
set objfilesys=nothing
end if
end sub
%>
調用案例:
在根目錄下創建 upload 文件夾: <% call file_folde_add("/upload/") %>