VBS判斷傳入的是資料夾還是檔案
阿新 • • 發佈:2022-03-30
先來看看網上別人提供的程式碼:
'判斷資料夾是否存在 Function FolderExits(Folder) Folder=Server.Mappath(Folder) Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FolderExists(Folder) Then FolderExits=true Else FolderExits=false End IF End Function '判斷檔案是否存在 Function FileExits(FileName) FileName=Server.Mappath(FileName)Set FSO= Server.CreateObject("Scripting.FileSystemObject") IF FSO.FileExists(FileName) Then FileExits=true Else FileExits=false End IF End Function '建立資料夾 Function CreateFolder(Folder) on error resume next Folder=Server.Mappath(Folder) Set FSO = Server.CreateObject("Scripting.FileSystemObject") FSO.CreateFolder(Folder) if err>0 then err.clear CreateFolder=False else CreateFolder=True end if End function '建立檔案 Function CreateFile(FileName,Content) on error resume next FileName=Server.Mappath(FileName) Set FSO = Server.CreateObject("Scripting.FileSystemObject") set fd=FSO.createtextfile(FileName,true) fd.writeline Content if err>0 then err.clear CreateFile=False else CreateFile=True end if End function '刪除檔案 function DeleteFile(FileName) on error resume next Set FSO = Server.CreateObject("Scripting.FileSystemObject") if FSO.FileExists(FileName) then FSO.DeleteFile FileName,true end if if err>0 then err.clear DeleteFile=False else DeleteFile=True end if end function '刪除資料夾 function DeleteFolder(Folder) on error resume next Folder=server.MapPath(Folder) Set FSO = Server.CreateObject("Scripting.FileSystemObject") if FSO.FolderExists(Folder) then FSO.Deletefolder Folder,true end if if err>0 then err.clear Deletefolder=False else Deletefolder=True end if
出處:https://blog.csdn.net/ffstarff/article/details/8638173
=======================================================================================
我們自己也寫一個簡單的判斷
'從引數獲取檔案或資料夾路徑 Set objArgs = WScript.Arguments msgbox objArgs.count For x = 0 to objArgs.Count - 1 msgbox objArgs(x) Next s=objArgs(0) set fso=createobject("scripting.filesystemobject") msgbox s If fso.FileExists(s) Then msgbox("是檔案") ElseIf fso.FolderExists(s) Then msgbox("是路徑") Else msgbox("什麼都不是") End If