ディレクトリ内のファイルの処理


  ディレクトリをごみ箱へ移動



この処理も zip 圧縮と同じく非同期処理です。移動処理なので、移動元が無くなるまで待ちます。

※ ごみ箱の特殊フォルダとしての番号は 10 です ( ssfBITBUCKET = 0xa )。
※ 試していませんが、Shell.NameSpace( 10 ) が使えると思います。

  
Set objFolder = Shell.BrowseForFolder( 0, "フォルダ選択", 11, 0 )
if objFolder is nothing then
	WScript.Quit
end if
if not objFolder.Self.IsFileSystem then
	WScript.Echo "ファイルシステムではありません"
	WScript.Quit
end if

Set objDelFolder = Shell.NameSpace( "::{645FF040-5081-101B-9F08-00AA002F954E}" )

Call objDelFolder.MoveHere( objFolder.Self, 0 )
strPath = objFolder.Self.Path

' 移動元が無くなるまで待つ
Do
	Set obj = Shell.NameSpace( strPath )
	if obj is Nothing then
		Exit Do
	end if
	Set obj = Nothing
	WScript.Sleep 500
Loop
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加




SQLの窓  天気  IT用語辞典
Yahoo!ニュース  マルチ辞書
PHP マニュアル  Google URL短縮 


フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