Hi Guys,

How Can I :
1- check to see a file (non excel file) is existed?
2- like I do double click on a file (on windows area) to open it with its
application, how can I do the same thing with VBA?

Thanks in advance

To check if a file exists use a function like this:

Function bFileExists(ByVal sFile As String) As Boolean

Dim lAttr As Long

On Error Resume Next
lAttr = GetAttr(sFile)
bFileExists = (Err.Number = 0) And ((lAttr And vbDirectory) = 0)
On Error GoTo 0

End Function


To open a file look at Shell in the VBA help.


RBS


"2007-User" wrote in message
...
Hi Guys,

How Can I :
1- check to see a file (non excel file) is existed?
2- like I do double click on a file (on windows area) to open it with its
application, how can I do the same thing with VBA?

Thanks in advance

Thanks,!

"RB Smissaert" wrote in message
...
To check if a file exists use a function like this:

Function bFileExists(ByVal sFile As String) As Boolean

Dim lAttr As Long

On Error Resume Next
lAttr = GetAttr(sFile)
bFileExists = (Err.Number = 0) And ((lAttr And vbDirectory) = 0)
On Error GoTo 0

End Function


To open a file look at Shell in the VBA help.


RBS


"2007-User" wrote in message
...
Hi Guys,

How Can I :
1- check to see a file (non excel file) is existed?
2- like I do double click on a file (on windows area) to open it with its
application, how can I do the same thing with VBA?

Thanks in advance