View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Sandy Sandy is offline
external usenet poster
 
Posts: 270
Default Test for files existing

Sorry Mike misread what you suggested.
I will give it a go. I will let you know.
sandy

"Mike H" wrote in message
...
Hi,

Maybe you could use something like this

If Dir("full path and filename") < "" Then
'file exists
Else
'file doesn't exist
End If

Mike

"Sandy" wrote:

Hi,
I have the following code courtesy of this newsgroup; what I would like
to
do is check the destination folder to see if there are two files - both
..doc. if so then skip copying them since they are already there from a
previous run.

How do I check the destination folder for these files?
Thanks in advance
Sandy

MyDest = "C:\Users\Sandy\Documents\AAPGA\" _
& inputText & "\Personal Data-" & inputText & "\"

MySource = "C:\Users\Sandy\Documents\Extras\"

fn = Dir(MySource & "*.doc")

Do While fn < ""
FileCopy MySource & fn, MyDest & fn
fn = Dir()
Loop