Check if file on intranet exists

[mcphc]

I need to check if a file with path "http://pmnet/113-FR-001.xls" exists
without opening it. I've tried using Dir(myPath) but I get an error 52 'Bad
file name or number'. I've also tried using the FileExists method in VB but
I'm not sure how to use it.

Thanks

 

[NickHK]

Maybe this:
http://vbnet.mvps.org/code/fileapi/pathfileexists.htm

NickHK

 

[Joel]

http (hyper-text transfer protocol) is a transfer protocol and cannot be used
to check if a file exists. In some cases you can use File:// when generating
webpages.

the DIR command cannot be used directly to check for a file on internet.
One thing you can do is add a network drive in you window explorer. Go to
explorer and under tools "Map Netwrok drive". Assign a drive letter to
pmnet. Then you can use the drive letter and file name in the DIR command.

 

[Tim Williams]

Use xmlhttp and a "HEAD" request:

'***********************
Function HttpExists(sURL As String) As Boolean
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "HEAD", sURL, False
oXHTTP.send
HttpExists = (oXHTTP.Status = 200)
End Function
'***********************

Tim

 

[mcphc]

That's it works perfectly! Thanks a lot.

Use xmlhttp and a "HEAD" request:

'***********************
Function HttpExists(sURL As String) As Boolean
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "HEAD", sURL, False
oXHTTP.send
HttpExists = (oXHTTP.Status = 200)
End Function
'***********************

Tim