Script Paradigm

ファイルがあるかチェック

ファイルが存在するかどうかをチェックします。

Option Explicit
MsgBox fnFileExists("test.txt")
Function fnFileExists(strFilePath)
    Dim fsoTemp
    fnFileExists = False
    
    Set fsoTemp = WScript.CreateObject("Scripting.FileSystemObject")
    If fsoTemp.FileExists(strFilePath) Then
        fnFileExists = True
    End If
    
    Set fsoTemp = Nothing
End Function
Copyright © 2006 Hikijishi All Rights Reserved.
[] [wsh][0.00099492073059082]