Obecná diskuse

Dobré odpoledne,
potřebuji poradit se spouštěním exe souboru přes příkazovou řádku. Exe soubor nemá vlastní GUI (proto cmd) a ještě k tomu musí být nastaveny určité parametry. Soubor není na systémovém disku C. Zatím jsem rozchodil jen toto:

Sub command()
CreateObject("WScript.Shell").Run "CMD.EXE /k cd/d E:\Programy\Notifer", vbNormalFocus
End Sub

Ve složce Notifer je právě ten exe soubor notifer.exe a nevím jak dál.
Děkuji za pomoc
Milan

Zaslat odpověď >

Palooo(3.3.2020 9:18)#046125

mozno vam pomoze toto:
Dim RetVal
RetVal = Shell("C:\test\test.exe", 1)citovat

MilanM(15.4.2020 14:45)#046430

Konečně jsem se k tomu dostal. Bohužel mě to takto nefunguje. Resp. ono by to fungovalo, kdyby to exe bylo spustitelné:
RetVal = Shell("E:\Programy\Notifer\notifer.exe", 1)

Jenže já to musím použít s příkazovou řádkou:
RetVal = Shell(CMD.EXE /k cd/d "E:\Programy\Notifer\notifer.exe", 1)
A to mě vyhodí chybu, že systém nemůže najít uvedenou cestu. Stačí, když odeberu to notifer.exe a dostanu se příkazovou řádkou na daný disk do daného adresáře.
Tudiž jak to tedy zapsat, aby se spustil ten exe soubor?
Děkujicitovat

lubo(16.4.2020 20:06)#046444

Tak se mrkni, co děláš:

cd /d mění aktuální adresář, včetně jednotky. Pokud tam je notifer.exe, pak zadaný řetězec není adresář.

Nevím co chceš dělat, a nechce se mi to nasatvovat, ale zkusil bych vynechat to cd /d.

Pokud před spuštěním potřebuješ nastavit adresář, tak zkus použít oddělovač příkazů: & nebo && nebo ||.
Vhodný je nejspíš ten &&, které spustí další příkaz jen, když projde předchozí.citovat

Téma: CMD a exe soubor

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje