Move files and subfolders from one folder to another (1 Viewer)

[guestbb]

So what I want is to move (or copy then kill the files on the old location) all of the all of files and subfolders (if there are any) from one folder to another.
I have made it to move files but not subfolders. Does anyone have solution for making it move/copy subfolders?

Dim OldPath As String
Dim NewPath As String
Dim FnameAs String

Fname = Dir(OldPath & "*.*")
    Do While Fname <> ""
        Name OldPath & Fname As NewPath & Fname
        Fname = Dir
    Loop

 

[spikepl]

http://lmgtfy.com/?q=access+move+folder

 

[guestbb]

I google all of that but it isnt what I need.
It needs to check automatically for all files and subfolders, grab their name and then move them.
On all of the code I could find its the person that is typing the subfolder names and that is not what I want. If I have a subfolder I want the code to get is name then move it to a new location.

 

[guestbb]

Solved

Fname = Dir(OldPath & "*.*")
    Do While Fname <> ""
        Name OldPath & Fname As NewPath & Fname
        Fname = Dir
    Loop
    
    Set FSO = CreateObject("Scripting.FileSystemObject")
    FSO.CopyFolder OldPath, NewPath, True
    Set FSO = Nothing