Public Function IstGesendet(GDatei As String) As Boolean
Dim GSDateien As String 'Gesendete Dateien
 
'Prüfen ob die Datei schon benutzt wird
Warten:
If FileInUse(Programmpfad + "GesendeteDateien.log") = False Then
    'Prüfen ob die Datei existiert
    If fileexist(Programmpfad + "GesendeteDateien.log") Then
    'Wenn sie existiert dann öffnen und vergleichen
        Open Programmpfad + "GesendeteDateien.log" For Input As #11
            Do While Not EOF(11) 'Schleife um Dateien zu Vergleichen
                Line Input #11, GSDateien
                    'Wenn Datei schon gesendet dann gibt Funktion True zurück
                    If GDatei = GSDateien Then
                        IstGesendet = True
                        GoTo IstSchon
                    End If
            Loop 'Schleife um Dateien zu Vergleichen
        Close #11
    Else
        'Wenn sie Datei nicht existiert gibt die Funktion False zurück und
        'es kann gesendet werden
        IstGesendet = False
    End If
Else
    Sleep (300)
    GoTo Warten
End If
 
IstGesendet = False
IstSchon:
End Function