✔ Datei öffnen Fehler

[Yoah]

Hi @ all!

Ich weiß, dieses Thema gab es schon zu genüge,
aber irgendwie kann ich mit allem nichts anfangen.

Hier mein Quellcode:

Dim datei As String
Dim line As String 
Dim xF As Integer 

 datei = "system.txt"
 xF = FreeFile

   Open datei For Input As #xF        
     While Not EOF(xF)         
        Line Input #xF, line          
        IgnoreList.Add (line)        
     Wend      
   Close #xF

Meines Erachtens alles richtig, oder

Ich will also die Datei system.txt Öffnen, Zeile für Zeile
in eine Collection(global definiert) schreiben und die
Datei dann wieder schliessen. Doch der meckert immer,
dass er datei nicht öffnen kann.
Wenn ich nur system.txt angebe, ist der Fehler "File Not Found"
Wenn ich eine komplette Pfadangabe mache, sagt er mir "Path Not Found".

Please Help!

 

[Merlin_78]

Hi Yoah,

wie sieht denn deine komplette Pfadangabe aus?
Wenn du mit App.Path arbeitest mußt du vor den Dateinamen noch das Backslash setzen.
Also z.B. App.Path & "\test.txt".
Wenn du nur "test.txt" angibst sucht er die Datei im VB98-Verzeichnis.

 

[Yoah]

Hi!

Und vielen vielen Dank! Hab den Wald vor
lauter Bäumen nicht gesehen!

Ich habe die Pfad Angabe mit "D:\Programm\Ordner\system.txt"
angegeben und nicht darauf geachtet, wo die Applikation denn
überhaupt aufgerufen wird! Tsetsetse

ThanX!