$sPath = @ScriptDir & '\Temp'
$hSearch = FileFindFirstFile($sPath & '\*.*') ; возвращает дескриптор поиска, определяющий путь и маску
; Проверка, является ли поиск успешным
If $hSearch = -1 Then
MsgBox(4096, "Ошибка", "Ни один из файлов или каталогов не соответствует маске поиска")
Exit
EndIf
While 1
$sFile = FileFindNextFile($hSearch) ; возвращает имя следующего файла, начиная от первого до последнего
If @error Then ExitLoop
If @extended Then
$sType = 'Каталог: '
Else
$sType = 'Файл: '
EndIf
ConsoleWrite($sFile & @CRLF)
$sFiles = StringRight($sFile, StringInStr($sFile, "_", 0, -1) - 1)
ConsoleWrite($sFiles & @CRLF)
FileMove($sPath & '\' & $sFile, $sPath & '\' & $sFiles)
WEnd
; Закрывает дескриптор поиска
FileClose($hSearch)