Using VBA to create new folder & transfer files ?

[liamfitz]

The following code , SHOULD create a new folder, and then transfer ALL files in the old folder to the new one ...

Do While fdr <> ""
               tempStr = fdr
               If tempStr <> "" Then
                  OldPathName = strRootFolder & rst!Forename & "_" & rst!Surname & "_" & theDOB & "\" & rst!Referral_ID & "\" & tempStr & ""
                  NewPathName = strRootFolder & rst!Forename & "_" & rst!Surname & "_" & theDOB & "\" & refid & "\" & tempStr & ""
                  Name OldPathName As NewPathName
                  fdr = Dir
               End If
               tempStr = ""
           Loop

However, I get an error 'File not found', when I know it does, and the 'Pathnames' appear to be correct. Any suggestions, gratefully received.

 

[liamfitz]

Problem solved. Just changed code a bit - works a treat. Thanks.