[belajar-access] Re: Rename File

[End]

Bapak.. Boleh coba kembali dengan coding berikut ini

Dim a As String, b As String, ekstensi As String
a = [txtFile]
b = [txtFolder]
ekstensi = InStr(Right(txtFile, 4), ".")
Select Case ekstensi
       Case "0"
               FileCopy a, b & "\" & [txtFileBaru] & "." & Right(txtFile, 4)
       Case "1"
               FileCopy a, b & "\" & [txtFileBaru] & "." & Right(txtFile, 3)
End Select

Semoga Bisa Membantu..