Programmdatei auslesen

[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.

[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

[DW]

Ne, das ist eine Exe Datei. Und den Pfad habe ich schon überprüft. Stimmt alles.

[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