Scripting.FileSystemObject Error 53 File Not Found

Hi All,
First I would like to say I am blown away by the support and learning I have received since I joined thank you!

Second I had this running until today I received the error

53.jpg


Original code below this Structure That worked until a user loaded a File name 293 characters Long as they are grouping Multi like "Items codes" together for One Photo.
the procedure runs through Codes in Column A "the New name to rename Jpeg Files" once it has found a match in Column D Color text Green, if not color text Red.

a sample of text 293 long 988985-988986-988987-988988-988993-988994-988995

Please Login or Register  to view this content.

My Second Attempt to use "Scripting.FileSystemObject" as i have researched it is a better way of handling the "Dir(FolderPath & File.Value" but I am having issues to get this working correctly.

the line " m = Len(myFile) = ".*" m I have assigned as Integer when debugging I can see the values in Len(myFile) but when I check M = 0 I can't get the value to pass ?
as always your Guidance is most appreciated
thanks Peter

Please Login or Register  to view this content.