数あるファイルから、複数文字いづれかを含むファイル名を使用しているファイルを抽出したい

BuffaloのNAS：TeraStationでバックアップエラーがでてしまい、エラー番号から、原因はメーカー指定の使用禁止文字（以下）がファイル名として使われているとのことでした。

すでにTeraStationには、1万個近いファイルがある為、その中から該当ファイルを見つけるのは無理なので、

TeraStation内に保存されているファイルから、禁止文字のいづれかが使われているファイル名を抽出できるフリーソフト（方法）があれば教えてもらえないでしょうか。

よろしくお願い致します。m(_ _)m

【禁止文字】
①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅰⅱⅲⅳⅴⅵⅶⅷⅸⅹ㎜㎝㎞㎎㎏㏄㎡№㏍℡㊤㊥㊦ ㊧㊨㈱㈲㈹㍾㍽㍼㍻㍉㌔㌢㍍㌘㌧㌃㌶㍑㍗㌍㌦㌣㌫㍊㌻￤＇＂〝〟∮Σ∟⊿纊褜鍈銈蓜俉炻昱棈鋹曻彅丨仡仼伀伃伹佖 侒侊侚侔俍偀倢俿倞偆偰偂傔僴僘兊兤冝冾凬刕劜劦勀勛匀匇匤卲厓厲叝﨎咜咊咩哿喆坙坥垬埈埇﨏塚增墲夋奓奛奝奣妤 妺孖寀甯寘寬尞岦岺峵崧嵓﨑嵂嵭嶸嶹巐弡弴彧德忞恝悅悊惞惕愠惲愑愷愰憘戓抦揵摠撝擎敎昀昕昻昉昮昞昤晥晗晙晴晳 暙暠暲暿曺朎朗杦枻桒柀栁桄棏﨓楨﨔榘槢樰橫橆橳橾櫢櫤毖氿汜沆汯泚洄涇浯涖涬淏淸淲淼渹湜渧渼溿澈澵濵瀅瀇瀨炅 炫焏焄煜煆煇凞燁燾犱犾猤猪獷玽珉珖珣珒琇珵琦琪琩琮瑢璉璟甁畯皂皜皞皛皦益睆劯砡硎硤硺礰礼神祥禔福禛竑竧靖竫 箞精絈絜綷綠緖繒罇羡羽茁荢荿菇菶葈蒴蕓蕙蕫﨟薰蘒﨡蠇裵訒訷詹誧誾諟諸諶譓譿賰賴贒赶﨣軏﨤逸遧郞都鄕鄧釚釗釞 釭釮釤釥鈆鈐鈊鈺鉀鈼鉎鉙鉑鈹鉧銧鉷鉸鋧鋗鋙鋐﨧鋕鋠鋓錥錡鋻﨨錞鋿錝錂鍰鍗鎤鏆鏞鏸鐱鑅鑈閒隆﨩隝隯霳霻靃靍靏 靑靕顗顥飯飼餧館馞驎髙髜魵魲鮏鮱鮻鰀鵰鵫鶴鸙黑畩秕緇臂蘊訃躱鐓饐鷯

No.2 回答者： hanafukura 回答日時： 2015/04/15 19:54

OSが不明ですが、windowsではないかと予想。

フォルダを開いたときのエクスプローラ画面でプルダウンメニューのファイル＞検索を使えばよろしいかと。ただしファイル名の検索文字の指定は「,」半角コンマ区切りにする必要があります。何文字まで受け付けるのかはやったことがないので試してください。何回かに分けて抽出すればできると思います。探す場所はTeraStationまでのパスをたどります。

No.1 回答者： nicotinism 回答日時： 2015/04/09 00:40

ExcelのVBAで出来そうな気がしますがインストールされているPCはありますか？

フォルダ単位での走査ですが（書きかけです）
標準モジュールに

