for possible future seekers
Multi-Script does the trick (box with filename only), ext stays the same:function main()
{
@var $arrfullpath = GetSelectedPaths();
@var $arrnames = GetSourceSelectedFileNames();
@var $count = arrayCount($arrnames);
if ($count == 1)
{
@var $fullpath = $arrfullpath[0];
@var $name = $arrnames[0];
@var $dotpos = StrRegExpFind($name, '\.[^.]*$');
@var $base;
@var $ext;
if ($dotpos == -1 || $dotpos == 0)
{
$base = $name;
$ext = "";
}
else
{
$base = StrSub($name, 0, $dotpos);
$ext = StrSub($name, $dotpos, -1);
}
@var $newbase = AskText("Rename", $base, 0);
if (IsTypeNum($newbase))
{
// user cancelled (Cancel/Escape) - do nothing
}
else if (StrIsEqual($newbase, ""))
{
MessageBox("Rename", "Name cannot be empty.", 0);
}
else
{
@var $newname = $newbase + $ext;
@var $samename = StrIsEqual($newname, $name);
if ($samename == 0)
{
@var $retry = 1;
while ($retry == 1)
{
@var $res = RenameFile( $fullpath, $newname, "" );
if ($res == 1)
{
$retry = 0;
}
else
{
@var $btn = MessageBox("Rename failed", "Could not rename to: " + $newname + "\n\nThe file may be in use by another program (error code: " + $res + ").", 5);
if ($btn != 4)
{
$retry = 0;
}
}
}
}
}
}
else if ($count == 0)
{
MessageBox("Rename", "No file selected.", 0);
}
else
{
MessageBox("Rename", "Please select only one file for this command.", 0);
}
}
main();
If you want two sequential windows, first with filename only, second with extension only:function main()
{
@var $arrfullpath = GetSelectedPaths();
@var $arrnames = GetSourceSelectedFileNames();
@var $count = arrayCount($arrnames);
if ($count == 1)
{
@var $fullpath = $arrfullpath[0];
@var $name = $arrnames[0];
@var $dotpos = StrRegExpFind($name, '\.[^.]*$');
@var $base;
@var $ext;
if ($dotpos == -1 || $dotpos == 0)
{
$base = $name;
$ext = "";
}
else
{
$base = StrSub($name, 0, $dotpos);
$ext = StrSub($name, $dotpos, -1);
}
// strip leading dot for display only
@var $extIsEmpty = StrIsEqual($ext, "");
@var $extNoDot = $ext;
if ($extIsEmpty == 0)
{
$extNoDot = StrSub($ext, 1, -1);
}
Log(0, 10, "RenameNoExt: ext=[" + $ext + "] extNoDot=[" + $extNoDot + "]");
// --- Dialog 1: filename ---
@var $newbase = AskText("Rename - filename", $base, 0);
if (IsTypeNum($newbase))
{
// cancelled dialog 1 - do nothing
}
else if (StrIsEqual($newbase, ""))
{
MessageBox("Rename", "Filename cannot be empty.", 0);
}
else
{
// --- Dialog 2: extension, shown WITHOUT the leading dot ---
@var $newextRaw = AskText("Rename - extension", $extNoDot, 0);
Log(0, 10, "RenameNoExt: newextRaw=[" + $newextRaw + "]");
if (IsTypeNum($newextRaw))
{
// cancelled dialog 2 - do nothing
}
else
{
@var $newext = $newextRaw;
@var $stillHasDot = 1;
while ($stillHasDot == 1)
{
@var $curEmpty = StrIsEqual($newext, "");
if ($curEmpty == 1)
{
$stillHasDot = 0;
}
else
{
@var $firstChar = StrSub($newext, 0, 1);
@var $firstIsDot = StrIsEqual($firstChar, ".");
if ($firstIsDot == 1)
{
$newext = StrSub($newext, 1, -1);
}
else
{
$stillHasDot = 0;
}
}
}
@var $newextEmpty = StrIsEqual($newext, "");
if ($newextEmpty == 0)
{
$newext = "." + $newext;
}
Log(0, 10, "RenameNoExt: final newext=[" + $newext + "]");
@var $newname = $newbase + $newext;
@var $samename = StrIsEqual($newname, $name);
if ($samename == 0)
{
@var $retry = 1;
while ($retry == 1)
{
@var $res = RenameFile( $fullpath, $newname, "" );
Log(0, 10, "RenameNoExt: RenameFile returned [" + $res + "]");
if ($res == 1)
{
$retry = 0;
}
else
{
@var $btn = MessageBox("Rename failed", "Could not rename to: " + $newname + "\n\nThe file may be in use by another program (error code: " + $res + ").", 5);
if ($btn != 4)
{
$retry = 0;
}
}
}
}
}
}
}
else if ($count == 0)
{
MessageBox("Rename", "No file selected.", 0);
}
else
{
MessageBox("Rename", "Please select only one file for this command.", 0);
}
}
main();
Edit: before anyone starts shooting at me - yes, it was written by Claude, tested and run through debugger by me (and took more time than it should).
I know nothing about scripting in MC, that's way I left comments and diagnostic lines Log(...) by Claude, in case someone would like to change/use sth of this.
Edit2: corrections has been made to the scripts; they weren't handling ESC/Cancel, giving "0" in the name . They weren't giving any error message if renaming wasn't possible (file in use etc.).
Recent Posts
