在ASP中自動建立多級資料夾的函式 使用FSO

2021-04-22 17:59:15 字數 1443 閱讀 1087

噹噹全新正版圖書,9周年店慶,**銷售,全場免運費!

fso中有個方法是createfolder,但是這個方法只能在其上一級資料夾存在的情況下建立新的資料夾,所以我就寫了乙個自動建立多級資料夾的函式,在生成靜態頁面等方面使用非常方便.

函式:

' --------------------------------

' 自動建立指定的多級資料夾

' strpath為絕對路徑

' 引用請保留版權

' by im286_anjer

' 2005-4-3

function autocreatefolder(strpath) ' as boolean

on error resume next

dim astrpath, ulngpath, i, strtmppath

dim objfso

if instr(strpath, "/") <=0 or instr(strpath, ":") <= 0 then

autocreatefolder = false

exit function

end if

set objfso = server.createobject("scripting.filesystemobject")

if objfso.folderexists(strpath) then

autocreatefolder = true

exit function

end if

astrpath = split(strpath, "/")

ulngpath = ubound(astrpath)

strtmppath = ""

for i = 0 to ulngpath

strtmppath = strtmppath & astrpath(i) & "/"

if not objfso.folderexists(strtmppath) then

' 建立

objfso.createfolder(strtmppath)

end if

next

set objfso = nothing

if err = 0 then

autocreatefolder = true

else

autocreatefolder = false

end if

end function

呼叫方法:

mypath = "c:/a/b/c/"

if autocreatefolder(mypath) then

response.write "建立資料夾成功"

else

response.write "建立資料夾失敗"

end if

MVC 在Views的多級資料夾

在mvc裡,你的控制器對應的檢視一般是在views目錄,而如果希望在views裡再分幾個模組資料夾預設是不允許的,我們需要做一下設定,就可以實現views下的多次資料夾層次了,例如,我們有產品模組,使用者模組,訂單模組,我們就可以把它的資料夾結構設計成如下 使用者模組 views usermodel...

asp建立資料夾的函式

建立資料夾的函式2 sub createfolder strfolder,ifok 首選判斷要建立的資料夾是否已經存在 dim strtestfolder,objfso if ifok then strfolder strfolder end if set objfso createobject s...

asp讀取資料夾中的檔案

for each item in mydir.files 依次讀取web目錄下的每個檔案物件 dname item.path 讀取每個檔名的完整路徑和檔名 htmfile replace dname,mydir 將路完整檔案和名徑中的目錄名替換掉,保留下來的就是純檔名 response.write ...