vb6 - VB6的FolderExists函数有时会失败

Question

我的批处理程序已经运行了十年，没有任何问题。我用新的 NFS（网络文件系统）替换了一个。在那之后，它变成了每月失败一次或两次。（该程序每天运行 3 次）

以下是导致上述问题的摘录。尽管文件夹路径确实存在，但 FolderExists() 偶尔不会返回 true。

Function foo(path)
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")

    If objFileSystem.FolderExists(path) Then
        ' do something
    End If

谁能给我任何建议？

这是操作系统信息。

Windows Server 2003
Service Pack2

Answer 1

可能由于某种原因，驱动器当前尚未准备好访问。您可以使用 FSO 对此进行检查，方法是从 GetDrive 方法获取 Drive 对象并检查 IsReady 属性。更多信息： http: //msdn.microsoft.com/en-us/library/x681abd9 (v=vs.84).aspx