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

"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

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

"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

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

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


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Sandy" wrote in message ...
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