\(円)記号を置換したい

質問

Windowsのファイル名に使用禁止文字（\:/*?"<>|）を全角に置換しようと思い、下記のコードを書いてみたのですが、「\」だけが全角に置換されません。
どうしたら、「\」も全角に置換できるでしょうか？
よろしくお願いいたします。

Private Function ReplaceZenkaku(ByVal fileName As String) As String
　　　　Dim ignoreString As Regex = New Regex("[\\:\/\*\?""<>\|]")
　　　　Return ignoreString.Replace(fileName, New MatchEvaluator(AddressOf ReplaceKigou))
End Function

Private Function ReplaceKigou(ByVal M As Match) As String
　　　　Return Strings.StrConv(M.Value, VbStrConv.Wide)
End Function

回答No.1

dsuekichi · ベストアンサー

> Return Strings.StrConv(M.Value, VbStrConv.Wide)
では、変換できないそうです。

「[Info] Microsoft.VisualBasic.StrConv 関数で半角の "\" が変換されない」
（http://support.microsoft.com/kb/916603/ja）

お礼

ありがとうございました。
"\" はReplaceメソッドを利用しないといけないんですね。

回答No.2

xiaolong_goo

ちょっとめんどくさいけど、
Replace関数で置き換えてみたらどうでしょう？

お礼

ありがとうございました。
ReplaceKigouの中で"\"の時はReplaceで全角￥に置換するようにしました。