濮阳杆衣贸易有限公司

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

使用函數(shù)自動(dòng)生成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)的同類信息！
  • 本頁(yè)收集關(guān)于使用函數(shù)自動(dòng)生成n層目錄的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    苗栗县| 革吉县| 全南县| 泽州县| 印江| 广南县| 南江县| 武宣县| 全南县| 汪清县| 潞西市| 崇明县| 亚东县| 玉环县| 甘孜县| 西盟| 六安市| 眉山市| 宁陕县| 新闻| 梅河口市| 京山县| 元阳县| 冕宁县| 南部县| 丹江口市| 随州市| 鹤峰县| 河间市| 宾川县| 阳新县| 景德镇市| 富锦市| 中超| 濉溪县| 建水县| 台前县| 洛浦县| 芮城县| 苍南县| 益阳市|