- お前ら、wsh使ってますか? Part8
234 ：名無し~3.EXE[sage]：2011/08/27(土) 00:26:04.52 ID:Gxo9AMAs - >>233
ありがとう！
Win7でもvbs実行で正常にごみ箱が空になりました
|
- お前ら、wsh使ってますか? Part8
235 ：名無し~3.EXE[sage]：2011/08/27(土) 00:31:50.43 ID:Gxo9AMAs - >>233
せっかく教えてもらったのに確認ダイアログが出るコードはこちらでした orz
-----------------------------------------------------------
Option Explicit
Dim Folder
Set Folder=CreateObject("Shell.Application").NameSpace(10)
If Folder.Items().Count=0 Then
WScript.Echo "ごみ箱は空です。"
Else
Folder.Self.InvokeVerb "ごみ箱を空にする(&B)"
End If
------------------------------------------------------------
申し訳ないですが↑のどこが悪いのか教えてください
|
- お前ら、wsh使ってますか? Part8
237 ：名無し~3.EXE[sage]：2011/08/27(土) 02:26:41.74 ID:Gxo9AMAs - >>236
ありがとうございます
自身でもわからないながら色々ggってみてはいますが
Folder.Self.InvokeVerb "ごみ箱を空にする(&B)" をとりあえずWScript.Echo "入ってますが何か？"に置き換えて
ここまではOKで、削除でコケてるということまでは理解できました
言われるようにVista以降のUAC絡みの問題なのかもしれませんが
自身でももう少し調べてみます
もし他にわかる方いらっしゃいましたら宜しくお願いします
|
- お前ら、wsh使ってますか? Part8
240 ：名無し~3.EXE[sage]：2011/08/27(土) 12:35:55.97 ID:Gxo9AMAs - >>238-239
変えてみましたが動きませんでした
削除されずに"waithing"が表示されるだけです
>>238のは>>236の
Folder.Self.Verbs().Item(2).DoIt()
↓
Folder.Self.Verbs().Item(2).DoIt
で合ってますよね？
|
- お前ら、wsh使ってますか? Part8
242 ：名無し~3.EXE[sage]：2011/08/27(土) 14:19:33.04 ID:Gxo9AMAs - ありがとうございます
Win7 x86 SP1での動作もばっちりokでした！
>>236、>>238のお二方に心から感謝します
おかげさまでexe化してタスクバーピン化することもできて快適になりました
|