'----------------------------------------------------------- '機能:指定されたファイルパスが存在するかどうかを確認する '引数1:確認対象のファイルパス '戻り値:ファイルパスが存在する場合はTrue ' 存在しない場合はFalse '----------------------------------------------------------- Function fncFileExists(filepath As String) As Boolean If Len(Dir(filepath)) > 0 Then fncFileExists = True Else fncFileExists = False End If End Function