Test for files existing

  • Thread starter Thread starter Sandy
  • Start date Start date
S

Sandy

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
 
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
 
Thing is Mike that there will always be excel files in this folder but only
ever two .doc files (if they are there) - so testing for general files is
not an option.

I would have to test for .doc files.

Sandy
 
hi Sandy

With Dir you can test if it exist
Something like this if this is the full path MySource & fn

If Dir(MySource & fn) <> "" then
'Exist
Else
'Not exist
End If
 
Hi

Based on your advice the following does the job.
Many thanks to you both

Sandy

********************
MyDest = "C:\Users\Sandy\Documents\AAPGA\" _
& inputText & "\Personal Golf Analyser V2-" & inputText & "\"

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

fn = Dir(MySource & "*.doc")
fn1 = "Paper Record.doc"
fn2 = "ReadMe.doc"

If Dir(MyDest & fn1) <> "" And Dir(MyDest & fn2) <> "" Then

Else

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

End If
******************************
 
Back
Top