DOS in VB

[kenenick]

Hallo,

Ik ben nieuw in vb en zit met een probleem, ik wil een .bat bestand uitvoeren en dan de text die je normaal in een Dos Box ziet in een textbox weergeven in mijn programma.
Na een beetje zoeken op google vond ik dit:

Private Sub LinkLabel1_LinkClicked(.........bla bla bla.........) 
        Shell("test.bat" & TextBox1.Text) 
End Sub

maar dan doet het programma helemaal niks

 

[etri]

Ik neem aan dat TextBox1.Text een parameter is die wordt meegegeven aan "test.bat".

Ten eerste moet dan een spatie staan tussen "test.bat" en TextBox1.Text, anders krijg je een hele rare extensie voor het batch-programma test

Ten tweede kan het huidige pad niet goed zijn waardoor test.bat domweg niet wordt gevonden . Je kan dus beter het pad 'hard opgeven'.

Een betere code is:

Private Sub LinkLabel1_LinkClicked(.........bla bla bla.........) 
        Shell("c:\temp\test.bat " & TextBox1.Text) 
End Sub

of indien test.bat in dezelfde folder staat als je applicatie:

Private Sub LinkLabel1_LinkClicked(.........bla bla bla.........) 
        Shell(app.path & "c:\temp\test.bat " & TextBox1.Text) 
End Sub

 

[etri]

Nog iets vergeten...

Omdat je haakjes gebruikt zul je je functie-aanroep iets moeten aanpassen:

Private Sub LinkLabel1_LinkClicked(.........bla bla bla.........) 
        Dim retcode as long
        retcode = Shell("c:\temp\test.bat " & TextBox1.Text) 
End Sub

Je kunt ook de haakjes weglaten, maar ik vind dit netter