VB6 Pfadprobleme

[Michel_Zalata]

Hallo Zusammen,

ich hab folgendes (Anfänger) Problem:
Ich möchte gerne das Programm beispiel.exe im Ordner

c:\test\beispiel\beispiel.exe

über eine VB6 Applikation starten.
Wenn ich die beispiel.exe aus Windows direkt starte, legt diese in ihrem eigenen Verzeichniss eine beispiel-log.txt ab. Also

c:\test\beispiel\beispiel-log.txt

Das soll auch so bleiben aber bei einem Aufruf duch die VB6 Applikation, landet diese Log Datei aber immer im Verzeichniss der VB6 Applikation.

z.B. c:\test\vb6programm.exe ergibt c:\test\beispiel-log.txt

Das passiert sowohl unter relativen als auch absoluten Pfadangaben zur beispiel.exe

z.B. Shell = "\beispiel\beispiel.exe
bzw. Shell = App.Path & „\beispiel\beispiel.exe“

Danke schonmal für eure Hilfe
Michel

[Chewpapa_22ca98]

Hi Michel,

das Problem liegt in dem Programm das aufgerufen wird, das ist schlecht programmiert. Statt nach App.Path wird nach CurDir geschrieben, das führt dann zu solchen Fehlern.

Wenn das Programm von dir ist, ist es besser das Programm in Ordnung zu bringen.

Ist das Programm nicht von Dir, kannst Du dem Pfad aber einfach selbst setzen und das Programm dann aufrufen. Ein Beispielprogramm, in dem der Pfad gesetzt wird:

Option Explicit

Private Declare Function SetCurrentDirectory \_
 Lib "kernel32" Alias "SetCurrentDirectoryA" \_
 (ByVal lpPathName As String) As Long

Private Sub Command1\_Click()
 SetCurrentDirectory "C:\"
 Me.Caption = CurDir
End Sub

Gruß Rainer

[Michel_Zalata]

Hallo Rainer,

vielen Dank für Deine schnelle Hilfe, so klappte es ausgezeichnet!

Besten Gruß,
Michel