主頁 > 知識庫 > ASP如何檢測某文件夾是否存在,不存在則自動創(chuàng)建

ASP如何檢測某文件夾是否存在,不存在則自動創(chuàng)建

熱門標簽:姜堰電銷機器人 遼寧正規(guī)電銷機器人 遼寧銀行智能外呼系統(tǒng) 上海浦東騰訊地圖標注位置 電銷機器人違法了嗎 海南銀行智能外呼系統(tǒng)商家 許昌智能電銷機器人公司 辰溪地圖標注 澳大利亞城市地圖標注

直接給大家分享一下腳本之家測試正??梢允褂玫拇a,并且支持多級目錄創(chuàng)建

代碼一

 Function CreateMultiFolder(ByVal CFolder) 
        Dim objFSO, PhCreateFolder, CreateFolderArray, CreateFolder 
        Dim i, ii, CreateFolderSub, PhCreateFolderSub, BlInfo 
        BlInfo = False 
        CreateFolder = CFolder 
        On Error Resume Next 
        Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
        If Err Then 
            Err.Clear() 
            Exit Function 
        End If 
        If Right(CreateFolder, 1) = "/" Then 
            CreateFolder = Left(CreateFolder, Len(CreateFolder) -1) 
        End If 
        CreateFolderArray = Split(CreateFolder, "/") 
        For i = 0 To UBound(CreateFolderArray) 
            CreateFolderSub = "" 
            For ii = 0 To i 
                CreateFolderSub = CreateFolderSub  CreateFolderArray(ii)  "/" 
            Next 
            PhCreateFolderSub = Server.MapPath(CreateFolderSub) 
            If Not objFSO.FolderExists(PhCreateFolderSub) Then 
                objFSO.CreateFolder(PhCreateFolderSub) 
            End If 
        Next 
        If Err Then 
            Err.Clear() 
        Else 
            BlInfo = True 
        End If 
        CreateMultiFolder = BlInfo 
End Function

使用方法:

CreateMultiFolder("/202003/tools/")

代碼二、測試ok

'自動創(chuàng)建多極目錄
'code by jb51 reterry
function createit(path)
dim fsofo,cinfo,thepath,thepatharray
dim i,ii,binfo
binfo=false
thepath=path
set fsofo=createobject("scripting.filesystemobject")
if err then
err.clear
exit function
end if
thepath=replace(thepath,"\","/")
if left(thepath,1)="/" then
thepath=right(thepath,len(thepath)-1)
end if
if right(thepath,1)="/" then
thepath=left(thepath,len(thepath)-1)
end if
thepatharray=split(thepath,"/")
for i=0 to ubound(thepatharray)
createfoldersub1=createfoldersub1thepatharray(i)"/"
createfoldersub=server.mappath(createfoldersub1)
if not fsofo.folderexists(createfoldersub) then
fsofo.createfolder(createfoldersub)
end if
next
if err then
err.clear
else
binfo=true
end if
createit=binfo
end function

測試代碼

createit("/202004/tools/")

以上代碼如果無法運行,請檢查iis運行用戶的權限是否有寫功能。今天測試的時候默認iis7.5下是無法運行的。

下面的實現(xiàn)代碼功能性簡單,適合學習

ASP如何檢測某文件夾是否存在,不存在則自動創(chuàng)建

folder=server.mappath("/imagess") 
Set fso = CreateObject("Scripting.FileSystemObject") 
if fso.fileexists(Server.mappath(filepath)) then 
respnse.write("都有了還建什么建") 
else 
fso.createfolder(folder) 
end if 
Set fso = nothing

Dim objFSO 
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") 
If objFSO.FolderExists(Server.MapPath(SavePath))=false Then 
objFSO.CreateFolder(Server.MapPath(SavePath)) 
End If

folder=server.mappath("/imagess") 
Set fso = CreateObject("Scripting.FileSystemObject") 
if fso.fileexists(Server.mappath(filepath)) then 
respnse.write("都有了還建什么建") 
else 
fso.createfolder(folder) 
end if 
Set fso = nothing  

都不完善,我想樓主的意思是創(chuàng)建無極深度目錄吧,給個我寫的: 

'創(chuàng)建新文件夾(允許無級創(chuàng)建)1:35 2005-1-31 

Public Function CreateFolder(FolderPath) 
Dim sObjFSO 
Dim arrFolder 
Dim i 

Set sObjFSO = Server.CreateObject("Scripting.FileSystemObject") 
FolderPath = Replace(FolderPath,"\","/") 
arrFolder = Split(FolderPath,"/") 
On Error Resume Next 

For i = 0 To UBound(arrFolder) 
If i > 0 Then arrFolder(i) = arrFolder(i-1)  "/"  arrFolder(i) 
If Not sObjFSO.FolderExists(arrFolder(i)) Then 
sObjFSO.CreateFolder(arrFolder(i)) 
End If 
Next 
CreateFolder = True 

If Err.number > 0 Then 
CreateFolder = False 
Err.Clear 
End If 
End Function 

創(chuàng)建文件夾

dim fso,SavePath
SavePath=server.MapPath(".\"imagefile"\"username"\"specialname"")
set fso = server.CreateObject("scripting.filesystemobject") 
if fso.FolderExists(SavePath)=false then 
fso.createfolder(SavePath) 
end if
set fso=nothing

刪除文件夾

dim fso,SavePath
SavePath=server.MapPath(".\"imagefile"\"username"\"specialname"")
set fso = server.CreateObject("scripting.filesystemobject") 
if fso.FolderExists(SavePath)=true then 
fso.deletefolder(SavePath) 
end if
set fso=nothing

復制文件

dim fso
set fso=server.CreateObject("scripting.filesystemobject")

sub copyfiles(path,path2)
 set mycopy=fso.getfile(path)
 response.flush()
 mycopy.copy path2
 response.write("b>installed success !nbsp;nbsp;/b>"path2"br>")
 response.Flush()
 end sub
call copyfiles(Server.MapPath("../無標題2.bmp"),"D:\網(wǎng)站項目\photo\aspupload\07_images\")

下面是其他網(wǎng)友的補充 

Public Function CheckAndCreateFolder(FolderName)
  fldr = Server.Mappath(FolderName)
  Set fso = CreateObject("Scripting.FileSystemObject")
  If Not fso.FolderExists(fldr) Then
   fso.CreateFolder(fldr)
  End If
  Set fso = Nothing
End Function

 檢查文件夾是否存在,不存在則創(chuàng)建文件夾,該函數(shù)無返回值。

例:CheckAndCreateFolder("ASP")

檢查當前目錄下是否存在ASP文件夾,不存在則創(chuàng)建文件夾ASP ,缺點是不支持多級目錄創(chuàng)建。

 asp關于fso函數(shù),文件與文件夾的相關操作用得到

'//提供文件處理通用接口
Class FileSystemObject
'/*
' * 功能描述:刪除文件
' * 輸入?yún)?shù):FileName——文件相對路徑
'*/
Public Function DelFile(FileName)
 Dim getPath
 getPath="/"
 SET Fso=Server.CreateObject("Scripting.FileSystemObject")
 getPath=Replace(getPathFileName,"http://","/")
 if Fso.FileExists(Server.MapPath(getPath))=True then
   Fso.DeleteFile Server.mappath(getPath)
 End if
 Set Fso=Nothing
End Function

 

'/*
' * 功能描述:判斷路徑是否存在,如不存在則創(chuàng)建
' * 輸入?yún)?shù):SaveFilePath——相對路徑,如:/UploadFiles/NewsFiles
'*/
Public Function CreatePath(SaveFilePath)
 Dim DeclarePath,FileObj,FilePath
 DeclarePath="/"
 
 Set FileObj=Server.CreateObject("Scripting.FileSystemObject") 
 For Each FilePath in split(SaveFilePath,"/") 
   DeclarePath=Replace(DeclarePathFilePath"/","http://","/") 
   if FileObj.FolderExists(Server.MapPath(DeclarePath))=false then 
     FileObj.CreateFolder(Server.MapPath(DeclarePath))'創(chuàng)建文件夾
   end if
 Next 
 Set FileObj=nothing
 CreatePath=DeclarePath
End Function

 

'/*
' * 功能描述:重命名文件夾
' * 輸入?yún)?shù):GetPath——文件夾路徑
' * 輸入?yún)?shù):OldName——舊的文件夾名稱
' * 輸入?yún)?shù):NewName——新的文件夾名稱
'*/
Public Function RenFolder(GetPath,OldName,NewName) 
 Dim Fso
 if OldName="" or NewName="" then
   exit Function
 else
   if OldName=NewName then exit Function
 end if
 SET Fso=Server.CreateObject("Scripting.FileSystemObject")
 if Fso.FolderExists(Server.MapPath(GetPathNewName)) then
   response.write"script language=javascript>alert('目錄已經(jīng)存在!!');this.history.go(-1);/script>"
   response.end()
 end if
 '//舊的文件夾不存在,則創(chuàng)建
 if Not Fso.FolderExists(Server.MapPath(GetPathOldName)) Then
   CreatePath(GetPathOldName)
 End if
 
 Fso.MoveFolder Server.MapPath(GetPathOldName),Server.MapPath(GetPathNewName)
 set Fso=nothing
 'response.redirect request.ServerVariables("HTTP_REFERER")
End Function

 

'/*
' * 功能描述:保存當前文件
' * 輸入?yún)?shù):GetPath——文件路徑
' * 輸入?yún)?shù):GetContent——保存的內(nèi)容
' * 輸入?yún)?shù):GetFile——保存的文件名
'*/
Public Function SaveEditFile(GetPath,GetContent,GetFile)
 if GetContent="" or GetFile="" then exit Function
 SET Fso=Server.CreateObject("Scripting.FileSystemObject")
 set CF=Fso.CreateTextFile(Server.mappath(GetPathGetFile),true)
 CF.write GetContent
 CF.Close
 set CF=nothing
 set Fso=nothing
 'response.redirect request.ServerVariables("HTTP_REFERER")
End Function

End Class

以上就是ASP如何檢測某文件夾是否存在,不存在則自動創(chuàng)建的詳細內(nèi)容,更多關于ASP如何檢測某文件夾是否存在的資料請關注腳本之家其它相關文章!

您可能感興趣的文章:
  • asp 判斷上傳文件中是否存在危險代碼
  • ASP檢查文件與目錄是否存在的函數(shù)代碼
  • asp判斷某個文件是否存在的函數(shù)

標簽:晉城 崇左 威海 伊春 深圳 銅川 撫州 西藏

巨人網(wǎng)絡通訊聲明:本文標題《ASP如何檢測某文件夾是否存在,不存在則自動創(chuàng)建》,本文關鍵詞  ASP,如何,檢測,某,文件夾,;如發(fā)現(xiàn)本文內(nèi)容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《ASP如何檢測某文件夾是否存在,不存在則自動創(chuàng)建》相關的同類信息!
  • 本頁收集關于ASP如何檢測某文件夾是否存在,不存在則自動創(chuàng)建的相關信息資訊供網(wǎng)民參考!
  • 推薦文章