亚洲免费不卡_在线视频精品_国产尤物精品_久久久久网址_久久精品91_欧美va天堂在线_狠狠入ady亚洲精品_亚洲午夜精品福利_国产精品草草_午夜精品久久99蜜桃的功能介绍

在asp操作文件中,遇到了創(chuàng)建多級文件夾,其實一級別的創(chuàng)建文件夾很簡單,就fso(路徑)即可,但是遇到了多級文件夾,這就得寫函數(shù)來創(chuàng)建多級文件夾

相關(guān):php自動創(chuàng)建文件夾

asp自動創(chuàng)建多級文件夾,當(dāng)其中文件夾不存在時,自動創(chuàng)建文件夾.

代碼如下:

<%@LANGUAGE = VBScript%>

<%Option Explicit%>

<%'asp版本自動創(chuàng)建文件夾

Dim fso,fso_flag,base,path,i

set fso = CreateObject("Scripting.FileSystemObject")

If isobject(fso) Then

fso_flag = True

Else

fso_flag = false

End If'

If not fso_flag Then response.write"不支持fso.",response.End()

base = request.ServerVariables("APPL_PHYSICAL_PATH")'獲取本地基本物理路徑

'asp自動創(chuàng)建文件夾函數(shù)開始

Function createdir(path)

Dim temp_path,temp_path_array '定義私有路徑

path = Replace(path,"\","/")

' response.write path

If isnull(path) or path = "" Then

createdir = False

Exit Function

End if

If not fso.FolderExists(path) then

'獲取次級目錄路徑

temp_path_array = Split(path,"/")

For i = 0 To UBound(temp_path_array)-1

temp_path = temp_path&temp_path_array(i)&"/"

Next'

temp_path = Left(temp_path,Len(temp_path)-1)'獲取次級目錄

if createdir(temp_path) Then

fso.CreateFolder (path)

createdir = true

End If

else'www.forasp.cn

createdir = true

Exit Function

End if

End Function

'asp創(chuàng)建多級文件夾函數(shù)完畢

path = base&"a/b/c"'因為path獲取站點物理路徑最后包括"/",所以建立文件要以空開頭,然后是文件夾名

'response.write path

If (createdir(path)) Then

response.write "已經(jīng)創(chuàng)建"

Else

response.write "創(chuàng)建失敗"

End if

%>

更多信息請查看IT技術(shù)專欄