Vbscript 解决Diadem DataFileHeaderAccess中的“无法连接到指定服务器”错误

我目前正在使用王冠来处理大量数据。 我必须对大量文件进行特殊处理。因此，我有一个脚本，每次都要逐个加载每个文件

问题是，经过几个小时的计算，我得到了一个错误：错误的指令或用户命令。第1328行第5列：无法连接到指定的服务器

到这时，它将成功地通过代码中发生多次的部分，如果我在有问题的文件上重新启动它，它将不会失败，至少对于这个文件是这样

更奇怪的是，那里没有远程操作，所以我不知道它可能在谈论哪个服务器。文件在别处打开。大多数时候，这种情况发生在我不在办公室的时候

最后，我设法在任何地方都找不到关于这个问题的任何东西，我越来越迫切地想设法解决它

所以。。。简单的问题。。。帮助 好吧，让我们稍微发展一下：

这个问题的原因可能是什么？ 我怎样才能解决它？ 如果可能有帮助，以下是被指控的代码部分：

Function TryLoadGroup(sPath, sFileName, sGroupName, sNewGroupName)
  Dim oDataFileHeader, oImportedGroup
  Set oDataFileHeader = DataFileHeaderAccess(sPath & sFileName, "TDM", True)

  Dim iLoop, bRet
  For iLoop = 1 To oDataFileHeader.GroupCount
    If oDataFileHeader.GroupNameGet(iLoop) = sGroupName Then
      bret = True
    End If  
  Next
  oDataFileHeader.Close(False)

  If bRet Then
    Set oImportedGroup = DatafileLoadSel(sPath & sFileName,"TDM", sGroupName & "/*")
    oImportedGroup.Item(1).Name = sNewGroupName
    Set TryLoadGroup = oImportedGroup
  Else
    Set TryLoadGroup = Data.CreateElementList
  End If

End Function

错误消息仅表示无法打开该文件。 我能想到一些事情

文件已损坏，但这似乎不是真的，因为您可以打开它 文件由DIAdem打开，或者其中一组文件已加载到DIAdem中 王冠的内存不足 您可能应该在内部循环周围放置一个错误处理程序

on error goto 0
' call a method
if 0 <> err.number then
  LogFileWrite "Unable to insert file '" & filename & "': " & err.description
end if
on error goto 0

这将允许您继续处理，并在稍后的DIAdem日志文件中查看错误

on error goto 0
' call a method
if 0 <> err.number then
  LogFileWrite "Unable to insert file '" & filename & "': " & err.description
end if
on error goto 0