更改 AutoIT 中特定文件夹扩展名中的所有文件
Change all files from a specific folder extensions in AutoIT
我想使用 AutoIT 将文件夹 "D:/TestFolder"
中的文件扩展名从 .txt
更改为 .pdf
我可以使用哪些功能以及如何使用?
通过下面的函数,你可以灵活的做到:
#include <File.au3>
_RenameFilesByExtInFolder('C:\YOUR_PATH', 'txt', 'log')
Func _RenameFilesByExtInFolder($sPathFolder, $sExtOld, $sExtNew, $fOverwrite=0)
Local $iTrimLen = StringLen($sExtOld)
Local $sPathNew
Local $aFiles = _FileListToArray($sPathFolder, '*.' & $sExtOld, 1, True)
If Not @error Then
For $i = 1 To $aFiles[0]
$sPathNew = StringFormat('%s%s', StringTrimRight($aFiles[$i], $iTrimLen), $sExtNew)
If FileMove($aFiles[$i], $sPathNew, $fOverwrite) Then FileDelete($aFiles[$i])
Next
EndIf
EndFunc
我想使用 AutoIT 将文件夹 "D:/TestFolder"
中的文件扩展名从 .txt
更改为 .pdf
我可以使用哪些功能以及如何使用?
通过下面的函数,你可以灵活的做到:
#include <File.au3>
_RenameFilesByExtInFolder('C:\YOUR_PATH', 'txt', 'log')
Func _RenameFilesByExtInFolder($sPathFolder, $sExtOld, $sExtNew, $fOverwrite=0)
Local $iTrimLen = StringLen($sExtOld)
Local $sPathNew
Local $aFiles = _FileListToArray($sPathFolder, '*.' & $sExtOld, 1, True)
If Not @error Then
For $i = 1 To $aFiles[0]
$sPathNew = StringFormat('%s%s', StringTrimRight($aFiles[$i], $iTrimLen), $sExtNew)
If FileMove($aFiles[$i], $sPathNew, $fOverwrite) Then FileDelete($aFiles[$i])
Next
EndIf
EndFunc