Fehlermeldungen

Nicole

Mitglied
Hallo

Ich habe unten stehenden Code (Auszug) und bekomme beim Ablauf des Programmes folgende Fehlermeldung

Laufzeitfehler '13'
Typen unverträglich

mit dem Verweis auf die Zeile "Do while Not EOF(File1)

Wenn ich anstatt (File1)Nur (1)angebe

Erhalte ich Laufzeitfehler '52'
Dateiname oder nummer falsch

Was mach ich da bitte falsch?


Code:
Open FullPath For Input As #1
        Do While Not EOF(File1)
        strHeader = Input(2, #1)
        Select Case strHeader
            Case "%!", "MM", "ÐÏ", "%"
            Close



Besten Dank schon mal für eure Hilfe
gruss Nicole
 
Versuch dir mal die Dateinummer zu erstellen:
Code:
Dim nummer as Integer
Dim path as String
nummer = FreeFile ' holt eine frei Dateinummer
path = "c:\test.txt"
If nummer = 0 Then
  MsgBox "Fehler" ' sollte eigentlich net vorkommen
Else
  Open path for Output As #nummer  ' das "#" ist wichtig
  Do While Not EOF(nummer)
    .
    .
    .

  Loop
End If
Aber ich empfehle dir eh mit dem FileSystemObject zu arbeiten, denn das ist wesentlich flexibler

Gruss Homer
 
Zurück