Open Routine
02.03.2003 10:37:08
Wolfgang
könnt Ihr mir bitte erklären warum in der folgenden Function beim zutreffen der Bedingung die Anweisung nicht ausgeführt wird.
Die Datei ist bereits geöffnet, trotzdem erhalte ich nicht die Meldung.
Ich habe strMyFile überprüft. Inhalt entspricht der geöffneten Datei.
Private Function IsFileOpen(ByVal strMyFile) As Boolean
Dim WinOpen As Variant
IsFileOpen = False
For Each WinOpen In Windows
If WinOpen.Caption = strMyFile Then
MsgBox strMyFile & " Ist bereits geöffnet!", vbExclamation
IsFileOpen = True
Exit Function
End If
Next
End Function
Danke für einen Tip.
Gruß
Wolfgang
Anzeige