vbs學習筆記1——判斷文件和文件夾是否存在

首先分享一個“VBS腳本常用經典代碼收集”，這里面關於vbs很豐富的內容。

所有vbs腳本都需要保存為.vbs形式才可以運行

FileSystemObject Object的所有方法參考：http://msdn.microsoft.com/en-us/library/aa262402(v=vs.60).aspx

vbs判斷文件是否存在

參考文獻：http://bbs.51js.com/thread-72582-1-1.html

這個是我們經常碰到的需求，通過vbs判斷一個文件是否存在，這個主要是通過CreateObject("Scripting.FileSystemObject") 對象的fileExists方法來判斷。

'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0
'
' NAME: File1.vbs
'
'
' COMMENT:判斷是否存在一個文件，如果存在，則刪除，如果不存在，則建立 
'
'==========================================================================

If IsExitAFile("D:\\test.tst") Then
DeleteAFile("D:\\test.tst")
Else CreateAFile("D:\\test.tst")
End If

Function IsExitAFile(filespec)
        Dim fso
        Set fso=CreateObject("Scripting.FileSystemObject")        
        If fso.fileExists(filespec) Then         
        IsExitAFile=True        
        Else IsExitAFile=False        
        End If
End Function 

Sub CreateAFile(filespec)
        Dim fso
        Set fso=CreateObject("Scripting.FileSystemObject")
        fso.CreateTextFile(filespec)
End Sub

Sub DeleteAFile(filespec)
        Dim fso
        Set fso= CreateObject("Scripting.FileSystemObject")
        fso.DeleteFile(filespec)
End Sub

vbs判斷目錄是否存在

有了前面的基礎，我們接下來就簡單了，既然CreateObject("Scripting.FileSystemObject") 對象有fileExists方法，那么有沒有folderExists方法呢，我們測試一下

Dim fso
Set fso=CreateObject("Scripting.FileSystemObject")        
If fso.folderExists("C:\\Program Files (x86)") Then         
        msgbox "ok"
Else 
        msgbox "not ok"
End If

在我的64位操作系統上面，以上運行以上腳本提示為ok。

其實還可以參考 ASP FileSystemObject 對象 的用法，大同小異。