フォルダー内のファイル名を取得し、半角の片仮名と記号もしくは全角のアルファベットと数字があった場合をIFで判断したい。

Question

閲覧ありがとうございます。
質問内容は大凡タイトル通りです。

作りたいマクロ
指定したフォルダーパス内のファイル名を取得し、装飾して指定したセルに格納していく。
ファイル名に半角の片仮名か記号、もしくは全角のアルファベットか数字が含まれていた場合、格納したセルと同じ行にエラー文を入れる。

2017-01-29追記
回答ありがとうございます。
それぞれのIFで判別はできるようになりましたが、ファイル名の先頭の文字のみを参照しているようで、途中や最後に含まれている場合にIFに掛かりません。
記号はこちらで使いそうな物だけにまとめました。

Sub Test()
    Cells.Clear
    Dim buf As String, cnt As Long
    Const Path As String = "ここにフォルダーパス"
    buf = Dir(Path & "*.wav") '.wavファイルのみを抽出
    Do While buf <> ""
        buf = Left(buf, Len(buf) - 4)
        cnt = cnt + 1
        Cells(cnt, 1) = Len(buf)
        Cells(cnt, 2) = "N"
        Cells(cnt, 3) = buf
        Cells(cnt, 4) = "(Soundw " & buf & ")"
        
        If buf Like "[ｱ-ﾝ]*" Then
            Cells(cnt, 5) = "半角片仮名有り"
            Cells(cnt, 5).Font.Color = RGB(255, 0, 0)
        End If
        If buf Like "[/! ･ ｡ ､ ( )]*" Then
            Cells(cnt, 5) = "半角記号有り"
            Cells(cnt, 5).Font.Color = RGB(255, 0, 0)
        End If
        If buf Like "[Ａ-ｚ]*" Then
            Cells(cnt, 5) = "全角アルファベット有り"
            Cells(cnt, 5).Font.Color = RGB(255, 0, 0)
        End If
        If buf Like "[０-９]*" Then
            Cells(cnt, 5) = "全角数字有り"
            Cells(cnt, 5).Font.Color = RGB(255, 0, 0)
        End If
        
        buf = Dir()
    Loop
End Sub

Answer 1

すべての文字を確認していませんが、下記のコードで問題ないかと思います。

    'ファイル名に使用できる記号
    Const KIGOU As String = "[ !#$%&'()+-,.;=@^_‘{}~[[][]]]"
    
    '半角のカタカナ
    If buf Like "[ｱ-ﾝ]" Then
        'エラー処理
    End If
    
    '半角の記号
    If buf Like KIGOU Then
        'エラー処理
    End If
    
    '全角のアルファベット
    If buf Like "[Ａ-ｚ]" Then
        'エラー処理
    End If
    
    '全角の数字
    If buf Like "[０-９]" Then
        'エラー処理
    End If

記号は下記のサイトを参考にし、ファイル名に使用できる記号のみを対象にしています。
参考サイト

ちなみに、Yukiyama7.4さんのコードは半角のカタカナ以外が含まれていたらエラー処理をするようになっていました。（!を付けたら～以外という意味になります）

####追記
ワイルドカードを入れないと先頭文字しか検索しないのですね。すみません…
[の前と]の後ろに*を入れて実行してみて下さい。すべての文字を検索してくれるはずです。

If buf Like "*[ｱ-ﾝ]*" Then

Comments

[Yukiyama7.4]

ありがとうございます！
無事に目的の動作になりました。