Sub ChkName _
(trgDir As String, _
Optional searchSub As Boolean = False, _
Optional fCnt As Long = 0)
Dim objFs As Object
Dim objDir As Object
Dim objFile As Object
Dim i As Integer
Dim oReg As Object
Dim fPath As String

'On Error Resume Next

Set oReg = CreateObject("VBScript.RegExp")
oReg.Pattern = "[①②③④⑤⑥⑦⑧⑨⑩⑪⑫⑬⑭⑮⑯⑰⑱⑲⑳ⅠⅡⅢⅣⅤⅥⅦⅧⅨⅩⅰⅱⅲⅳⅴⅵⅶⅷⅸⅹ㎜㎝㎞㎎㎏㏄㎡№㏍℡㊤㊥㊦㊧㊨㈱㈲㈹㍾㍽㍼㍻㍉㌔㌢㍍㌘㌧㌃㌶㍑㍗㌍㌦㌣㌫㍊㌻￤＇＂〝〟∮Σ∟⊿纊褜鍈銈蓜俉炻昱棈鋹曻彅丨仡仼伀伃伹佖侒侊侚侔俍偀倢俿倞偆偰偂傔僴僘兊兤冝冾凬刕劜劦勀勛匀匇匤卲厓厲叝﨎咜咊咩哿喆坙坥垬埈埇﨏塚增墲夋奓奛奝奣妤妺孖寀甯寘寬尞岦岺峵崧嵓﨑嵂嵭嶸嶹巐弡弴彧德忞恝悅悊惞惕愠惲愑愷愰憘戓抦揵摠撝擎敎昀昕昻昉昮昞昤晥晗晙晴晳暙暠暲暿曺朎朗杦枻桒柀栁桄棏﨓楨﨔榘槢樰橫橆橳橾櫢櫤毖氿汜沆汯泚洄涇浯涖涬淏淸淲淼渹湜渧渼溿澈澵濵瀅瀇瀨炅炫焏焄煜煆煇凞燁燾犱犾猤猪獷玽珉珖珣珒琇珵琦琪琩琮瑢璉璟甁畯皂皜皞皛皦益睆劯砡硎硤硺礰礼神祥禔福禛竑竧靖竫箞精絈絜綷綠緖繒罇羡羽茁荢荿菇菶葈蒴蕓蕙蕫﨟薰蘒﨡蠇裵訒訷詹誧誾諟諸諶譓譿賰賴贒赶﨣軏﨤逸遧郞都鄕鄧釚釗釞釭釮釤釥鈆鈐鈊鈺鉀鈼鉎鉙鉑鈹鉧銧鉷鉸鋧鋗鋙鋐﨧鋕鋠鋓錥錡鋻﨨錞鋿錝錂鍰鍗鎤鏆鏞鏸鐱鑅鑈閒隆﨩隝隯霳霻靃靍靏靑靕顗顥飯飼餧館馞驎髙髜魵魲鮏鮱鮻鰀鵰鵫鶴鸙黑畩秕緇臂蘊訃躱鐓饐鷯]"

Set objFs = CreateObject("Scripting.FileSystemObject")
Set objDir = objFs.GetFolder(trgDir)
Set objFile = objDir.Files

For Each objFile In objDir.Files
DoEvents
fCnt = fCnt + 1
fPath = objFile.Path
If oReg.test(fPath) Then
Cells(fCnt, 1) = "×": Cells(fCnt, 2) = fPath
Else
Cells(fCnt, 1) = "○": Cells(fCnt, 2) = fPath
End If
Next objFile

For Each objDir In objDir.SubFolders
DoEvents
If searchSub = True Then
Call ChkName(objDir.Path, searchSub, fCnt)
End If
Next

Set objFile = Nothing
Set objDir = Nothing
Set objFs = Nothing
Set oReg = Nothing

End Sub

で、VBE の画面で Ctrl+G でイミディエイトウィンドウを出して
そこに
call chkname("\\NASサーバー名\フォルダ名",True )
とすればワークシートに・・・？
10分位たっても終わったようでなければ、Ctrl + Break で止めてください。