ファイル関係汎用関数

ファイルが存在するか否か。ファイルの状態（Writeモードで開けるかや、Lock Write できるか等）は判定せず、純粋に存在だけを確認する。

Function FileExists(FileNM As String) As Boolean
    ' ファイル存在チェック
    If FileNM <> "" Then
        FileExists = (Dir(FileNM) <> "")
    Else
        FileExists = False
    End If
End Function