FettAngelUma
Grünschnabel
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
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