Fehlermeldungen

[Nicole]

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?

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

 

[Daniel Toplak]

Versuch dir mal die Dateinummer zu erstellen:

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