我在VB6上有一个应用程序,它在一个特定的操作上为用户带来了一些填充了一些图像的表单。这些图像位于外部服务器上。有时这台服务器由于某些维护而停机,这会导致我的应用程序出现一些问题(例如错误文件错误52)。
我想知道是否有任何方法可以测试"具有较少超时的文件夹访问,如2秒。如果服务器在2秒后没有响应,我将卸载图片表单,以便用户继续正常工作。
谢谢和最诚挚的问候
答案 0 :(得分:1)
你应该可以做这样的事情
Dim fso As FileSystemObject
Dim exists as Boolean
Set fso = New FileSystemObject
exists = fso.FolderExists("\\MyServer\SomeFolder\")
If Not exists Then
'Let the user know the server is down
Else
'Server is up so load your pictures
End If