Question

在VBA中存在文件之前，有没有办法检查。

我要做的是，让vba调用asynch。

现在我跑完

wshShell.Run """" & SFilename & """" & s

我想检查文件是否存在，如此

Wait until fso.fileexists("file")
  Msgbox "file is now available"
End wait!!!

在vba中有什么办法吗？

我正在使用单词vba。

Answer 1

你可以这样做：

Do

    If fso.FileExists("file") Then

        Exit Do
    End If

    DoEvents 'Prevents Excel from being unresponsive
    Application.Wait Now + TimeValue("0:00:01") 'wait for one second
Loop

MsgBox "file available", vbOKOnly, ""

虽然这肯定不是最好的方法

您可以使用sleep：

，而不是使用Application.Wait

Sleep 1000 '1 Second

但您需要将其添加到您的代码中才能使用它：

#If VBA7 Then  
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 'For 64 Bit Systems  
#Else  
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds as Long) 'For 32 Bit Systems  
#End If

如何检查文件是否存在

1 个答案: