Ho risolto un problema simile con un ciclo di attesa fino a quando il file non
è stato creato:
timeout = 60 \' timeout in secondi
While (Not fileExists(resFileName)) And (timeout > 0)
Sleep 1 \'in secondi
timeout = timeout - 1
Wend
If (fileExists(resFileName)) Then
...
End
timeout è il tempo massimo di attesa. La funzione fileExists è definita così:
Function fileExists(Byval sFileName As String) As Integer
\'Verifica se il file \'sFileName\' esiste
On Error Resume Next
Dim lFileLength As Long
Const ATTR_NORMAL = 0
fileExists = False
If Dir$(sFileName, ATTR_NORMAL) <> "" Then
lFileLength = Filelen(sFileName)
If (lFileLength > 0) Then fileExists = True
End If
End Function
--guen
|