✔ Mehrfachdeklaration bei shell befehl

[FettAngelUma]

hallo
kann mir da bitte jemand weiterhelfen
also ich muss 2 Programme Öffnen einmal das Document2.lab und einmal den DManMe.exe
das Problem ist wenn ich die lab datei einfach so über den shell befehl aufrufe funktioniert es nicht dann hab ich gegooglet...
und das ist dabei rausgekommen
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.run "D:\ScanPrgramm\Document2.Lab"

ja nun hab ich das problem des wenn ich die DManMe.exe aufrufe der fehler kommt weils ja shell schon gibt.....
kann mir da jemand weiterhelfen wie ich das 2te programm auch noch aufrufen kann?


mein bisheriger code

Private Sub SN_Click()
Dim cSnString As String
If Left$(SN.Text, 2) = "YK" Then
cSnString = Mid$(SN.Text, 3)
F = FreeFile
Open "D:\ScanPrgramm\Neu Textdokument.txt" For Output As #F
Print #F, SN.Text
Close #F
Dim shell
Set shell = CreateObject("WScript.Shell")
shell.run "D:\ScanPrgramm\Document2.Lab"
shell "C:\Program Files\Intermec\LabelShop Ultra 6\Tools\DManME\DManMe.exe"
Else
MsgBox "Dies ist keine Seriennummer!", vbCritical, "Scannen von Seriennummern"

SN.Text = ""
End If

End Sub

 

[ronaldh]

Hi,

diesmal weiß ich nicht genau, was Du willst. Was ist "Lab" für eine Dateiendung, ist damit in Deinem Windows irgendein Programm verknüpft?

Um mehrere Programme nacheinander aufzurufen, kannst Du es einfach wie folgt machen:

Dim Rx as Long

Rx = Shell("C:\abc.exe", vbNormalFocus)
Rx = Shell("C:\xyz.exe", vbNormalFocus)

usw. Und mit was für einer VB-Version arbeitest Du eigentlich? Das Beispiel oben stammt aus VB6.

Übrigens sind Deine Posts besser zu lesen, wenn Du den Code mit der #-Taste oben markierst.

Viele Grüsse
Ronald

 

[mahon]

Keine Ahnung was das ist, aber meinst du vielleicht das hier?

Parameterübergabe in der Shell....

Dim Rx as Long

Rx = Shell("C:\Program Files\Intermec\LabelShop Ultra 6\Tools\DManME\DManMe.exe D:\ScanPrgramm\Document2.Lab", vbNormalFocus)

 

[FettAngelUma]

danke für die antworten

also ich benutze VB 6

ich kann dadurch schon 2 exe daten aufrufen aber nicht die .lab (die lab datei ist von deinem labledrucker halt von de software davon)
die datei is halt wie n .do wenn man die .lab startet öffnest sich lable shop dem inhalt

das war bis jetzt die einzigste möglichkeit wie ich die lab datei habe öffnen können
vieleicht kennt ihr ja noch andere wege....

Dim shell
Set shell = CreateObject("WScript.Shell")
shell.run "D:\ScanPrgramm\Document2.Lab"

also ich will nach dem aufruf der lab datei nur noch 1ne exe aufrufen dann bin ich fertig


mfg
uma

 

[mahon]

Da ich deinen slang nicht wirklich Lesen kann, und mir immer nur in den Blick fällt "2te exe starten"

wieso machst du es dann nicht einfach so....

dim result
result = shell("1te.exe")
result = shell("2te.exe")