Macro move file to existing folder by name using filename first left7 digits with a space delimiter

[DeMoNloK]

I'm looking for some help. I started trying to use excel for this project yesterday.
I originally scripted a batch file to run this operation.
The batch works in a small and limited environment.
I tried the batch in a live folder and it was a complete failure with files being multiplied and moved into random folders.

My goal is to move 50+ new .pdf files created everyday using the first 7 digits and an accompanying space to match my Projects folder working structure.
all .pdf will start with a 7 digit number followed by a space between each date and name, the folder structure is set up using the 7 digit naming but has info about the project.
file example; 1234567 4-17-2021 name hr code.pdf Folder example; 1234567 projectName Date with a subfolder of service reports, the service report folder within the main project folder will house all incoming .pdfs'
The code below works, but will only work when the folder has only 7 digits. As soon as I rename the folder to match the naming scheme of the actual folder layout excel freezes and then crashes.
Any and all help will be appreciated.

[COLOR=rgb(41, 105, 176)]Sub MoveFiles()




Dim fName As String, fromPath As String, toPath As String, Cnt As Long
On Error Resume Next



toPath = "C:\Users\RyZeNx\Desktop\wip\"
fromPath = "C:\Users\RyZeNx\Desktop\test\"

Restart:
If Cnt > 1 Then Exit Sub
fName = Dir(fromPath & "*.pdf")

Do While Len(fName) > 4
    If Cnt > 1 Then Exit Sub
    Cnt = 0
    toSubPath = toPath & Left(fName, 7) & "\Service Reports\"
    If Len(Dir(toSubPath, vbDirectory)) = 0 Then MkDir toSubPath
    Name (fromPath & fName) As (toSubPath & fName)
    fName = Dir
Loop

Cnt = Cnt + 1
GoTo Restart



End Sub[/COLOR]

 

[DeMoNloK]

@Marc L, how would I be able to use this if I want to move a file using the left 7 of the filename and moving into folder using the right 7 of the folder name?
I've split and trimmed but not having any luck getting the dir to read backwards. Any thoughts?

Sorry for bugging it was right in my face

P = Dir(TD & "*" & T & "*", vbDirectory)

 

[taimoor07]

​

As you already have 'payed' me with your likes, thanks, I appreciate !​

​

As this is a forum to help gently, not to make money but you can give some bucks to an association …​

Hi Mark. Thank you for your help to the community. Can you please check my recent thread. I have a small request which is quite related to this scenario. Your help will be highly appreciated. Thank you

 

[DeMoNloK]

Hi Mark. Thank you for your help to the community. Can you please check my recent thread. I have a small request which is quite related to this scenario. Your help will be highly appreciated. Thank you

Can you post a link to your thread?

 

[taimoor07]

Can you post a link to your thread?

Hi Mark. Thank you for your message. Yes, Please find below the link,

Move Files to Master Folder Based on the Contract no e.g T1782, T98882

Hi All. Any kind of help would be really appreciated. I have below VBA project which moves files from one folder to Master folder based on the specific identification number which is "T" and then numbers. For example. T98 Contract, T12984 Contract, T 92 Lease. below is the sample of file names...

www.mrexcel.com