Bapak.. 
boleh copykan coding berikut ini dalam command rename

Dim a As String, b As String
a = [txtFile]
b = [txtFolder]
FileCopy a, b & "\" & [txtFileBaru] & "." & Right (txtFile, 3)

Semoga bisa membantu..

Kirim email ke