特定文字列を含むものを削除する

質問

フォルダ内に無数のファイルがあります。
特定の文字列、記号が含まれたもの（例えば~がついたものなど）
全ていらないので一括削除したいのですが、
いい方法はないでしょうか？
よろしくおねがいします。

回答No.2

imogasi · ベストアンサー

ＶＢ／エクセルＶＢＡでやって見ました。元に戻すが出来ないので、テストは必ずフォルダをコピーして、コピー先ファイルを対象にして行ってください。
上の方のDir()の()内とt=""の中に削除したいファイル名に含む文字列を入れてください。下の方のdir()の（）内は何も入れないこと。
Sub test02()
a = Dir("c:\My Documents\") 'フォルダ名を指定する
mb = ""
For i = 1 To 100
b = Dir()
If b = "" Then Exit For
' MsgBox b
t = "sun" 'ここを指定する文字列・記号変える
p = InStr(1, b, t)
If p = 0 Then GoTo e01
yn = InputBox(b & "削除しても良いですか y or n")
If yn = "y" Then
Kill "c:\My Documents\" & b
End If
e01:
Next i
End Sub

補足

ありがとうございました。
早速試してみます。

回答No.1

Hageoyadi

特にMicrosoftアプリケーションを使わなくても、Windows標準の「検索」で抽出できますので、ソコから削除なされば良いかと思われます。

具体的には「検索」を起動し、
「名前」欄には「*~*」と入力し、探す場所を指定して「検索開始ボタンを押せば、指定された場所内の「~」をファイル名に含むファイルが全て表示されますので、Ctrl+Aで全てを選択してDeleteキーで削除できます。

ただ、OSがはっきりしないので自信なしです。Windows95以降なら上記の方法で出来ます。