XProfan

Dieter
Zornow

Ja das geht, die File 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#
waitin

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 File mit der Endung erzeugen und nach Pfadermittlung wieder löschen.

Gruß Thomas
Windows XP SP2, XProfan X2

Dieter
Zornow

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

so ist es, wenn die File 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 File 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 File 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 naturalmente die Meldung: kann ich nicht öffnen ..Neu... Abbrechen. Neu sollte es dann sein.
Bisher suche ich dann circa alle Partionen die EXE. Dauert halt seine Zeit.

Gruß Thomas
Windows XP SP2, XProfan X2