Datei mit der Shell ausführen (VB 6)

• 25.11.2003

• #1

J

Johannes

Bekanntes Mitglied

Themenersteller

Dabei seit

07.02.2002

Beiträge

1.165

Reaktionspunkte

0

Hallo!

Wie ich eine Datei mit der Shell ausführen kann, weiss ich.
Aber ich möchte, dass eine Datei, die sich in einem untergordneten Ordner befindet geladen wird. Ich kann keine direkte Angaben machen (z.B. a:\test.bat) oder so, da sich das Programm überall ausführen lassen soll. ich habe es schon mit

Shell app.path + \Data\Data1\Datei

Zum Vergrößern anklicken....

ausprobiert, aber so lässt es sich wohl nicht machen...
Weiss jemand wie das geht??

mfg

Jojo

 

• 25.11.2003

• #2

A

Alexander16

Bekanntes Mitglied

Dabei seit

26.08.2002

Beiträge

473

Reaktionspunkte

0

Hi
Das geht doch oder verstehe ich dich falsch ???

Code:

Shell App.Path & \Ordner\Programm.exe

Mfg Alexander

 

• 25.11.2003

• #3

J

Johannes

Bekanntes Mitglied

Themenersteller

Dabei seit

07.02.2002

Beiträge

1.165

Reaktionspunkte

0

Hi!

Habs mal grad mit ner Exe-Datei versucht. Mit ner Exe-Datei klappt es.
Bei mir soll eine Bat-Datei geladen werden, die registrierungseinträge vornimmt (*.reg-Dateien sind im selben Verzeichnis). Wenn ich die bat-Dateien anklicke, dann klapt alles ohne probleme. Nur halt nicht, wenn ich es über VB mache...

mfg

Jojo

 

• 25.11.2003

• #4

A

Alexander16

Bekanntes Mitglied

Dabei seit

26.08.2002

Beiträge

473

Reaktionspunkte

0

Hi

Wenn ich es mit einer Bat-Datei versuche funktioniert es ebenfalls.
Das MS-DOS-Fenster wird (bei mir) nur minimiert angezeigt.

Mit diesem Code wird das MS-DOS-Fenster aber normal angezeigt :

Code:

Shell C:\Windows\Desktop\Test.bat, vbNormalFocus

Mfg Alexander

 

• 25.11.2003

• #5

J

Johannes

Bekanntes Mitglied

Themenersteller

Dabei seit

07.02.2002

Beiträge

1.165

Reaktionspunkte

0

Hi!

Das habe ich auch schon probiert, bringt nix. Dann sehe ich für ne ganz kurze Zeit das DOS-Fenster und dann scließt es sich wieder. Ist ja auch normal, aber derd Registry-Eintrag würde nicht vorgenommen..

mfg

Jojo

 

• 25.11.2003

• #6

A

Alexander16

Bekanntes Mitglied

Dabei seit

26.08.2002

Beiträge

473

Reaktionspunkte

0

Hi

Hab ein bisschen im Internet gesucht und auch was gefunden

Versuch es mal so :

Code:

Shell command.com /k C:\Windows\Desktop\Test.bat, vbNormalFocus

Wenn du Win-NT, Win2000 oder höher hast so :

Code:

Shell cmd.exe /k C:\Windows\Desktop\Test.bat, vbNormalFocus

Mfg Alexander

 

• 25.11.2003

• #7

J

Johannes

Bekanntes Mitglied

Themenersteller

Dabei seit

07.02.2002

Beiträge

1.165

Reaktionspunkte

0

Hi!

Aber so kann ich doch nicht den Befehl app.path verwenden..oder??
Wüsste jedenfalls nicht wie!

mfg

Jojo

 

• 25.11.2003

• #8

F

Fizbin

Bekanntes Mitglied

Dabei seit

09.07.2003

Beiträge

220

Reaktionspunkte

0

Sollte dann auch gehen:

Code:

Shell cmd.exe /k & app.path & \Test.bat, vbNormalFocus

 

• 25.11.2003

• #9

J

Johannes

Bekanntes Mitglied

Themenersteller

Dabei seit

07.02.2002

Beiträge

1.165

Reaktionspunkte

0

Hi!

Die Fehlermeldung die dann kommt lautet:

C:\Dokumente ist entweder falsch geschrieben oder exisitert nicht...
(Steht im DOS-Fenster!)

mfg

Jojo

 

• 26.11.2003

• #10

B

BeyondTheSilence

Bekanntes Mitglied

Dabei seit

27.05.2003

Beiträge

333

Reaktionspunkte

0

Ort

Zürich (CH)

Tja, wenn natürlich im App.Path Leerzeichen drinne sind, gehts so ned ;-)

Aber so:

Code:

Shell cmd.exe /k-> & app.path & \Test.bat', vbNormalFocus

 

• 26.11.2003

• #11

A

Alexander16

Bekanntes Mitglied

Dabei seit

26.08.2002

Beiträge

473

Reaktionspunkte

0

Hi

@ BeyondTheSilence :
Das mit den Hochkommas wusste ich noch gar nicht - danke

Mfg Alexander

 

• 26.11.2003

• #12

J

Johannes

Bekanntes Mitglied

Themenersteller

Dabei seit

07.02.2002

Beiträge

1.165

Reaktionspunkte

0

Hi!

Jetzt kommt:

Die Syntax für den Dateinamen, Verzeichnisnamen oder die Datenträgerbezeichnung
ist falsch.


Mein Code lautet folgendermaßen:

Code:

Private Sub Übernehmen_Click()
If ND_service.Value = True Then
Shell cmd.exe /k-> & App.Path & \Data\Reg_Bat\Add_ND.bat', vbNormalFocus
Else
Shell cmd.exe /k-> & App.Path & \Data\Reg_Bat\Remove_ND.bat', vbNormalFocus
End If
End Sub

mfg

Jojo