2016-07-12 2 views

답변

3

, 당신은 유연하게 수행 할 수 있습니다

#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 
관련 문제