カレントディレクトリ上でのファイル＆フォルダの削除

INS 2008-06-12 01:08:06 No: 139893

大変、初歩的な質問ですが、カレントディレクトリ上で、
VBSを実行して、カレント上のすべてのファイル＆フォルダを
クリアしたいと思っております。いろいろためしているのですが、
うまくいかない状況です。以下を実行すると「パスがみつかりません。」となり、ご教授頂ければ幸いに思います。

Set objWshShell = CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")

strCurrentDir = objWshShell.CurrentDirectory
strTempFolder = strCurrentDir & "\*"
set objFolder = objFS.GetFolder(strTempFolder)
objFolder.Delete true

やじゅ 2008-06-12 21:46:17 No: 139894

ワイルドカードはつかえにゃい
※試してないので動作未確認
strTempFolder = strCurrentDir
set objFolder = objFS.GetFolder(strTempFolder)
For Each objFolder In objTempFolder.SubFolders
objFolder.Delete true
Next

INS 2008-06-13 02:18:43 No: 139895

返信ありがとうございます。
置き換えてためしていますが・・
うまくいかず・・