都不完善，我想樓主的意思是建立無極深度目錄吧，給個我寫的：
'建立新資料夾(允許無級建立)1:35 2005-1-31
public function createfolder(folderpath)
dim sobjfso
dim arrfolder
dim i
set sobjfso = server.createobject("scripting.filesystemobject")
folderpath = replace(folderpath,"\","/")
arrfolder = split(folderpath,"/")
on error resume next
for i = 0 to ubound(arrfolder)
if i > 0 then arrfolder(i) = arrfolder(i-1) & "/" & arrfolder(i)
if not sobjfso.folderexists(arrfolder(i)) then
sobjfso.createfolder(arrfolder(i))
end if
next
createfolder = true
if err.number <> 0 then
createfolder = false
err.clear
end if
end function
建立資料夾
刪除資料夾
複製檔案
dim fso
set fso=server.createobject("scripting.filesystemobject")
檢測檔案 資料夾是否存在
opendir access pipe dev,f ok stat 補充幾個常用的檔案 資料夾夾夾操作的函式 chdir fchdir getcwd 獲得當前路徑 mkdir 新建資料夾 readdir opendir closedir rmdir 刪除空資料夾 最近除錯了乙個程式，我才知道我把op...
資料夾是否存在，建立資料夾
1.access函式判斷資料夾或者檔案是否存在 函式原型 int access const char filename,int mode 所屬標頭檔案 io.h filename 可以填寫資料夾路徑或者檔案路徑 mode 0 f ok 只判斷是否存在 2 r ok 判斷寫入許可權 4 w ok 判斷...
判斷資料夾是否存在
access函式判斷資料夾或者檔案是否存在 函式原型 int access const char filename,int mode 所屬標頭檔案 io.h filename 可以填寫資料夾路徑或者檔案路徑 mode 0 f ok 只判斷是否存在 2 r ok 判斷寫入許可權 4 w ok 判斷讀取...