WSH/フォルダを選択して移動のバックアップ差分(No.1)

バックアップ一覧
現在との差分を表示
ソースを表示
バックアップを表示
WSH/フォルダを選択して移動へ行く。
- 1 (2011-07-17 (日) 12:23:23)

追加された行はこの色です。
削除された行はこの色です。

　ExplorerのContext Menuに表示される「SendTo(送る)」フォルダの項目を選択することで、ファイルやフォルダの移動ができたらちょっと便利かも、と思ってWSHで作ってみました。
　当vbsファイル自体か、そのshortcutをSendToフォルダに置くと使えます。

*** MoveTo.vbs [#z51bb161]
#ref(MoveTo.vbs);
 '
 ' 引数で指定されたファイル・フォルダを
 ' フォルダ選択ダイアログで選択したフォルダへ移動する。
 ' 当ファイル自体かそのshortcutを、SendToフォルダに置くと便利かも。
 '
 ' @author Jomora( kazuhiko@jomura.net http://jomura.net )
 ' @version 2011.07.17 初版作成
 
 
 '**Start Encode**
 
 
 Dim objShell    ' Shell オブジェクト
 Dim objFSO      ' FileSystem オブジェクト
 Dim objFolder   ' 移動先フォルダ
 
 Set arg = WScript.Arguments
 If arg.Count = 0 Then
     WScript.Quit
 End If
 
 Set objShell = WScript.CreateObject("Shell.Application")
 Set objFolder = objShell.BrowseForFolder(0, "移動先フォルダを選択してください。", 0, 17)
 If objFolder Is Nothing Then
     WScript.Quit
 End If
 
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 For i=0 to arg.Count - 1
 '    WScript.Echo arg(i) & " -> " & objFolder.Items.Item.Path & "\"
     If objFSO.FolderExists(arg(i)) Then
         'フォルダを移動
         objShell.Namespace(objFolder.Items.Item.Path).MoveHere objShell.NameSpace(arg(i))
     ElseIf objFSO.FileExists(arg(i)) Then
         'ファイルを移動
         objFSO.MoveFile arg(i), objFolder.Items.Item.Path & "\"
     End If
 Next
 
 Set objFolder = Nothing
 Set objFSO = Nothing
 Set objShell = Nothing

WSH/フォルダを選択して移動 のバックアップ差分(No.1)

WSH/フォルダを選択して移動のバックアップ差分(No.1)