[Creat0R]

не будет с чем сравнить, переименованный файл отправляется по почте и тем самым удаляется из каталога »

Тогда примерно так:

Код:

$sFile = FileOpenDialog("Select fie", "", "All files (*.*)")
If @error Then Exit

$sReg_Path = "HKCU\Software\" & @ScriptName
$sKey_Name = "Folder Sufix"
$sChars = "0123465789аbcdefghijklmnopqrstuvwxyz"
$sRead_Chars = RegRead($sReg_Path, $sKey_Name)
If $sRead_Chars = "" Then $sRead_Chars = $sChars
$sSufix_Char = StringLeft($sRead_Chars, 1)

RegWrite($sReg_Path, $sKey_Name, "REG_SZ", StringTrimLeft($sRead_Chars, 1))

$sPath = StringRegExpReplace($sFile, "\\[^\\]*$", "")
FileMove($sFile, $sPath & "\" & @MON & StringRight(@YEAR, 2) & $sSufix_Char)