• 締切済み

vbsでゴミ箱への移動

こんにちわ。 vbsであるフォルダ内のファイルを全てゴミ箱に移動させたいのですが ゴミ箱のパスはどう指定したらいいのでしょうか。 初心者的質問ですみません。

みんなの回答

回答No.2

VB/VBAと異なり、VBSではAPIは利用できないので、 次のようにします。 Const ssfBITBUCKET = 10 Set o = CreateObject("Shell.Application") Set n = o.Namespace(ssfBITBUCKET) n.movehere "c:\temp\test.txt" '削除処理が完了するまえに、非同期でスクリプトは進行します。 'このため、削除処理が終わる前にスクリプトが終了すると削除処理はキャンセルされます。 'ファイルがなくなるまで、ここで空ループさせるべきですが 'とりあえずmsgboxで時間をかせぎ、このような事態を回避します。 msgbox "削除しました"

noname#78947
noname#78947
回答No.1

ゴミ箱にはファイルパスが無いので通常の方法でファイルを移動出来ません。 http://hanatyan.sakura.ne.jp/vbhlp/fil_Delete.htm 上記のページを参考にAPI関数を利用した方法を行ってください。

関連するQ&A

  • ごみ箱に入れたファイルが移動できない

    誤ってごみ箱へ入れてしまったファイルを元のフォルダに戻したいのですが 「ファイルまたはフォルダの移動エラー 移動できません。ほかの人またはプログラムによって使用されています。 ファイルを使用している可能性があるプログラムをすべて閉じてから、やり直してください。」 というアラートがでます。 再起動しましたが同じ結果でした。 必要なファイルなので削除はできません。 参考になるかと他の「削除できない」という質問も見ましたが初心者なのでちんぷんかんぷんです。 よろしくお願い致します。

  • VBSによるファイルコピー

    教えてください。 Aフォルダの中にファイルが3つ有るとします。 あ.jpg い.jpg COPY.VBS Aフォルダ内 COPY.VBS を実行すると、 あ.jpg→C:\ い.jpg→C:\PIC とファイルを異なる場所に移動したいのです。 上記の処理をする場合、Aフォルダがどちらか 決まった場所に置いて有る(C:\等)の場合は 解るのですが、実行者がAフォルダをどこに 置き実行するか解りません、VBSから見たときに 自分(vbs)と同じフォルダに有るファイル と言うパスで上記のファイル移動を実現する事は 可能でしょうか? 以上よろしくお願いします。

  • ごみばこ

    ゴミ箱を空にしたいと思うんですけど、1つだけ削除できないフォルダがあります。 「ファイルまたはフォルダの削除エラー ○○フォルダを削除できません。指定されたファイルが見つかりません。パスとファイル名を確認してください」 と出ます。 どうしたらこのフォルダを削除することができますか?分かる人がいたら教えてください。

  • バッチファイル→vbsへのカレントディレクトリ情報引渡をしたいです。

    バッチファイル→vbsへのカレントディレクトリ情報引渡をしたいです。 あるフォルダにvbsファイルとそれを実行するためのバッチファイル、vbsで読み込むリストファイルを置いています。 これを現在ログインしているのとは別のユーザで実行したいのですが、ファイルの記述をすべてフルパス指定しなければ動きませんでした。 しかし、フォルダが変わるたびにすべてのパスを書き換えるのが大変なため、以下のように修正を加えたいと思っています。 (1)バッチファイルでvbsを実行する際、カレントディレクトリ情報を取得し、パスを確定。(CDコマンド) (2)vbsファイル実行 (3)(1)のCDコマンドで読み込んだ情報をvbsに引き渡し、リスト読み込み。 バッチファイルからvbsに引き渡す部分、vbsがバッチファイルから受け取る部分の記述が分かりません。 一例を教えていただけないでしょうか?

  • VBSでD&Dファイルの移動をしたい。

    VBSでD&Dファイルの移動をしたい。 VBスクリプトの基本すらあやふやで申し訳ないのですが やりたい事としては D&Dでスクリプトファイルにファイルを落とし (ファイルを何かしらの作業で使用したあと) そのファイルを移動or削除したい。 解説hp見ても パス直撃ちで書いてあるのでd&Dで落としたファイルをどう記述すれば良いか書いてないのでどうしたら良いか分からないので教えて下さい。 イメージとしては PCの何処とも指定無しでd&dでVBSにファイルをドロップ どの場所のファイルも指定の場所(仮)c:\workに移動するor削除 簡単な事だと思いますが是非お力を宜しくお願いします

  • VBSについて

    VBSについて質問です。プログラミング初心者です。 既定フォルダ内のファイルを選択したフォルダ内にコピーするプログラムを組みたく、 色々調べながら作成してみましたが、うまくいきません。 症状として、選択したフォルダではなく、 プログラムを保存しているフォルダにコピーされてしまします。 選択したフォルダに保存するためには、どのようにすればいいでしょうか? また、下記コードがうまくいかない理由も解説もしてくださると大変助かります。 C:\strFrom ←既定のコピー元フォルダ C:\strTo  ←プログラム実行時に選択するコピー先フォルダ C:\VBS   ←プログラムを保存しているフォルダ ※ここにフォルダ名「strTo」で「strFrom」内のファイルが保存される Set objFS = CreateObject("Scripting.FileSystemObject") 'ファイルシステムオブジェクト作成 strFrom = "C:\strFrom" 'コピーするフォルダのパス Set shla = WScript.CreateObject("Shell.Application") 'Shellの呼び出し Set strTo = shla.BrowseForFolder(0, "フォルダを選択して下さい", &H1) 'パス取得 WScript.echo strTo.Items.Item.Path '取得パス確認 objFS.CopyFolder strFrom, strTo 'ファイルコピー

  • ゴミ箱中のもの削除できない!

    ゴミ箱を整理して空にしようとすると、最後、残り一つのフォルダが削除できません!!!ゴミ箱で初めてこういう現象が出た。 下記BOXが出て来ます: 「Kuro(フォルダ名)を削除できません:指定されたファイルが見つかりません。パスとファイル名を確認してください。」 また、このフォルダをディスクトップの上に戻してから開いて、この時点で中の2つのファイルの削除を試みて見ましたが、やはりできません。 下記BOXが出て来ます: 「ファイルを削除できません:ファイルが見つかりません。このファイルは既に削除されているか、移動されています。F5キーを押すと、このフォルダの表示を更新できます。」 2つのファイルとも開けません、以前使った記憶もありません。 一つはwebページ(ソフト?)らしいもの、一つは開かないアプリケーション。 こういう情況なので、 結果的にどうすればフォルダをゴミ箱から完全に削除できますでしょうか? どなたか教えて頂けますか?宜しくお願い致します。

  • Thunderbirdのごみ箱移動について

    Thunderbird1.5での質問です。 IMAPメールフォルダにごみ箱が2つある状態です。 受信メールを削除すると、ごみ箱にメールデータが移動しません。 ごみ箱を1つにしても同じ現象です。 また、アカウントの設定は「メッセージを削除する時に「ごみ箱に 移動する」にしています、。 ローカルフォルダは、問題なくごみ箱に移動します。 どなたかご教授頂けますようお願いします。

  • 自動的にファイルをゴミ箱へ移動する方法

    宜しくお願いします。 windows2000を使ってますが、macからファイルを送ると必ずへんてこな不可視フォルダが出来てしまいます。それも、サブフォルダ内全てに。。よく分からない不可視フォルダで中を見ても何も入ってないんです。なんとなく嫌なので、毎回手動でゴミ箱に捨てています。いつも同じ名前なので、このフォルダがwin上に出来たら自動的にゴミ箱に移動する方法はないのでしょうか??

  • ごみ箱に移動できない!!!

    ごみ箱にドラッグすると、「対象のフォルダへのアクセスは拒否されました」 こう出てきてごみ箱に移動できないものがあります。 別にごみ箱でなくてもいいので、デスクトップから消したいものを消す方法を教えてください。 どうぞよろしくお願いします。

専門家に質問してみよう