Accessibility of a server

[Stefi]

Hi All,

I have to check whether a file exists on a remote server or not. DIR works
when the server is accessible, but doesn't reply if connection is broken and
keeps searching the file ad infinitum, I can't even interrupt running the
macro (neither with Esc nor with Task manager).

Is there any way to detect the accessibility of the server before using DIR?

Thanks,
Stefi

 

[Jim Cone]

I am not on a network to test it, but the FileSystemObject should be able to do it...
'--
Sub ProvidePath()
Dim strPath As String
strPath = "FillInPathToTheFileOnTheServer" '<<<<<
MsgBox ReportFileStatus(strPath)
End Sub
'--
Function ReportFileStatus(ByRef fileSpec As String) as String
Dim fso As Object
Dim msg As String
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(fileSpec)) Then
msg = fileSpec & " exists."
Else
msg = fileSpec & " doesn't exist."
End If
ReportFileStatus = msg
Set fso = Nothing
End Function
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins - check out "List Files" )



"Stefi"
wrote in message
Hi All,
I have to check whether a file exists on a remote server or not. DIR works
when the server is accessible, but doesn't reply if connection is broken and
keeps searching the file ad infinitum, I can't even interrupt running the
macro (neither with Esc nor with Task manager).

Is there any way to detect the accessibility of the server before using DIR?

Thanks,
Stefi

 

[Stefi]

Thanks Jim, I immediately start testing, I'll post the result.
Stefi


„Jim Cone†ezt írta:

 

[Jim Cone]

Please do.
---
Jim Cone



"Stefi"
<[email protected]>
wrote in message
Thanks Jim, I immediately start testing, I'll post the result.
Stefi

 

[urkec]

Thanks Jim, I immediately start testing, I'll post the result.
Stefi

„Jim Cone†ezt írta:

You can also use ping command to check if your server is accesible. Here is
some sample code from Richard Mueller's site:

http://www.rlmueller.net/Programs/Ping2.txt