Moving Several Files To Several Folders

[galang_ofel]

Hi,
I need a code to move several files to several folders, I already created one but need to enhance it to avoid encountering "run time error 53" when content(files) of the code is not present in the folder.
My requirement will be account and destination folder should be harcoded.

Thanks in advance.

ofel

[Excel Fox]

Then why don't you just write a line at the start

On Error Resume Next

[snb]

sub M_snb()
  c00 = "C:\TEST\"
  c01=  "C:\Documents and Settings\roblesjv\Desktop\SOA RAW DATA\JEMS SOA 2013\SOA MAY 2013\"

  if Dir (c00 & "134783000011*.txt")<>"" then name c00 & Dir (c00 & "134783000011*.txt") As c01 & "PNB DUBAI RO\USD -134783000011"
End Sub

[galang_ofel]

Hi,
Thanks a lot problem solved by adding on "error resume next" in the first line of the code

regards