Code is not working

[VeeBa]

Hello Experts - I have below code which transfers the file (Gross Contribution Report) inside the subfolder (and override the same file inside this subfolder). However, nothing is happening whenever i'm running below code. Can someone help me understand what's wrong. For visualization purposes. I have a main folder named "Reports" inside this folders are subfolders. And inside these subfolders, there's a file (Gross Contribution Report) and another subfolder named "Previous FF". What I wanted to do is to transfer the file inside the Previous FF folder and override the file inside it.

Sub Test()
Dim F As String
Dim Folder As String
Dim path As String
Set objFSO = CreateObject("scripting.filesystemobject")
mFolder = Environ("USERPROFILE") & "\Desktop\Reports\" '-----------------do not need to change this path----
Set mainfolder = objFSO.GetFolder(mFolder)
On Error Resume Next
For Each mySubfolder In mainfolder.SubFolders '--this will give you the path of subfolders-----
'Debug.Print mysubfolder
cname = Right(mySubfolder, Len(mySubfolder) - Len(mFolder)) '----to find out the country name----
'Debug.Print cname
F = "Gross Contribution Report" '----mention the name of your file---
sourcelocation = mySubfolder & cname & F & ".xlsx"
Destination = mFolder & cname & "\Previous FF\" '----This is the destination for archive file which I have taken inside country folder------
'Debug.Print sourcelocation
'Debug.Print Destination
objFSO.movefile sourcelocation, Destination
Next
End Sub

 

[pvr928]

Hi Veeba

Comment out the line:

On Error Resume Next

run the code, and see what happens.

Cheers

pvr928

 

[VeeBa]

Hi Veeba

Comment out the line:

On Error Resume Next

run the code, and see what happens.

Cheers

pvr928

Nothing is happening

 

[pvr928]

Type

Option Explicit

at the top of the code module. This forces you to declare all of your variables.

Run the code after having done this and let me know what happens.

PS you don't have to include a quote each time you reply.

 

[VeeBa]

I did this. But still not working The file is not moving into the Previous FF folder.

 

[pvr928]

Ok

Uncomment the

Debug.Print

statements, show the 'Immediate Window' [VBE - View - Immediate Window], then step through the code using 'F8'.

See whether the output from the Debug.Print statements match exactly the folder structure and file names you are wanting to manipulate.

Also, change:

objFSO.movefile sourcelocation, Destination

to

objFSO.MoveFile (sourcelocation, Destination)

 

[pvr928]

Have you included a scripting reference to the file object?

 

[VeeBa]

Below part is not working, im encountering compile error

objFSO.MoveFile (sourcelocation, Destination)

How do I do this? Sorry I'm quite new to vba
Have you included a reference to the file object?

I tried everything you said, but still, nothing is happening.. there's no debug error but nothing is happening. File is still outside the folder

 

[pvr928]

Are you sure you have included the statement

Option Explicit

at the top of your code?

 

[VeeBa]

Tried it again,

I encountered error on line below, specific for objFSO. It said variable not defined

Set objFSO = CreateObject("scripting.filesystemobject")