Copy excel to new folder path - break

[godzilla185]

Hi wonderful excel masters of the internet!

I am trying to copy an excel file from one folder to another. This excel file always has the same name, but the date changes to current date.

I have the below code but every time I try and execute it tells me "Specified File Not Found".

I have used this code for other excel copy pastes before--the only difference with the other excels is that the file names were 'date first then text', whereas this is 'text then date'

Sub TestFileMove()

Dim FSO
Dim sFile As String
Dim sSFolder As String
Dim sDFolder As String

'This is Your File Name which you want to Copy
sFile = "test_" & Format(Now, "yyyymmdd") & ".csv"

'Change to match the source folder path
sSFolder = "C:\Users\name\Downloads"

'Change to match the destination folder path
sDFolder = "C:\Users\name\Documents"

'Create Object
Set FSO = CreateObject("Scripting.FileSystemObject")

'Checking If File Is Located in the Source Folder
If Not FSO.FileExists(sSFolder & sFile) Then
MsgBox "Specified File Not Found", vbInformation, "Not Found"

'Copying If the Same File is Not Located in the Destination Folder
ElseIf Not FSO.FileExists(sDFolder & sFile) Then
FSO.CopyFile (sSFolder & sFile), sDFolder, True
MsgBox "Specified File Copied Successfully", vbInformation, "Done!"
Else
MsgBox "Specified File Already Exists In The Destination Folder", vbExclamation, "File Already Exists"
End If


End Sub

 

[Joe4]

I think you are missing the slash after the last folder, i.e.

'Change to match the source folder path
sSFolder = "C:\Users\name\Downloads"

'Change to match the destination folder path
sDFolder = "C:\Users\name\Documents"

should be:

'Change to match the source folder path
sSFolder = "C:\Users\name\Downloads\"

'Change to match the destination folder path
sDFolder = "C:\Users\name\Documents\"

Otherwise there is no slash after the last folder and the file name here:

sSFolder & sFile

 

[godzilla185]

Thanks Joe. I was missing a darn slash which was causing everything to break! hahaha

 

[Joe4]

You are welcome.
Glad I was able to help!