Ich habs... zeitgesteuert ;)
Sub starten()
Dim zeit As String
t = True
zeit = Time + TimeSerial(0, 0, 15)
Application.OnTime zeit, "ausführen_meldung"
End Sub
Sub ausführen_meldung()
Dim strFileName As String
Dim strPath As String
Dim strTMP As String
strFileName = "Test.txt"
strPath = "d:\"
strTMP = FindFile(strPath, strFileName)
If strTMP <> "" Then
Run "Ereignis"
Else
MsgBox "Nein!"
End If
If t = True Then starten
End Sub
Sub beenden()
t = False
End Sub
Sub Ereignis()
MsgBox "Ja!"
End Sub