PDA

Vollständige Version anzeigen : Dateigröße vergleichen


Peter_ORTNER
05.05.2011, 08:31
Guten Morgen alle zusammen :)

und wieder einmal stehe ich auf der Leitung. Ich hoffe es kann mir jemand helfen! Ich habe es geschaft das eine Text Datei auf vorhandensein überprüft wird d.h. wenn Sie nicht vorhanden ist soll sich die Datenbank schließen. Jetzt möchte ich noch zusätzlich diese Text Datei auf ihre größe prüfen (in Byte) und sollte das nicht übereinstimmen soll die Datenbank auch geschlossen werden mein bisheriger Code:

If Dir("C:\Windows\dieDatei.txt") = "" Then
MsgBox "Registrierungsdatei fehlerhaft oder falsch"
DoCmd.Quit
Else
DoCmd.OpenForm "Start"

End If

danke für Eure Hilfe

lg aus Tirol Peter

Atrus2711
05.05.2011, 08:33
Hi,

da hilft FileLen(Dateiname).

Peter_ORTNER
07.05.2011, 11:50
Danke für deine AW werde ich gleich mal testen und ein wenig basteln!

lg aus tirol Peter

Peter_ORTNER
07.05.2011, 11:51
:-) jep

Peter_ORTNER
07.05.2011, 15:39
Hallo Atrus2711

danke hat super gefunzt :mrcool:

mein Code:

If Dir("C:\Windows\meinname.txt") = "" Then GoTo verlassen
If FileLen("C:\Windows\meinname.txt") = 12345 Then Else GoTo verlassen


DoCmd.OpenForm "Start"


Exit Sub


verlassen: MsgBox "Data inizialing fail, MsgNr: 404"

DoCmd.Quit