on error resume next
'刪除字串最右邊的字元chs
function myrtrim(src, chs) '刪除字串最右邊的字元chs(可多個)
dim pos, sleft
src = trim(src)
pos = instrrev(src, chs) '查詢最後乙個字元chs
if(pos > 0 and len(mid(src, pos+1)) = 0) then
sleft = left(src, pos - 1) '去除最後乙個chs
myrtrim = myrtrim(sleft, chs) '去除尾部的chs
else
myrtrim = src
end if
end function
'建立目錄，如果父目錄不存在，則建立：實現一次性建立所有父級目錄
sub mycreatefolder(spath)
dim fs
set fs = createobject("scripting.filesystemobject")
if(len(spath) > 0 and fs.folderexists(spath) = false) then
dim pos, sleft
pos = instrrev(spath, "\")
if(pos <> 0) then
sleft = left(spath, pos - 1)
mycreatefolder sleft '先建立父目錄
end if
fs.createfolder spath '再建立本目錄
end if
set fs = nothing
end sub
dim path
path = "e:\program\vbscript\a1\a2\a3"
path = myrtrim(path, "\")
mycreatefolder path
建立乙個可迴圈SEO系統
相信有不少從事 seo工作的站長們，在近段時間會出現失去信心的情況，為什麼呢，因為k掉了很程式設計客棧多人的 導致這些人不知所措，失去了方程式設計客棧向 其實不管出現什麼情況，一直按照可迴圈seo的系統去用心做 那出現的k的機率會大大降低。那如何建立乙個可迴圈seo系統呢？一 資訊收集 在進入這個可...
c 迴圈建立多級目錄
include unitfiles.h ifdef win32 include include elif linux include include endif ifdef win32 define access access define mkdir a mkdir a elif linux de...
php迴圈檢測目錄是否存在並建立 迴圈建立目錄
迴圈建立目錄方法 這個會生成image.gif目錄 複製 如下 filepath test upload 2010 image.gif mk dir filepath 迴圈建立目錄 function mk dir dir,mode 0755 第二種方法 複製 如下 filepath test upl...