[kaster]

shadowbat, а почему ты не хочешь изучить основы языка и самому реализовать такие простые вещи? тут главное нормально составить алгоритм и знать английский язык
попробуй вот так

Код:

#include <file.au3>
$MAX_PATH = 200
Global $sFolder = FileSelectFolder("Choose folder to processing", ""); Путь до папки содержащий файлы, которые надо обрезать
;Exit
If @error Then
	MsgBox(48, 'Warning', 'The folder hasn''t been chosen. Script will be shut down now.', 3)
	Exit
EndIf
_Main($sFolder)
Func _Main($path)
	$aFiles = _FileListToArray($path, "*.txt", 1)
	$aFolders = _FileListToArray($path, "*.txt", 2)
	If Not IsArray($aFiles) AND Not IsArray($aFolders) Then 
		Return "" ;No files/folders found
	EndIf
	For $j = 1 to $aFolders[0]
		$newpath = $path & '\' & $aFolders[$j]
		_Main($newpath)
	Next
	For $i = 1 to $aFiles[0]
	$sLongName = $path & '\' & $aFiles[$i]
	_Renamer($sLongName)
Next

EndFunc

Func _Renamer($name)
	$name_NoExt = StringTrimRight($name, 4); Название без расширения
	$name_Ext = StringRight($name, 3); Расширение
	$newname_NoExt = StringLeft($name_NoExt, $MAX_PATH); Обрезаем название файла без расришения до длины MAX_PATH
	$newname = $newname_NoExt & "." & $name_Ext; Добавляем расширение
	FileMove($name, $newname);Переименовывем файл
EndFunc

опять же, пробуй на свой страх и риск на тестовой файловой структуре с папками, подпапками и нужными файлами