Ok, I got another one. I click on a button and it runs this code:

Private Sub cmdEnterScores_Click()
ChDir "C:\WINDOWS"
Workbooks.Open FileName:="C:\WINDOWS\datasheet2006.xls"
(more non-important code here)

If the datasheet2006.xls does not exist I get a VB error telling me so and
the script halts. How do I code it so that if the datasheet.xls does not
exist I can pop up my own msgbox instead of the vb script error box?

Thanks,
Phil

First, I wouldn't put any of my files in the C:\windows folder. That folder is
made for system stuff. And there's too much of a chance that I may "clean up"
too much when I clean up my stuff.


dim TestStr as string
dim myFileName as string

myfilename = "C:\windows\datasheet2006.xls"

teststr = ""
on error resume next
teststr = dir(myfilename)
on error goto 0

if teststr = "" then
msgbox "Not found"
else
msgbox "Found it"
end if



phil-rge-ee wrote:

Ok, I got another one. I click on a button and it runs this code:

Private Sub cmdEnterScores_Click()
ChDir "C:\WINDOWS"
Workbooks.Open FileName:="C:\WINDOWS\datasheet2006.xls"
(more non-important code here)

If the datasheet2006.xls does not exist I get a VB error telling me so and
the script halts. How do I code it so that if the datasheet.xls does not
exist I can pop up my own msgbox instead of the vb script error box?

Thanks,
Phil

--

Dave Peterson

I put it in the windows folder so it could be somewhat hidden so people
"cleaning up" their computers wouldn't see it and delete it, thinking they
wouldn't dare delete something from the windows folder, but alas, some still
see this file, think they don't need it and delete it. I'm thinking of moving
it to another location, but I also want to have this popup come up if the
file does get deleted "by accident".

Thanks for the help.
Phil

"Dave Peterson" wrote:

First, I wouldn't put any of my files in the C:\windows folder. That folder is
made for system stuff. And there's too much of a chance that I may "clean up"
too much when I clean up my stuff.


dim TestStr as string
dim myFileName as string

myfilename = "C:\windows\datasheet2006.xls"

teststr = ""
on error resume next
teststr = dir(myfilename)
on error goto 0

if teststr = "" then
msgbox "Not found"
else
msgbox "Found it"
end if



phil-rge-ee wrote:

Ok, I got another one. I click on a button and it runs this code:

Private Sub cmdEnterScores_Click()
ChDir "C:\WINDOWS"
Workbooks.Open FileName:="C:\WINDOWS\datasheet2006.xls"
(more non-important code here)

If the datasheet2006.xls does not exist I get a VB error telling me so and
the script halts. How do I code it so that if the datasheet.xls does not
exist I can pop up my own msgbox instead of the vb script error box?

Thanks,
Phil

--

Dave Peterson