excelvbaでDir()を使わないファイル確認

Dir()でも確認できるけど、ファイル検索中など困るときにはこっち使うと吉。

'Dir()を使わないファイル確認
Function FileExist(path)

    Dim objFileSys
    Dim strScriptPath
    Dim strCopyFrom
    Dim strCopyTo
    
    Set objFileSys = CreateObject("Scripting.FileSystemObject")
    
    If objFileSys.FileExists(path) = True Then
        FileExist = True
    Else
       FileExist = False
    End If
    
    Set objFileSys = Nothing

End Function
  翻译: