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

主頁(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)民參考！
    • 推薦文章
    主站蜘蛛池模板： 武陟县| 金塔县| 灵川县| 南木林县| 恭城| 巴里| 新宾| 清涧县| 全南县| 田林县| 高要市| 罗源县| 红安县| 罗源县| 宝山区| 兰考县| 兰溪市| 基隆市| 千阳县| 荣成市| 雷山县| 铜梁县| 阳原县| 吉安市| 利川市| 长海县| 拉孜县| 湘阴县| 喀喇| 贺州市| 伊宁市| 呼伦贝尔市| 蒙山县| 金寨县| 灵石县| 泗阳县| 财经| 海兴县| 郓城县| 安庆市| 共和县|