Office: (Office 2007) VBA

Hallo Liebe Excel-Freunde,

ich hänge momentan an einem kleinen Problem:

Ich mache einen Import aus einer TXT-Datei. Klappt alles, wenn dort was drinnen steht, wenn sie allerdings leer ist (was auch vorkommen kann), dann bekomm ich allerdings eine Fehlermeldung.

Ich hab versucht, das mit einer IF abzufangen, aber "If Dir("C:\car.txt") = "" Then...

hat leider nichts gebracht, die Datei ist zwar physisch vorhanden, aber eben leer, wie kann ich das abbfragen??

Danke

Markus

:)

 

Moin, Markus,

zeilenweise einlesen und auf Länge des Strings größer 0 prüfen - z.B. analog zu Textdatei nach Begriff durchsuchen und Fundzeile importieren...

 

Vielen Dank, hat geklappt =)

 

HAllo

Etwas einfacher zu handlen ist allerdings FileLen()

Public Sub test()
If FileLen("C:/Neu Textdokument.txt") = 0 Then
MsgBox "Datei ist leer"
Else:
MsgBox "Datei ist nicht leer"
End If
End Sub


ransi