XProfan

Dieter
Zornow

Ja das geht, die Datei muss dabei aber existieren, die Exe wird angezeigt mit Pfad
Kompilieren Markieren Separieren

cls
declare exe#
dim exe#,256
var ext$ = loadfile$("Datei laden","*.*")
External("SHELL32","FindExecutableA",addr(ext$),0,exe#)
print string$(exe#,0)
dispose exe#
waitinput

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Thomas
Freier

Ist zwar nicht wie ich mir das vorstellte, aber interessant und hilfreich.
Ich müßte dann eine Datei mit der Endung erzeugen und nach Pfadermittlung wieder löschen.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

Ich müßte dann eine Datei mit der Endung erzeugen und nach Pfadermittlung wieder löschen.

so ist es, wenn die Datei nicht vorhanden ist muss temporär eine erzeugt werden.

Was suchst du denn genau, habe deine Frage dann nicht richtig verstanden. Den Pfad und den Namen der auszuführenden Datei musst du ja haben.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

Thomas
Freier

Dieter, dein Script ist die saubere Lösung, eine EXE zu einer Dateiendung zu finden, wenn überhaupt vorhanden.
Ich wollte eine EXE, deren Pfad nicht bekannt ist, starten ohne das eine Datei geöffnet wird und den Dialog "Öffnen mit" mißbrauchen, d.h., Dateinamen mit richtiger Endung vorgeben, dazu gehörende EXE auswählen und starten. Mein Gedanke, hier jetzt den Pfad der gestarteten EXE zu bekommen.
Dann kommt vom Programm natürlich die Meldung: kann ich nicht öffnen ..Neu... Abbrechen. Neu sollte es dann sein.
Bisher suche ich dann über alle Partionen die EXE. Dauert halt seine Zeit.

Gruß Thomas
Windows XP SP2, XProfan X2