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

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

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

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

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

A 回答 (2件)

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



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

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 で止めてください。
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

今、見られている記事はコレ!

  • インパクトのある年賀状をもらった経験

    11月1日に来年用のお年玉付年賀はがきの発売がスタートしました。来年は辰年、今ごろ竜にちなんだデザインを考えている方も多いのではないでしょうか?どうせ凝るなら受け取った相手をアッと驚かせる年賀状を作りた...

  • 年賀状は何年くらい保管していますか?

    先週、お年玉付き年賀はがき・年賀切手の当せん番号発表がありました。今年の運試しの結果はいかがだったでしょうか。当せん確認を終え、交換も済んだら…、年賀状はどのくらい保管していますか? 今年届いたものを...

  • 紙のデジタル化で効率は上がる?

    ゴールデンウイークも、はや終盤ですが、連休明けの仕事場の机を見て「書類がたまってるなあ…」と思ってしまう人も多いのでは? 一部では「ノマドワークスタイル」と呼ばれる仕事様式が注目を浴びているそうです。...

  • 写真プリント、どの方法が一番よい?

    写真のプリントと言えば、一昔前は写真屋さんやコンビニエンスストアのDPEでしたが、デジタルカメラ全盛時代の写真プリントは「自宅のプリンターで印刷」「コンビニエンスストアのコピー機で印刷」「ネットの写真プ...

  • 24年ぶりに日本で展示!ブリューゲル「バベルの塔」展が来春開催

    2017年4月18日〜7月2日まで東京都美術館、7月18日〜10月15日まで大阪の国立国際美術館において、「ボイマンス美術館所蔵 ブリューゲル『バベルの塔』展 16世紀ネーデルラントの至宝 ーボスを超えてー」が開催され...

おしトピ編集部からのゆる~い質問を出題中

お題をもっとみる

このQ&Aを見た人が検索しているワード


このカテゴリの人気Q&Aランキング

おすすめ情報

カテゴリ