| |
>できれば「ファイル名の変更」をしたときに，元のファイル名のファイルが消えて
>くれると，整理しやすくて便利なのですが．私の場合．
ちょっとウザったいけど、こんなマクロを実行するのではだめ？
----
$fname = input("新ファイル名？", basename);
runsync "cmd.exe /C ren \"" + filename + "\" " + $fname;
changename $fname;
----
cmd.exe の コマンドプロンプトが一瞬でるのが気になって仕方がないなら、
---- c:\ren.vbs
Set args = Wscript.Arguments
if args.Count <> 2 then
MsgBox "引数が不正です。" & vbCRLF & "第１引数：変更前ファイル名" & vbCRLF
& "第２引数：変更後ファイル名"
WScript.Quit
end if
Set fs = CreateObject("Scripting.FileSystemObject")
Set objFile = fs.GetFile(Wscript.Arguments.Item(0))
objFile.Move Wscript.Arguments.Item(1)
----
のようなスクリプトを用意して
----
$fname = input("新ファイル名？", basename);
runsync "wscript \"C:\\ren.vbs\" \"" + filename + "\" \"" + $fname + "\"" ;
changename $fname;
----
のマクロでよびだすとか。
|
|