View Single Post
  #10   Report Post  
Posted to microsoft.public.excel.programming
Tom Ogilvy Tom Ogilvy is offline
external usenet poster
 
Posts: 27,285
Default Move files from one directory to another: if they are there

As an Example
CurrFile = "ard"
? Dir("C:\Program Files\Adobe\Acrobat
5.0\Reader\Plug_ins\Annotations\Stamps\ENU\*" & CurrFile & ".pdf")
Standard.pdf

worked fine for me.

dir just produces the file name, so if you want to do something to the file,
you need to use the path with it. Also, each time call dir it gets a new
filename, so perhaps

sPath = "C:\Program Files\Adobe\Acrobat
5.0\Reader\Plug_ins\Annotations\Stamps\ENU\*"
CurrFile = "ard"
sName = Dir(sPath & CurrFile
if sName < "" then
filecopy sPath & sName, "C:\NewDir\" & sName

End if


--
Regards,
Tom Ogilvy

"Michael McClellan" wrote in message
...

I get an error that says "Bad file name or number."


*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!