入力ファイル名のチェック ： Access

■ Access VBA 実行コード

Public Function MyFileNameCheck(sFina As String) As Boolean
    Dim n As Integer

'ファイル名に使用できない文字が含まれていないかチェック
    n = InStr(sFina, "\")
    If n = 0 Then n = InStr(sFina, "/")
    If n = 0 Then n = InStr(sFina, ":")
    If n = 0 Then n = InStr(sFina, "*")
    If n = 0 Then n = InStr(sFina, "?")
    If n = 0 Then n = InStr(sFina, """")
    If n = 0 Then n = InStr(sFina, "<")
    If n = 0 Then n = InStr(sFina, ">")
    If n = 0 Then n = InStr(sFina, "|")
    If n > 0 Then
'含まれていた
        MyFileNameCheck = False
    Else
'正常
        MyFileNameCheck = True
    End If
End Function
＜メモ＞
ファイル名に使用できない文字
Mac OS X：　/ ： .（ファイル名の先頭）Windowsとやり取りする場合は日本語のファイル名を使わないほうがよい
Windows：　￥ / ： * ？ ” < >｜