ファイルの存在をチェックする

2021年8月22日

FileExists関数

引数で指定したファイルパスの存在をチェックし、結果を真偽値で返す関数。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
'==================================================
' <summary>
' ファイルの存在をチェックする
' </summary>
' <param name="filePath">ファイルパス</param>
' <returns>判定結果</returns>
'==================================================
Public Function FileExists(filePath As String) As Boolean
 
    FileExists = False
 
    With CreateObject("Scripting.FileSystemObject")
        FileExists = .FileExists(filePath)
    End With
 
End Function

実行方法

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'==================================================
' <summary>
' FileExists関数のテスト
' </summary>
'==================================================
Sub TestFileExists()
 
    Dim result As String
 
    ' 存在するファイル
    result = FileExists("C:\Test\aaa.txt")
    ' 存在しないファイル
    result = result &amp;amp; vbCrLf &amp;amp; FileExists("C:\Test\bbb.txt")
    ' 存在するフォルダ
    result = result &amp;amp; vbCrLf &amp;amp; FileExists("C:\Test")
 
    MsgBox result
 
End Sub

実行結果

ファイルの操作

Posted by じゅんじゅん