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