Visual Basic 2005を使っています。
現在、複数の拡張子をサブフォルダ内も含めて検索し、削除するというものを作ったのですが、それ以外のファイルを削除する方法が分かりません。
作ったプログラムは下のものですがどうすればよいでしょうか?
よろしくお願いします。(宣言の部分は省略させてもらっています)
a = "場所" //(c\・・・)//
if a <> "" then
b = system.IO.Directory.GetFiles
(a,"*.txt",IO.SeachOption.AllDirectories)
for i=0 tob.lengh-1
My.computer.FileSystem.DeleteFile(b(i))
Next
End if
If ・・・(ここから繰り返して拡張子を増やしています)
No.2ベストアンサー
- 回答日時:
VBは使ったことがないので、正しい文法がわかりませんが、ファイル名(あるいはファイルパスが戻り値なのかも?)の右から、拡張子の文字数分を取って比較すればいいのでは?
.txt以外という場合ならこんな感じ?(正しい文法に修正してください)
if right(b(i), 4)<>".txt"
早い回答ありがとうございます。
さっそくやってみようと思います!!
ただ、できない場合また質問をさせていただくかもしれないので時間があればでいいのでよろしくお願いします。
No.1
- 回答日時:
ある拡張子以外のものは削除したいと言う意味でしょうか?
bに全部のファイルを入れておいて、deleteの前に、指定拡張子以外であることを判断して削除するようにすれば良いのでは?
(dllとかシステムファイルとか削除しないように気をつけないと…)
返事が遅くなってしまいましたがありがとうございました。
一応if以下をElse ifとElseを使いやってみたのですが、うまくいきません……
基本的なことだとは思うのですがどうやって拡張子以外であることを判断させればよいでしょうか?
よろしければ教えていただけないでしょうか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- ノートパソコン ソフトアンインストール残存ファイル 3 2022/09/13 18:15
- Visual Basic(VBA) VBA 行削除した連番 4 2023/06/27 16:00
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- Visual Basic(VBA) Excelで下記のようにマクロを作ったところ、一回目は実行できたのですが、二回目以降「実行時エラー1 1 2022/03/25 08:08
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サブフォルダ内のファイルを全...
-
拡張子のアイコンを取得
-
ネットワークドライブ先のファ...
-
指定したフォルダ直下のファイ...
-
日付を指定しファイルを削除す...
-
C#でCSVファイルをリストビュー...
-
タスクバーのファイル表示について
-
EXCELのSheetを自動更新できな...
-
日本語プログラミング「なでしこ」
-
Thunderbird 振り分けされなく...
-
元のフォルダに矢印キーで帰りたい
-
大量のフォルダへのハイパーリ...
-
Tera Termでのコマンド流し込み...
-
xcopyバッチを管理者として実行...
-
フォルダのサムネイル画像
-
centos7で、rshコマンドが使用...
-
コマンドの戻り値が「130」
-
ブラウザにIPアドレスを直打ち...
-
【Ciscoコマンド】interface As...
-
C:\\Documents and Settingsが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
サブフォルダ内のファイルを全...
-
error RC2104について
-
C#でCSVファイルをリストビュー...
-
EXCELのSheetを自動更新できな...
-
VBA Bookの表示、非表示
-
フォルダ内検索
-
指定したフォルダ直下のファイ...
-
サクラエディタに使用できるvbs...
-
リストボックスに表示されたフ...
-
fgetsのfはどういう意味でしょ...
-
エクセルVBAとJavaの関係は?
-
日付を指定しファイルを削除す...
-
日本語プログラミング「なでしこ」
-
指定したもの以外の削除方法
-
顧客から返ってきたExcel Sheet...
-
IE6で横スクロールバーを消す...
-
意味不明のアイコンとプログラ...
-
拡張子のアイコンを取得
-
アンインストール中のファイル...
-
アイコンの不思議???
おすすめ情報