如何在VB6上测试网络文件夹是否已启用

时间:2016-02-26 13:19:18

标签: vb6

我在VB6上有一个应用程序,它在一个特定的操作上为用户带来了一些填充了一些图像的表单。这些图像位于外部服务器上。有时这台服务器由于某些维护而停机,这会导致我的应用程序出现一些问题(例如错误文件错误52)。

我想知道是否有任何方法可以测试"具有较少超时的文件夹访问,如2秒。如果服务器在2秒后没有响应,我将卸载图片表单,以便用户继续正常工作。

谢谢和最诚挚的问候

1 个答案:

答案 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