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

INS 2008-06-11 16:08:06 No: 139893 IP: 192.*.*.*

大変、初歩的な質問ですが、カレントディレクトリ上で、
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 12:46:17 No: 139894 IP: 192.*.*.*

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

編集削除

INS 2008-06-12 17:18:43 No: 139895 IP: 192.*.*.*

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

編集削除