関数名
用途
引数
戻り値

FileChecker
ファイルの有無の確認を行ったりする。
ファイルのあるフォルダまでのパスとファイル名
GetFilePath
True : ファイルが存在する。
False : ファイルが存在しない。

Function FileChecker(FilePath As String) As Boolean
'エラーの回避
On Error Resume Next

Dim FreeFileNumber As Long

'ファイルパスが空だったときの処理
If FilePath = Null Then

FilePath = ""
Exit Function

End If

FreeFileNumber = FreeFile
Open FilePath For Input As FreeFileNumber
Close FreeFileNumber

'ファイルの有無の判定
If Err = 0 Then

FileChecker = True

Else

FileChecker = False

End If

'エラー回数の初期化
Err = 0

End Function