ファイルが存在するまで確認する方法

Question

VBAにファイルが存在するまでチェックする方法はありますか？

私がやっていることは、vbaがasynchを呼び出すことです。

私は

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

を実行した後、今、私はファイルがこの

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

のように存在するようになるまで確認したいが、VBAでどのような方法はありますか？

私は単語vbaを使用しています。

Answer 1

あなたはこのようにそれを行うことができます。

Sleep 1000 '1 Second 

：

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, "" 

を、これは確かにApplication.Waitを使用して最善の方法

---

の代わりではありませんが、あなたは睡眠を使用することができます

を使用するには、これをコードに追加する必要があります。

#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