ASP如何檢測某文件夾是否存在,不存在則自動創建_應用技巧

來源:腳本之家  責任編輯:小易  

這段代碼加在保存之前'ASP判斷文件是否存在以及刪除文件實例代碼dim htmlFilefshtmlFile="./book_show.htmlhtmlFile=server.MapPath(htmlFile)Set fs=Server.CreateObject("Scripting.FileSystemObject")If fs.FileExists(htmlFile)Then '判斷文件是否存在fs.DeleteFile htmlFile,true '如果文件存在,則刪除文件end ifSet fs=Nothingwww.13333515.buzz防采集請勿采集本網。

直接給大家分享一下真格學網測試正常可以使用的代碼,并且支持多級目錄創建

Shell 判斷FTP上某個路徑、文件是否存在: bin/bash 進入該目錄,把文件down在這里 cd/opt/ 某個路徑的某個文件變量定義 f1=file1/file2/filename;ftp-i-v-n 192.x.x.x use ftpuser ftppasswd

代碼一

dim rs dim sql if request(\"email\")=\"\"then response.Write(\"<script LANGUAGE='javascript'>alert('請填寫郵箱');window.location.href='index.asp';Response.End end if end if

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

set fso=server.createobject(\"scripting.filesystemobject\") fso.FolderExists fso.FileExists

使用方法:

strFileName='C:\\wwwroot\\asp\\JS\\' Dim objFSO If InStr(strFileName,\":\")=0 Then strFileName=Server.MapPath(strFileName) End If Set objFSO=Server.CreateObject(\"Scripting.FileSystemObject\")

CreateMultiFolder("/202003/tools/")

想不到什么好辦法來判斷目錄是否存在,只能用異常了(比較笨).請知道的告訴我一聲` } catch(IOException e1) { ftpClient.sendServer(\"MKD\"+dir+\"\\r\\n\");try { ftpClient.readServerResponse();} catch

代碼二、測試ok

'自動創建多極目錄'code by jb51 reterryfunction createit(path)dim fsofo,cinfo,thepath,thepatharraydim i,ii,binfobinfo=falsethepath=pathset fsofo=createobject("scripting.filesystemobject")if err thenerr.clearexit functionend ifthepath=replace(thepath,"\","/")if left(thepath,1)="/" thenthepath=right(thepath,len(thepath)-1)end ifif right(thepath,1)="/" thenthepath=left(thepath,len(thepath)-1)end ifthepatharray=split(thepath,"/")for i=0 to ubound(thepatharray)createfoldersub1=createfoldersub1&thepatharray(i)&"/"createfoldersub=server.mappath(createfoldersub1)if not fsofo.folderexists(createfoldersub) thenfsofo.createfolder(createfoldersub)end ifnextif err thenerr.clearelsebinfo=trueend ifcreateit=binfoend function

測試代碼

createit("/202004/tools/")

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

下面的實現代碼功能性簡單,適合學習

ASP如何檢測某文件夾是否存在,不存在則自動創建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 = nothingDim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists(Server.MapPath(SavePath))=false Then objFSO.CreateFolder(Server.MapPath(SavePath)) End Iffolder=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  

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

'創建新文件夾(允許無級創建)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

創建文件夾

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

刪除文件夾

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

復制文件

dim fsoset 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 subcall copyfiles(Server.MapPath("../無標題2.bmp"),"D:\網站項目\photo\aspupload\07_images\")

下面是其他網友的補充 

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 = NothingEnd Function

 檢查文件夾是否存在,不存在則創建文件夾,該函數無返回值。

例:CheckAndCreateFolder("ASP")

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

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

'//提供文件處理通用接口Class FileSystemObject'/*' * 功能描述:刪除文件' * 輸入參數:FileName——文件相對路徑'*/Public Function DelFile(FileName) Dim getPath getPath="/" SET Fso=Server.CreateObject("Scripting.FileSystemObject") getPath=Replace(getPath&FileName,"http://","/") if Fso.FileExists(Server.MapPath(getPath))=True then   Fso.DeleteFile Server.mappath(getPath) End if Set Fso=NothingEnd Function '/*' * 功能描述:判斷路徑是否存在,如不存在則創建' * 輸入參數: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(DeclarePath&FilePath&"/","http://","/")   if FileObj.FolderExists(Server.MapPath(DeclarePath))=false then     FileObj.CreateFolder(Server.MapPath(DeclarePath))'創建文件夾   end if Next Set FileObj=nothing CreatePath=DeclarePathEnd Function '/*' * 功能描述:重命名文件夾' * 輸入參數:GetPath——文件夾路徑' * 輸入參數:OldName——舊的文件夾名稱' * 輸入參數: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(GetPath&NewName)) then   response.write"<script language=javascript>alert('目錄已經存在!!');this.history.go(-1);</script>"   response.end() end if '//舊的文件夾不存在,則創建 if Not Fso.FolderExists(Server.MapPath(GetPath&OldName)) Then   CreatePath(GetPath&OldName) End if Fso.MoveFolder Server.MapPath(GetPath&OldName),Server.MapPath(GetPath&NewName) set Fso=nothing 'response.redirect request.ServerVariables("HTTP_REFERER")End Function '/*' * 功能描述:保存當前文件' * 輸入參數:GetPath——文件路徑' * 輸入參數:GetContent——保存的內容' * 輸入參數: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(GetPath&GetFile),true) CF.write GetContent CF.Close set CF=nothing set Fso=nothing 'response.redirect request.ServerVariables("HTTP_REFERER")End FunctionEnd Class

以上就是ASP如何檢測某文件夾是否存在,不存在則自動創建的詳細內容,更多關于ASP如何檢測某文件夾是否存在的資料請關注真格學網其它相關文章!

另一張確實存在的圖片名';以上是用Javascript實現的,是在瀏覽器端實現的,不占用服務器資源。如果要通過ASP在服務器端實現,則這樣:set fso=server.createobject("scripting.filesystemobject")if fso.fileexists(server.mappath("img/111.jpg"))thenresponse.write"elseresponse.write"另外一張圖片名>end ifset fso=nothing強烈推薦第一種方法內容來自www.13333515.buzz請勿采集。


  • 本文相關:
  • asp中創建多級目錄的兩段代碼
  • asp http 500錯誤 常見問題分析
  • excel連接字符串中的hdr、imex參數詳解
  • asp基礎入門第九篇(global.asa文件的使用)
  • asp access實現網站計數器(訪問量)
  • asp 實現當有新信息時播放語音提示的效果
  • sql查詢語句通配符與access模糊查詢like的解決方法
  • 透徹掌握asp分頁技術很詳細的分析
  • asp xml編程objxml.async = false
  • asp隨機數 隨機產生n位由數字和字母組成的密碼
  • asp加密解密函數decrypt
  • 請問下asp高手可以檢測文件是否存在并進行判斷嗎?
  • ASP 怎么判斷文件是否存在
  • 請問在asp中用floderexists不能檢測虛擬目錄以外的文件夾的存在與否嗎?
  • asp.net怎么查看,一個文件夾中有沒有和你相匹配的文件
  • 如何判斷ftp上是否存在某一文件或文件夾
  • ASP如何檢測郵箱是否已存在
  • ASP fso檢測硬盤上的盤符下的文件夾是否存在
  • ASP 判斷路徑是否存在
  • 請問一下,java中有沒直接判斷ftp上文件夾下是否存在某文件的方法?通過遍歷文件夾的方式判斷太耗內存了
  • VC環境下如何檢測指定文件夾中是否存在某個文件?
  • 網站首頁網頁制作腳本下載服務器操作系統網站運營平面設計媒體動畫電腦基礎硬件教程網絡安全asp基礎應用技巧數據庫相關asp class類存儲過程小偷/采集木馬相關fso專題首頁asp編程應用技巧asp中創建多級目錄的兩段代碼asp http 500錯誤 常見問題分析excel連接字符串中的hdr、imex參數詳解asp基礎入門第九篇(global.asa文件的使用)asp access實現網站計數器(訪問量)asp 實現當有新信息時播放語音提示的效果sql查詢語句通配符與access模糊查詢like的解決方法透徹掌握asp分頁技術很詳細的分析asp xml編程objxml.async = falseasp隨機數 隨機產生n位由數字和字母組成的密碼asp加密解密函數decrypt推薦4款傻瓜型的asp服務器軟件(關于“未指定的錯誤”的問題 的比錯誤類型:provider (0x80004005c#入門教程之listbox控件使用方法utf-8 網頁不顯示+utf-8網頁亂碼asp 日期格式化問題microsoft jet database engine(asp中設置session過期時間方法總sql查詢語句通配符與access模糊查asp utf-8 亂碼問題的解決方法小asp中javascript處理復雜表單的生成與驗證asp 下產生任意位數隨機密碼的代碼一個不太讓人討厭的自動彈出窗口一個sql查詢器,自動畫表格填字段asp的global.asa文件技巧用法asp 信息提示函數并作返回或者轉向input 中空格截段的問題解決方法在asp中連接mysql數據庫的方法,最好的通asp 用instr查找特定字符串的代碼asp 改良版md5、sha256多重加密類(二次及
    免責聲明 - 關于我們 - 聯系我們 - 廣告聯系 - 友情鏈接 - 幫助中心 - 頻道導航
    Copyright © 2017 www.13333515.buzz All Rights Reserved
    3排列五开奖结果