Seite 1 von 1
Programmdatei auslesen
Verfasst: 08.10.2006 00:20
von DW
Folgender code klappt nicht:
Code: Alles auswählen
MyApp.s = Space(1000)
GetModuleFileName_(GetModuleHandle_(0), @MyAPP, 1000)
file$=GetPathPart(MyApp)+GetFilePart(MyApp)
if OpenFile(0,file$)
While Not Eof(0)
line.s=Readstring(0)
MessageRequester(line,line)
Wend
CloseFile(0)
endif
Er öffnet die Datei zwar, aber auslesen tut er nicht.
Verfasst: 08.10.2006 00:33
von STARGÅTE
ämm vllt weil die Datei leer ist oder gar nicht existiert.
Denn OpenFile(0,file$) öffnet ja eine Datei auch wenn die nicht da ist, nur dann ist sie leer ^^
mach mal ReadFile() , und wannn das fehlschlägt dann gibs die datei nicht
Verfasst: 08.10.2006 00:35
von DW
Ne, das ist eine Exe Datei. Und den Pfad habe ich schon überprüft. Stimmt alles.
Verfasst: 08.10.2006 00:44
von Lukaso
OpenFile kann irgendwie garnicht funktionieren. Du willst ja ne Datei mit Schreibrechten öffnen die du gerade Verwendest (willst ja auf das Programm was ja ausgeführt wird zugreifen). Das kann und wird nicht Funktionieren
Probier wie gesagt ReadFile
