• ベストアンサー

ExcelVBAで特定ファイル名以外削除したい

neKo_quatreの回答

  • ベストアンサー
回答No.1

一般的には、全部のファイルをループして、対象のファイル以外を処理とか。 ' 対象のファイル名を生成 target = "DAILY_AverageAcrossAllTimeZone"&今日の日付&".csv" ' 対象のフォルダのファイルの一覧(の最初のファイル)を取得 fn = Dir(filePath &"\*.*") Do While fn<>"" '対象のファイルがある間ループ  if fn <> target then   ' 対象以外のファイルを削除   Kill filetaph & "\" & fn  Endif  ' 次のファイルを取得  fn = Dir() Loop

KHre21
質問者

お礼

有難う御座います。 うまく行きました。

関連するQ&A

  • 正規表現で、特定のファイル名以外のものを指定したい。

    特定のディレクトリにあるファイルを定期的にコピーしたいと思っています。 ファイル名は、全て「test-*-*.csv(*は数値)」という形式になっているのですが、このうち、「test-212-*.csv」だけは、コピーしないようにしたいと思っています。 「test-212-*.csv」以外の「test-*-*.csv」というものを指定するには、どうしたらよいでしょうか? お分かりになる方がいらっしゃいましたら、よろしくお願いします。

    • ベストアンサー
    • Perl
  • ファイルの削除について

    初めて投稿します。Perl初心者です。 あるディレクトリ内のファイル(ファイル名はマシン日付.csvとなっています。例:20040906.csv)を検索し、 今日より90日前の日付を取得し、それ以前のファイルをディレクトリから削除する という操作をしたいと思うのですが。 Perlでこのようなファイル操作は可能なのでしょうか?

    • ベストアンサー
    • Perl
  • CSVファイルの特定行の削除

    CSVファイルの特定行を削除するということは可能なのでしょうか? 可能であれば教えて頂けないでしょうか? お願いします。

  • batファイルかフリーソフトでファイル名の特定文字まで削除できますか?

    batファイルかフリーソフトでファイル名の特定文字まで削除できますか? batファイルにて元のファイル名の後ろに日付と時刻を入れることはできたのですが、 例: abc.txt → abc_1006160810.txt これを更新するために、_までを削除したいのですが、どのようにbatファイルを作ればいいのか分かりません。 どなたか、知恵をいただけませんか。 したいことは、 abc_1006160810.txt の _1006160810 を削除するだけのbatファイルです。 batファイルではなく、フリーソフトにコマンドラインで一発変換でも構いません。 よろしくお願いいたします。

  • ファイル名が長くて削除出来ない

    とあるファイルをダウンロードしたのですがファイル名が長すぎて 移動することもリネームすることも削除することも出来ません。 どうすればいいでしょうか?

  • ファイル名が長すぎて削除できない

    vista ファイル名が長すぎて削除できない ダウンロードしたファイル(RAR)ファイルの名前が大きすぎてPCから削除がせきなくなりました。 セーフモードからも消そうと試みたのですがどうもうまくいきません。 どうすれば消すことができるでしょうか?

  • 隠しファイルの削除

    ファイル名が分かっている隠しファイルを削除するマクロって あるのですか? kill ~  を使ってもエラーになってしまうんです。 フォルダごと消そうと rmdim でもダメでした。

  • デスクトップ上のCSVファイルの削除について

    いつもお世話になっております。 VBAでまた難問に詰まってしまいました。ご教授お願い致します。 別のフォルダに保存されているマクロを利用して、とあるデータを作成するのですが 途中でデスクトップ上に一回保存をしたCSVファイルを最後に削除する という動きをさせたいです。 下記のマクロだと、マクロとCSVファイルがデスクトップ上にあれば削除出来るのですが マクロは常にとあるフォルダに保管されており、使用する人間はバラバラです。 ※CSVファイルの他に3種類程データを作成するのですが  マクロを使った人が使っているPCのデスクトップ上に保管する事になっております。  上記の事から、Killステートメントでファイル指定が出来ない状態(不特定のデスクトップ)です。   Sub test() Dim myPath As String Dim i As String myPath = ThisWorkbook.Path & "\" i = "テストデータ.csv" If InStr(i, ".csv") = 0 Then i = i & ".csv" If Dir(myPath & i) <> "" Then Kill myPath & i Else End If End Sub 不特定のデスクトップ上にあるcsvファイルを削除する事は可能でしょうか? 以上、宜しくお願い致します。 環境 WindowsXP Excel2003

  • ファイルを削除できません。

    仕事で発注データが送られてきました。csvファイルで送られてき、それをディスクトップに保存しました。 どういうわけか、ファイル名が CAEJCPMJ となり、.csvの拡張子が付きませんでした。 このCAEJCPMJという名のファイルは削除することも、ごみ箱にドラックしてドロップすることもフォルダに入れることも、ファイル名を変えることも出来ません。 どうしたら、このファイルを削除できますか?

  • ファイル名が長すぎて削除できません

    こんばんは。 あるファイルをダウンロードしたのですが削除しようとすると 「ファイル名の長さは、対象のファイルに対して長すぎる可能があります  短いファイル名に変更してください。」 とうい感じのメッセージが出て削除できません。 右クリックでも名前の変更というが出てこないためファイル名も変更できません。 ちなみにそのファイルがあるのはJドライブの○○フォルダーの中のDLというフォルダーの中に入っています。 消せないファイルを削除するソフトなども使いましたが同じフォルダーにある他のファイルは出てくるのに そのファイルだけが表示されずだめでした。D&Dもできるのですがそれもだめです。 困っています。誰か助けてください。 よろしくお願いいたします。