Код:
$sReg_Path = "HKCU\Software\" & @ScriptName
$sKey_Name = "Folder Sufix"
$sDate_Sufix = @MDAY & @MON & @YEAR
$sChars = "0123465789аbcdefghijklmnopqrstuvwxyz_" & $sDate_Sufix
$sRead_Chars = RegRead($sReg_Path, $sKey_Name)
$iError = @error
If $sRead_Chars == "_" & $sDate_Sufix Then Exit
If $iError <> 0 Or Not StringRegExp($sRead_Chars, "[0-9a-z]+_\Q" & $sDate_Sufix & "\E$") Then $sRead_Chars = $sChars
$sSufix_Char = StringLeft($sRead_Chars, 1)
$sFile = FileOpenDialog("Select fie", "", "All files (*.*)")
If @error Then Exit
$sNew_File = StringRegExpReplace($sFile, "\\[^\\]*$", "") & "\" & $sDate_Sufix & $sSufix_Char
FileMove($sFile, $sNew_File)
RegWrite($sReg_Path, $sKey_Name, "REG_SZ", StringTrimLeft($sRead_Chars, 1))
