[Файловая система] Переименование файла по шаблону

FileCopy("d:\Link.au3", 'd:\'&@SEC & @ScriptName,8)

#include <File.au3>

$sDir = @ScriptDir & '\Dir'
$sFileSearch = '*Link*.au3'; любые файлы au3, имеющие в имени Link или link
$iCount = 0
$aFile = _FileListToArray($sDir, $sFileSearch, 1)
If @error Then
	Switch @error
		Case 4
			MsgBox(64, 'Info', 'Нет файлов ' & $sFileSearch)
			Exit
		Case Else
			MsgBox(16, 'Error', 'Error')
			Exit
	EndSwitch
EndIf
For $i = 1 To $aFile[0]
	$sFileName = StringRegExpReplace($aFile[$i], '.*\\|\.[^.]*$', '')
	$sFileExt = StringRegExpReplace($aFile[$i], '^.*\.', '')
	$iNumber = StringRegExpReplace($sFileName, '[^0-9]', '')
	$sFile = StringRegExpReplace($sFileName, '[0-9_]', '')
	If Not $iNumber Then
		$sFile = $sFile & '_1.' & $sFileExt
	Else
		$sFile = $sFile & '_' & Number($iNumber) + 1 & '.' & $sFileExt
	EndIf
	If FileMove($sDir & '\' & $aFile[$i], $sDir & '\' & $sFile, 1) Then
		$iCount += 1
	EndIf
Next
MsgBox(64, 'Info', 'Найдено файлов ' & $sFileSearch & ': ' & $aFile[0] & @LF & _
		'переименовано файлов: ' & $iCount)

#include <WinAPIEx.au3>

$sFolder = @ScriptDir & '\TestFolder\Test'
$sFile = '\test.txt'

For $i = 0 To 4999
	If Not Mod($i, 999) Then ;если 1000, то файлы "теряются" (каждый тысячный)
		$sFolder = _WinAPI_PathYetAnotherMakeUniqueName($sFolder)
	EndIf
	$sPath = $sFolder & $sFile
	$hFile = FileOpen(_WinAPI_PathYetAnotherMakeUniqueName($sPath), 10)
	FileWrite($hFile, $i + 1)
	FileClose($hFile)
Next

$sFolder = 'some_folder_with_all_files'
;$sFolder = @ScriptDir
$sRootFile = 'Link.au3'
$aRootFile = StringSplit($sRootFile, '.')
$sRootName = ''
For $i = 1 to $aRootFile[0] - 1
    $sRootName &= $aRootFile[$i]
Next
$sRootExt = $aRootFile[$aRootFile[0]]
If Not FileExists($sFolder & '\' & $sRootFile) Then
    MsgBox(0, '', 'Root file not found')
    Exit
EndIf
$ind = 1
$fDo = False
Do
    If Not FileExists($sFolder & '\' & $sRootName & $ind & '.' & $sRootExt) Then
        If Not FileExists($sFolder & '\' & $sRootName & $ind - 1 & '.' & $sRootExt) Then
            FileCopy($sFolder & '\' & $sRootFile, $sFolder & '\' & $sRootName & '1.' & $sRootExt)
        Else
            FileCopy($sFolder & '\' & $sRootName & $ind - 1 & '.' & $sRootExt, $sFolder & '\' & $sRootName & $ind & '.' & $sRootExt)
        EndIf
        $fDo = True
    EndIf
    $ind += 1
Until $fDo

ConsoleWrite(_FileNewNameEx(@ScriptName, @ScriptDir))

Func _FileNewNameEx($sFileName, $sDir, $iExt_Mod = -1, $sDelim1 = -1, $sDelim2 = -1)
	If Not StringInStr(FileGetAttrib($sDir), "D") Then Return $sFileName
	If Not FileExists($sDir & "\" & $sFileName) Then Return $sFileName
	
	$sDir = StringRegExpReplace($sDir, "\\ *$", "")
	
	Local $sName = StringRegExpReplace($sFileName, "\.[^.]*$", "")
	If $iExt_Mod <> -1 Then $sName = StringRegExpReplace($sFileName, "\.[^.]*(\.[^.]*$|$)", "")
	
	If $sDelim1 = -1 Then $sDelim1 = " ("
	If $sDelim2 = -1 Then $sDelim2 = ")"
	
	Local $sDelim1_RE = StringRegExpReplace($sDelim1, '([][{}()|.?+*\\^])', '\\\1')
	Local $sDelim2_RE = StringRegExpReplace($sDelim2, '([][{}()|.?+*\\^])', '\\\1')
	
	Local $iDelim_Num = StringRegExpReplace($sName, ".*" & $sDelim1_RE & "(.*)" & $sDelim2_RE & ".*$", "\1")
	If @extended = 0 Then $iDelim_Num = 0
	
	$iDelim_Num = Number($iDelim_Num)
	
	Local $sExtn = StringRegExpReplace($sFileName, "^.*\.", ".")
	If @extended = 0 Then $sExtn = ""
	
	Local $iCount = $iDelim_Num + 1, $sRet_FileName = $sFileName
	
	While FileExists($sDir & "\" & $sRet_FileName)
		If $iDelim_Num > 0 Then
			$sRet_FileName = StringRegExpReplace($sRet_FileName, _
				"(.*)" & $sDelim1_RE & $iDelim_Num & $sDelim2_RE, "\1" & $sDelim1 & $iCount & $sDelim2)
			
			$iDelim_Num += 1
		Else
			If $sDelim1 <> -1 And $sDelim2 <> -1 Then
				$sRet_FileName = $sName & $sDelim1 & $iCount & $sDelim2 & $sExtn
			ElseIf $sDelim1 <> -1 And $sDelim2 = -1 Then
				$sRet_FileName = $sName & $sDelim1 & $iCount & $sExtn
			EndIf
		EndIf
		
		$iCount += 1
	WEnd
	
	Return $sRet_FileName
EndFunc

#include <File.au3>

$sDir = @ScriptDir & '\Dir'
$sNewFile = 'Link.au3'
$sFileSearch = '*Link*.au3'; любые файлы au3, имеющие в имени Link или link

For $j = 1 To 10
	$iCountRename = 0
	$hFile = FileOpen($sDir & '\' & $sNewFile, 2)
	FileWrite($hFile, $j)
	FileClose($hFile)

	$aFile = _FileListToArray($sDir, $sFileSearch, 1)
	If @error Then
		Switch @error
			Case 4
				MsgBox(64, 'Info', 'Нет файлов ' & $sFileSearch)
				Exit
			Case Else
				MsgBox(16, 'Error', 'Error')
				Exit
		EndSwitch
	EndIf
	For $i = $aFile[0] To 1 Step -1
		$sFileName = StringRegExpReplace($aFile[$i], '.*\\|\.[^.]*$', '')
		$sFileExt = StringRegExpReplace($aFile[$i], '^.*\.', '')
		$iNumber = StringRegExpReplace($sFileName, '[^0-9]', '')
		$sFile = StringRegExpReplace($sFileName, '[0-9_]', '')
		If Not $iNumber Then
			$sFile = $sFile & '_1.' & $sFileExt
		Else
			$sFile = $sFile & '_' & $iNumber + 1 & '.' & $sFileExt
		EndIf
		If FileMove($sDir & '\' & $aFile[$i], $sDir & '\' & $sFile, 1) Then
			$iCountRename += 1
		EndIf
	Next
	MsgBox(64, 'Info_' & $j, 'Найдено файлов ' & $sFileSearch & ': ' & $aFile[0] & @LF & _
			'переименовано файлов: ' & $iCountRename)
Next
MsgBox(64, 'Info_All', 'Найдено файлов ' & $sFileSearch & ': ' & $aFile[0] & @LF & _
		'переименовано файлов: ' & $iCountRename)

$sFolder = 'some_folder_with_all_files'
;$sFolder = @ScriptDir
$sRootFile = 'Link.au3'
$aRootFile = StringSplit($sRootFile, '.')
$sRootName = ''
For $i = 1 to $aRootFile[0] - 1
    $sRootName &= $aRootFile[$i]
Next
$sRootExt = $aRootFile[$aRootFile[0]]
If Not FileExists($sFolder & '\' & $sRootFile) Then
    MsgBox(0, '', 'Root file not found')
    Exit
EndIf
$ind = 1
$fDo = False
Do
    If Not FileExists($sFolder & '\' & $sRootName & $ind & '.' & $sRootExt) Then
        FileCopy($sFolder & '\' & $sRootFile, $sFolder & '\' & $sRootName & $ind & '.' & $sRootExt)
        $fDo = True
    EndIf
    $ind += 1
Until $fDo