WSH/フォルダを選択して移動
をテンプレートにして作成
Search in
this wiki
and
or
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
ExplorerのContext Menuに表示される「SendTo(送る)」フォ...
当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, "移動先フォ...
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...
If objFSO.FolderExists(arg(i)) Then
'フォルダを移動
objShell.Namespace(objFolder.Items.Item.Path).Mo...
ElseIf objFSO.FileExists(arg(i)) Then
'ファイルを移動
objFSO.MoveFile arg(i), objFolder.Items.Item.Pat...
End If
Next
Set objFolder = Nothing
Set objFSO = Nothing
Set objShell = Nothing
*** 追伸 2011/07/14 [#jd8164a6]
[[レジストリ追加だけで、コンテキストメニューに「フォル...
終了行:
ExplorerのContext Menuに表示される「SendTo(送る)」フォ...
当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, "移動先フォ...
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...
If objFSO.FolderExists(arg(i)) Then
'フォルダを移動
objShell.Namespace(objFolder.Items.Item.Path).Mo...
ElseIf objFSO.FileExists(arg(i)) Then
'ファイルを移動
objFSO.MoveFile arg(i), objFolder.Items.Item.Pat...
End If
Next
Set objFolder = Nothing
Set objFSO = Nothing
Set objShell = Nothing
*** 追伸 2011/07/14 [#jd8164a6]
[[レジストリ追加だけで、コンテキストメニューに「フォル...
ページ名:
![[Return to Top Page]](image//logo.png "[Return to Top Page]"){kind=logo}
