IsExist

Summary

指定されたファイルまたはディレクトリの存在を確認するための関数です。

Function IsExist(filePath As String) As Boolean
'ファイル、ディレクトリの存在確認をする

    If InStrRev(filePath, ",") > 0 Then
        If Dir(filePath) <> "" Then
            IsExist = True
        Else
            IsExist = False
        End If
    Else
        If Dir(filePath, vbDirectory) <> "" Then
            IsExist = True
        Else
            IsExist = False
        End If
    End If
End Function

説明

この関数は、与えられたファイルパスまたはディレクトリパスを使用して、ファイルまたはディレクトリが存在するかどうかを確認します。

関数内では、与えられたパスにカンマが含まれているかどうかをチェックします。カンマが含まれている場合、Dir 関数を使用してファイルの存在を確認します。ファイルが存在する場合は True を返し、存在しない場合は False を返します。

カンマが含まれていない場合、Dir 関数を使用してディレクトリの存在を確認します。ディレクトリが存在する場合は True を返し、存在しない場合は False を返します。

引数

• 引数(filePath)の名前
• 引数の型: String型
• 引数の説明: 存在を確認するファイルパスまたはディレクトリパス

戻り値

• 戻り値の型: Boolean型
• ファイルまたはディレクトリが存在する場合は True
• ファイルまたはディレクトリが存在しない場合は False

Examples

使用例として、関数 IsExist を呼び出して指定されたファイルの存在を確認する方法が示されています。 関数の結果は、fileExists 変数に格納されます。

' ファイルの存在を確認する
Dim filePath As String
Dim fileExists As Boolean
filePath = "C:\path\to\file.txt"
fileExists = IsExist(filePath)