Code:
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