asp實現(xiàn)檢查目錄是否存在與建立目錄的函數(shù)
更新時間：2007年09月01日 22:15:29 作者：
'-------------------------
'--檢查目錄是否存在
'----------------------
Function CheckDir(byval FolderPath)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Server.MapPath(folderpath)) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso = nothing
End Function
'-------------------------
'--建立目錄
'----------------------
Function MakeNewsDir(byval foldername)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(Server.MapPath(foldername))
If fso.FolderExists(Server.MapPath(foldername)) Then
MakeNewsDir = True
Else
MakeNewsDir = False
End If
Set fso = nothing
End Function
'--檢查目錄是否存在
'----------------------
Function CheckDir(byval FolderPath)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Server.MapPath(folderpath)) then
'存在
CheckDir = True
Else
'不存在
CheckDir = False
End if
Set fso = nothing
End Function
'-------------------------
'--建立目錄
'----------------------
Function MakeNewsDir(byval foldername)
dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.CreateFolder(Server.MapPath(foldername))
If fso.FolderExists(Server.MapPath(foldername)) Then
MakeNewsDir = True
Else
MakeNewsDir = False
End If
Set fso = nothing
End Function
相關文章
asp定時生成靜態(tài)HTML的代碼，對于緩解服務器壓力有很大幫主，需要的朋友可以參考下。2010-06-06
asp自動補全html標簽自動閉合，方便asp截取帶有html標簽的內容，防止頁面變形2012-10-10
前一篇我們已經(jīng)講了SQL注入攻擊漏洞產生的本質是由編程人員編碼的不當造成的，下面我們就來繼續(xù)講如何才是正確的編碼，才不會受到SQL注入的攻擊2008-12-12
asp連接access、sql數(shù)據(jù)庫代碼及數(shù)據(jù)庫操作代碼
asp連接access、sql數(shù)據(jù)庫代碼及數(shù)據(jù)庫操作代碼，需要的朋友可以參考下2012-10-10
asp驗證Ip格式的函數(shù)...2007-08-08
asp實現(xiàn)圖片右鍵滑輪控制大小的函數(shù)...2007-08-08
IIS找到ASP文件，提交給ASP引擎(一般是ASP.DLL)處理等等，需要的朋友可以參考下2012-12-12
在ASP中用組件檢測當前網(wǎng)卡地址的代碼...2007-03-03
2008-01-01
為你的網(wǎng)站添加rss閱讀功能 把以下文件保存為 rss.asp 放在網(wǎng)站的根目錄下 修改里面的幾個參數(shù)就可以2008-12-12