ビューティーラボ

2007年03月25日 [WSH] ファイルをひとつ上の階層へ移動 Set Fso = CreateObject("Scripting.FileSystemObject") Set Arg = WScript.Arguments For i = 0 to Arg.Count - 1   Fso.MoveFile Arg(i),Fso.GetParentFolderName(Fso.GetParentFolderName(Arg(i))) & "¥" & Fso.GetFileName(Arg(i)) Next 上記のコードをコピーして、SendToフォルダに「1つ上へ.vbs」みたいな名前で保存しておくと、ファイルの右クリックメニュー「送る」で、ファイルを一階層上へ移動できるようになる。 このサイトは、こういう感じで、例外処理を万全にしたりかっこいい方法を考えたりすることなく、「自分の手元でだけ動けばいい」と思って書いたような、完成度の低いスクリプトとかを貼ったりする場所にしようと思う。それが俺のラボ。

△ PAGE TOP