Dateien aus Unterordnern starten

[broken-promise]

Hallo Leute,
Ich würde gerne mit meinem Programm per Button klick eine Dateie aus einem Unterordner der sich im Odner befindet in dem auch mein Programm liegt starten...


das sollte dann ca. so aussehen...

"Button klick" --starte--> "...\unterordner\123.exe"


Mfg, Broken-Promise

 

[Alex F.]

hört sich einfach an
du brauchst nur application.path
das filesystemobject (einbinden über Projekt verweise Microsoft Scripting runtime) und vielleicht noch die Api Shellexecute

Ich denke wenn du dieses Forum nach den von mir gelieferten Stichworten durchsuchst wirst du mit sicherheit schnell zum Ziel kommen.

Grüsse bb

 

[broken-promise]

Sorry...aber Ich bekomme es damit einfach nicht hin...

 

[Hroudtwolf]

Du könntest die gute alte API dazu nutzen.

DWORD GetCurrentDirectory(

    DWORD nBufferLength,    // size, in characters, of directory buffer 
    LPTSTR lpBuffer     // address of buffer for current directory 
   );

Der erste Paramerter ist ein Integer (32b) der die Grösse deines Output-Buffers in Byte enthält.
Der zweite ist der Pointer auf den Output-Buffer in der GetCurrentDirectory den Datei-Pfad setzt.


Nun hast du den Pfad deiner Applikation und musst nur noch deine Unterverzeichnisse anhängen und über Shellexecute deine Dateien starten.

 

[DrSoong]

Dazu brauchst du keine API, einfach Shell benutzen:

Dim sPfad As String
sPfad = App.Path & "\unterordner\123.exe"
Shell aPfad, vbNormalFocus

Wenn du keine EXE starten willst sondern z.B. ein Bild mit dem verknüpften Programm anzeigen willst, musst du die ShellExecute-API verwenden.

Der Doc!