校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

主頁(yè) > 知識(shí)庫(kù) > 使用函數(shù)自動(dòng)生成n層目錄

使用函數(shù)自動(dòng)生成n層目錄
熱門(mén)標(biāo)簽：武夷山旅游地圖標(biāo)注 萊西電子地圖標(biāo)注 修改地圖標(biāo)注 鳳臺(tái)百度地圖標(biāo)注店 縣域地圖標(biāo)注打印店 外呼系統(tǒng)API接口 個(gè)人可以辦理400電話么 金昌電話機(jī)器人價(jià)格 怎么在地圖標(biāo)注自己
先檢查是否已經(jīng)存在該目錄了，如果存在，則不做任何處理，如果不存在則創(chuàng)建。
希望對(duì)各位快速開(kāi)發(fā)有用。
CheckFolder.asp

%
'***********************************************************************************************************
'作 者: 趙敏 flash90@sohu.com
'頁(yè)面名稱: CreateFolder.asp
'頁(yè)面功能: 生成n層目錄的文件夾
'使用方法: 調(diào)用CheckFolder()函數(shù),例如: CheckFolder(path)
'傳入?yún)?shù): 即將上傳的文件的相對(duì)路徑,例如: path = "./upload/bbb/ccc/ddd"
'缺 點(diǎn)： 必須在參數(shù)path里面帶上upload文件夾
'***********************************************************************************************************
Sub CheckFolder(path)
SplitPath(path)
End Sub
Sub SplitPath(path)
dim Road '物理路徑
Road = Server.Mappath("./upload")
dim CurRoad '當(dāng)前路徑
Road = Split(Road,"\&;,-1,1)
CurRoad = Road(UBound(Road))
dim folder,FSO
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
folder = Split(path,"\&;,-1,1)
for i = 0 to UBound(folder) step 1
if folder(i) = CurRoad then
j = i
exit for
end if
Next
i = j + 1
if i = UBound(folder) then
dim myroad
myroad = Server.MapPath(".\upload")
for i = j + 1 to UBound(folder) step 1
CreateFolder myroad,folder(i)
myroad = myroad "/" folder(i)
Next
end if
End Sub
Sub CreateFolder(mypath,folderName)
Dim fso,f
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if Not(fso.FolderExists(mypath+"/"+folderName)) then
set f = fso.CreateFolder(mypath+"/"+folderName)
end if
End Sub
Set fso = nothing
%>

標(biāo)簽：上海 涼山 邢臺(tái) 清遠(yuǎn) 赤峰 南京 楚雄 通遼

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《使用函數(shù)自動(dòng)生成n層目錄》，本文關(guān)鍵詞  使用,函數(shù),自動(dòng)生成,層,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《使用函數(shù)自動(dòng)生成n層目錄》相關(guān)的同類(lèi)信息！
  • 本頁(yè)收集關(guān)于使用函數(shù)自動(dòng)生成n層目錄的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    主站蜘蛛池模板： 大港区| 阳高县| 沈丘县| 清徐县| 静海县| 大足县| 太仓市| 诸暨市| 闽侯县| 称多县| 岐山县| 即墨市| 乌鲁木齐县| 赣州市| 新安县| 武定县| 大田县| 城步| 万年县| 双峰县| 河西区| 内江市| 尤溪县| 宜黄县| 保德县| 穆棱市| 闽侯县| 沙雅县| 永顺县| 安化县| 台安县| 溆浦县| 西平县| 河北区| 蛟河市| 洞口县| 嵊泗县| 德江县| 阿拉善右旗| 洪泽县| 根河市|