以下代码:
If FileExists(XCustPath + "XCust.dat") Then
XCustRun
End If
并且这段代码:
Public Function FileExists(ByVal Fname As String) As Boolean
Dim lRetVal As Long
Dim OfSt As OFSTRUCT
lRetVal = OpenFile(Fname, OfSt, OF_EXIST)
If lRetVal <> HFILE_ERROR Then
FileExists = True
Else
FileExists = False
End If
End Function
XCustPath指的是包含XCust.dat文件的映射网络位置。
但在此行中:
lRetVal = OpenFile(Fname, OfSt, OF_EXIST)
这个程序需要检查网络中的文件是否存在,但是这个过程非常缓慢,会导致程序锁定20-30秒。由于这是一个旧的销售应用程序,因此需要在不到1秒钟的时间内检查文件是否存在。有没有办法强制让代码在一秒钟后超时?如果文件存在,则程序可以顺利运行。或者有没有一种非常快速的方法来检查网络上的文件是否存在?