copy file to new folder

[Deen]

I write code below for the command button :-

Private Sub Cmd3_Click()

Dim fso As New FileSystemObject

fso.CopyFile "C:\FOLDER_1\IMG", "C:\FOLDER_2", True

End Sub

- But after I cilck the button, I get this message = "Path not found".

- Can someone help me with this code.

 

[Tom Wickerath]

Do you have a file named "IMG" without an extension in the folder named
Folder_1? I suspect that IMG is actually a folder, perhaps for images? If
so, try this:

fso.CopyFile "C:\FOLDER_1\IMG\*.* ", "C:\FOLDER_2", True

or this, if IMG was actually a file:

fso.CopyFile "C:\FOLDER_1\IMG.* ", "C:\FOLDER_2", True


Tom Wickerath
Microsoft Access MVP
https://mvp.support.microsoft.com/profile/Tom
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________

 

[Deen]

Actualy "IMG" is for my JPEG file name. Your code working good, thank you Tom.

Sorry to ask one more question,

Can I rename that file after been copy to the new folder ?