FileSystemObject(VBScript)でFD内のファイル、フォルダを削除

こんにちは。
OSはWIN2K,WSH 5.0を使用しています。
FD内のファイル・フォルダを全て削除したいのですが、
DeleteFile,DeleteFolderをただ記述しただけでは、
ファイル、フォルダが存在しない場合エラーで停止
してしまいます。
どんなファイル・フォルダが存在、或いは存在して
いなくとも、FD内を正しく初期化する方法はありま
すでしょうか？
どうぞ、よろしくお願いいたします。

No.2 ベストアンサー 回答者： kumadayo 回答日時： 2004/11/01 02:22

#1こんなんどうですか＾－＾？

Dim fsys, x

Set fsys = CreateObject("Scripting.FileSystemObject")
For Each x In fsys.GetDrive("a:").RootFolder.SubFolders
x.Delete
Next

For Each x In fsys.GetDrive("a:").RootFolder.Files
x.Delete
Next

この回答へのお礼

kumadayoさん、こんにちは。
No.1の回答とこちらの方では
どちらが効率的なのかは今の
ところわかりませんが、両方
試してみたいと思います。
どうもありがとうございました。

お礼日時：2004/11/01 07:31

No.3 回答者： BLUEPIXY 回答日時： 2004/11/01 02:48

VBScriptからでももちろん、フォルダやファイルを調べながら削除はできますが、

有無を言わさず全て削除したいのですから
format /q
のコマンドを発行すればいいかと思います。

この回答へのお礼

BLUEPIXYさん、こんにちは。
VBScriptにこだわらずとも
いろいろな方法で可能なのですね。
とても参考になりました。
どうもありがとうございました。

お礼日時：2004/11/01 07:33

No.1 回答者： kumadayo 回答日時： 2004/11/01 01:01

FileSystemObjectの

FileExists
FolderExists
メソッドを使って存在を確認してから削除するのは
どうですか＾－＾？

この回答へのお礼

kumadayoさん、こんにちは。
いろいろなメソッドがあるのですね。
どうもありがとうございました。

お礼日時：2004/11/01 07:28