Control.com - Nerds in Control
from the Programming languages department...
How To Excute the DOS Commands in Visual Basic
  |
hello,
i have a problem. i can't run the DOS commands in VB programs. Please help me.
what is the command in VB to run DOS commands?
and if you can, learn that.
TanQ!!!!!!!!!!!! :D
i have a problem. i can't run the DOS commands in VB programs. Please help me.
what is the command in VB to run DOS commands?
and if you can, learn that.
TanQ!!!!!!!!!!!! :D
|
for VB 6, use: msgbox(shell("dir"))
for 7.0 (.net) there are two ways. I believe shellex or shellexecute is one and the other is in threading. you'll have to search around, but it's out there I know 'cause I did it before. The threading one lets your program watch the commandline output of the other program and interact with it, whereas the shellex one only starts the other prog.
for 7.0 (.net) there are two ways. I believe shellex or shellexecute is one and the other is in threading. you'll have to search around, but it's out there I know 'cause I did it before. The threading one lets your program watch the commandline output of the other program and interact with it, whereas the shellex one only starts the other prog.
|
yes you can use it through "shell" function.
i think it is like ---------------------------> shell (ren abc.zip abc.doc)
get more information about how to use, read book for VB.
Regards,
Shailesh C Patel
FDC - Control Systems And Instrumentation
Reliance Engineering Associates(P) Ltd.
Jamnagar Refinery Complex
Jamnagar,
India
Ph:-0288-3011683
i think it is like ---------------------------> shell (ren abc.zip abc.doc)
get more information about how to use, read book for VB.
Regards,
Shailesh C Patel
FDC - Control Systems And Instrumentation
Reliance Engineering Associates(P) Ltd.
Jamnagar Refinery Complex
Jamnagar,
India
Ph:-0288-3011683
|
Shell execute is what you want. If you want to download a sample then go to http://www.sharemation.com/drogonevets
its under VBResources. you just change the bit where it says "WinWord" or whatever for your command.
Drogo
its under VBResources. you just change the bit where it says "WinWord" or whatever for your command.
Drogo
|
Try the Shell function?
Shell(pathname[,windowstyle])
Shell(pathname[,windowstyle])
|
If you know how to call "spawnv" or its equivalent in Visual Basic, to spawn a program in general, then you can run DOS commands by refering to the program "C:\COMMAND.COM" and then using as the first command-line parameter, "/c" and then the second command-line parameter is the DOS command you wish to execute. In case the DOS command interpretter is not at C:\COMMAND.COM, you can find out where it really is by querying the "COMSPEC" environment variable.
Robert Scott
Real-Time Specialties
Embedded Systems Consulting
Robert Scott
Real-Time Specialties
Embedded Systems Consulting
|
Hey,
Dude all you have 2 do 2 run CMD is type
Shell ("cmd.exe")
and pop! it will come right up
Dude all you have 2 do 2 run CMD is type
Shell ("cmd.exe")
and pop! it will come right up
|
Typically what your going to do is write a batch file in a text editor and call the batch file from a Shell ("cmd.exe")
So the line would read Shell ("batchfile.bat")
Solution Provided,, Insoftdevelopment
I can throw Down a Complete Example if needed.
So the line would read Shell ("batchfile.bat")
Solution Provided,, Insoftdevelopment
I can throw Down a Complete Example if needed.
|
Hi, can you please help me? I'm doing a similar thing. i am trying to run a bat file from within VB6 that will execute winzip to zip/unzip folders. How do i pass parameters to the batch file so it knows which folders to zip/unzip? if you could give me a sample coding it would be most appreciated. Could you also please email me your answers to jasmine.ali@eds.com.
Many thanks for your help in advance.
jasmine
Many thanks for your help in advance.
jasmine
|
I would like an example. I would especially like to know how to insert different file names each time the batch file is called
| Posted by 1RealTruth  on 2 June, 2009 - 8:21 pm |
Maybe the Batch file thing will help the person who posted the original thread but... What I need is to be able to open the command prompt and then have my next command actually type text (i.e. "ping /t " & IPBox1.Text). I have been searching but EVERYONE, seriously everyone wants to push the "Batch File" thing. I have not found one post to tell how to do it without using a batch file. I can get the cmd window to open but my next line will not add the text I want it to ping. I need my text box window's data to be used in the command window.
Could you or someone help me with that?
FYI: I try to do all my scripts and programs to be dynamic like "DHCP". Static is nice for Web page IP addresses but... I work with a lot of computers and I don't have time to edit the code for every server.
Thank you.
Could you or someone help me with that?
FYI: I try to do all my scripts and programs to be dynamic like "DHCP". Static is nice for Web page IP addresses but... I work with a lot of computers and I don't have time to edit the code for every server.
Thank you.
|
Why don't you write your own ping? The way to do DOS things not in the book is to write a command to a buffer set some register variables and call an interrupt routine. Another way might be to call ping with shell parameters. substitution) after writing them to the environment. Or investigate the possible use of pipes.
Don't dismiss using the shell, because you don't have source for the commands and thus no way of knowing how they operate, you are going to have to use the meager facilities provided. This would be no
problem at all in Linux. For that matter, there is a strong possibility that there is a ping routine that is not a command line
tool as many network programs need to check if there is a listener on a port.
You could also investigate VB networking code to write a ping into your code. Which gets us back to the start...........
There you go, several ideas, none of which involve a batch file.
Regards
cww
Don't dismiss using the shell, because you don't have source for the commands and thus no way of knowing how they operate, you are going to have to use the meager facilities provided. This would be no
problem at all in Linux. For that matter, there is a strong possibility that there is a ping routine that is not a command line
tool as many network programs need to check if there is a listener on a port.
You could also investigate VB networking code to write a ping into your code. Which gets us back to the start...........
There you go, several ideas, none of which involve a batch file.
Regards
cww
|
I believe people have already answered this in the thread? I am not an expert at visual basic, but the shell function call others have mentioned looks like the type of thing I would use.
- You build up your string that represents the "typed text" and then pass it to the shell function. The string can be dynamically built based on runtime variables, files, etc.
I'd type an example but its been a while since using VB.
KEJR
- You build up your string that represents the "typed text" and then pass it to the shell function. The string can be dynamically built based on runtime variables, files, etc.
I'd type an example but its been a while since using VB.
KEJR
|
the only way i know that should be working (but is not working) is this:
shell("cmd.exe")
sendkeys.send(" (put anything you want between the quotes) ")
this simply sends a command but you should have a delay after the shell if your computer is slow simply here i will change the color of the cmd
shell("cmd.exe")
sendkeys.send("color fc")
that's all (but its not working)
shell("cmd.exe")
sendkeys.send(" (put anything you want between the quotes) ")
this simply sends a command but you should have a delay after the shell if your computer is slow simply here i will change the color of the cmd
shell("cmd.exe")
sendkeys.send("color fc")
that's all (but its not working)
|
else you could make a console application that works with cmd
|
>shell("cmd.exe")
>sendkeys.send("color fc")
>
>that's all (but its not working)
-------------------------------------------------
reply
try sendkeys.send(" color fc {ENTER} ")
it works
>sendkeys.send("color fc")
>
>that's all (but its not working)
-------------------------------------------------
reply
try sendkeys.send(" color fc {ENTER} ")
it works
|
I know this post is really old but this might be helpful for some people who need to transfer what is in the textbox to a command prompt.
You could create a form with a textbox and button in VB so a user would just have to type in a PC name and click OK to ping the computer.
Dim strComputer, strCommand As String
strComputer = Computer.Text
strCommand = "ping /t" & " " & strComputer
Shell("CMD /k" & strCommand, AppWinStyle.NormalFocus)
THERE YA GO! a CMD prompt should appear and start pinging the remote PC.
You could create a form with a textbox and button in VB so a user would just have to type in a PC name and click OK to ping the computer.
Dim strComputer, strCommand As String
strComputer = Computer.Text
strCommand = "ping /t" & " " & strComputer
Shell("CMD /k" & strCommand, AppWinStyle.NormalFocus)
THERE YA GO! a CMD prompt should appear and start pinging the remote PC.
|
>Dim strComputer, strCommand As String
>
>strComputer = Computer.Text
>
>strCommand = "ping /t" & " " &
>strComputer
>
>Shell("CMD /k" & strCommand,
>AppWinStyle.NormalFocus)
Hiya kane,
where would I put the above code in a module on the form?? sorry very new to VB
|
|
sir...how can you execute this code directly in vb.net?
attrib -s -h /s /d
can you help me sir???...tnx!!!
attrib -s -h /s /d
can you help me sir???...tnx!!!
|
Just put your commands in a notepad or any text editor and save it as a batch file.
At run time, use shell or shellexecute to open and run the batch file.
for more info, visit my site @:
xigmasystems.bravehost.com
At run time, use shell or shellexecute to open and run the batch file.
for more info, visit my site @:
xigmasystems.bravehost.com
|
Try this out:
'=====================================
Dim sYourCommand as String
sYourCommand = "\\networkfolder\project\testfile.txt"
Shell "cmd /c " & sYourCommand, vbHide
'=====================================
This will open up a Command Prompt, execute the string that follows the /c, & remains hidden the entire time. All you see is the desired effect of the command. FYI, once the command is executed to completion, the command prompt will terminate from memory (but you shouldn't actually see the command prompt anyway cuz it's hidden).
'=====================================
Dim sYourCommand as String
sYourCommand = "\\networkfolder\project\testfile.txt"
Shell "cmd /c " & sYourCommand, vbHide
'=====================================
This will open up a Command Prompt, execute the string that follows the /c, & remains hidden the entire time. All you see is the desired effect of the command. FYI, once the command is executed to completion, the command prompt will terminate from memory (but you shouldn't actually see the command prompt anyway cuz it's hidden).
|
Thank you for this example, it helped out tremendously.
|
I tried that and with a little manipulation got it to work. I was simply trying to do the dos command of "dir > index.txt". Here's how I did it:
Dim sYourCommand As String
ChDir Dir1 'since Dir1 is the current directory
sYourCommand = "dir " & Dir1 & "> " & Dir1 & "\index.txt"
Shell "cmd /c " & sYourCommand, vbHide
Dim sYourCommand As String
ChDir Dir1 'since Dir1 is the current directory
sYourCommand = "dir " & Dir1 & "> " & Dir1 & "\index.txt"
Shell "cmd /c " & sYourCommand, vbHide
|
I tried that and with a little manipulation got it to work. I was
simply trying to do the dos command of "dir > index.txt". Here's how I did it:
>Dim sYourCommand As String
>ChDir Dir1 'since Dir1 is the current
>directory
>sYourCommand = "dir " & Dir1 & "> " &
>Dir1 & "\index.txt"
>Shell "cmd /c " & sYourCommand, vbHide
The above command is working fine if I will go for without redirection operator. if i will give redirect operator(>) then it is giving problem.
Please help.
Thank u...
simply trying to do the dos command of "dir > index.txt". Here's how I did it:
>Dim sYourCommand As String
>ChDir Dir1 'since Dir1 is the current
>directory
>sYourCommand = "dir " & Dir1 & "> " &
>Dir1 & "\index.txt"
>Shell "cmd /c " & sYourCommand, vbHide
The above command is working fine if I will go for without redirection operator. if i will give redirect operator(>) then it is giving problem.
Please help.
Thank u...
|
In order to run a dos command from within VB you need to use the shell command. An example to move a word file from the c to d drive is as follows:
lRet = Shell("cmd /c move /y c:\Oldlocation.doc d:\newlocation.doc",vbHide)
the /c tells the cmd window to execute the string following. The /y on the move surpresses messages
lRet = Shell("cmd /c move /y c:\Oldlocation.doc d:\newlocation.doc",vbHide)
the /c tells the cmd window to execute the string following. The /y on the move surpresses messages
|
It worked. The switches were good also. Eliminates the whole bat file thing.
|
hello,
visit www.planetsourcecode.com, this site will help you about visual basic.
visit www.planetsourcecode.com, this site will help you about visual basic.
|
I was looking for a snippet code that could help me type DOS commands into VB, I wrote a simple code to perform such task anyway:
If ExecuteDOSCommand("mkdir c:\my_test_folder") Then
MsgBox "it worked..."
End If
End Sub
Function ExecuteDOSCommand(ByVal command As String) As Boolean
On Error Resume Next
'require microsoft scripting runtime reference
Dim Fso As New FileSystemObject
Dim oText As TextStream
Dim BatFile As String
BatFile = App.Path & "\vbcommand.bat"
Fso.CreateTextFile BatFile, True
Set oText = Fso.OpenTextFile(BatFile, ForWriting)
oText.WriteLine command
oText.Close
Set oText = Nothing
Set Fso = Nothing
ExecuteDOSCommand = Shell("""" & BatFile & """") > 0
End Function
|
You don't need the function, if you use cmd.exe like someone said:
=======================
Private Sub Command1_Click()
P$ = Environ$("WINDIR") + "\system32\cmd.exe /c mkdir c:\mynewdir"
Print P$
If Shell(P$) > 0 Then
Print "greater"
ChDir "c:\mynewdir"
Else
Print "less or equal"
End If
End Sub
=============================
note "c:\mynewdir" could be "C:\home\"+username$(j) to create home directories for all users or whatever
=======================
Private Sub Command1_Click()
P$ = Environ$("WINDIR") + "\system32\cmd.exe /c mkdir c:\mynewdir"
Print P$
If Shell(P$) > 0 Then
Print "greater"
ChDir "c:\mynewdir"
Else
Print "less or equal"
End If
End Sub
=============================
note "c:\mynewdir" could be "C:\home\"+username$(j) to create home directories for all users or whatever
|
hey guys,
i'm trying to build a program in VB 2008 express edition that will run the command prompt, type: format /FS:NTFS X:
where X is the drive, and NTFS is the file system.
then, i want the program to hit enter in the command prompt, so that the drive is formatted. so far, i have the code necessary to run the cmd.exe, and my program, just not how to input the above, and how to hit enter...
reply to me at delmar1992 [at] hotmail.com
thanks
i'm trying to build a program in VB 2008 express edition that will run the command prompt, type: format /FS:NTFS X:
where X is the drive, and NTFS is the file system.
then, i want the program to hit enter in the command prompt, so that the drive is formatted. so far, i have the code necessary to run the cmd.exe, and my program, just not how to input the above, and how to hit enter...
reply to me at delmar1992 [at] hotmail.com
thanks
|
You would need 2 timers for this method...
timer1.interval = 5000
timer2.interval = 500
Private Sub Timer1_Timer()
Shell "C:\Windows\system32\cmd.exe", vbNormalFocus 'opens CMD
Timer2.Enabled = True 'timer2 gives cmd a moment to start up
End Sub
Private Sub Timer2_Timer()
SendKeys "format /FS:NTFS X:" 'format code
SendKeys "{Enter}" 'enter code
Timer2.Enabled = False 'resets timer2
End Sub
This is probably not exactly what you need but you get the idea.
timer1.interval = 5000
timer2.interval = 500
Private Sub Timer1_Timer()
Shell "C:\Windows\system32\cmd.exe", vbNormalFocus 'opens CMD
Timer2.Enabled = True 'timer2 gives cmd a moment to start up
End Sub
Private Sub Timer2_Timer()
SendKeys "format /FS:NTFS X:" 'format code
SendKeys "{Enter}" 'enter code
Timer2.Enabled = False 'resets timer2
End Sub
This is probably not exactly what you need but you get the idea.
|
Hi - So if I understand this right, I can use Shell to run an instance of devcon to disable and enable a usb device that has 'locked up'? MW
|
To answer my own question (with the help of TheDirector's answer above) a command button called Command1 with the following code attached...
Private Sub Command1_Click()
Dim sYourCommand As String
sYourCommand = "C:\devcon DISable " & """@HID\VID_05AC&PID_0304\6&306D5220&0& 0000"""
Shell "CMD /c" & sYourCommand
End Sub
... will disable the USB mouse whose Device Instance ID (from (XP) Device Manager > relevant device > Properties > Details tab > Device Instance ID) is HID\VID_05AC&PID_0304\6&306D5220&0&0000. This has exactly the same effect as highlighting the relevant device in Device Manager and clicking on the 'Disable' icon. You can re-enable it replacing 'disable' in the code with 'enable' or use any of the other DEVCON commands.
For testing, instead of using the /c you can use /K which does not close the command prompt window so you can see what has happened. MW
Private Sub Command1_Click()
Dim sYourCommand As String
sYourCommand = "C:\devcon DISable " & """@HID\VID_05AC&PID_0304\6&306D5220&0& 0000"""
Shell "CMD /c" & sYourCommand
End Sub
... will disable the USB mouse whose Device Instance ID (from (XP) Device Manager > relevant device > Properties > Details tab > Device Instance ID) is HID\VID_05AC&PID_0304\6&306D5220&0&0000. This has exactly the same effect as highlighting the relevant device in Device Manager and clicking on the 'Disable' icon. You can re-enable it replacing 'disable' in the code with 'enable' or use any of the other DEVCON commands.
For testing, instead of using the /c you can use /K which does not close the command prompt window so you can see what has happened. MW
|
> To answer my own question (with the help of TheDirector's answer above) a
> command button called Command1 with the following code attached...
>Private Sub Command1_Click()
>Dim sYourCommand As String
>sYourCommand = "C:\devcon DISable " &
>"""@HID\VID_05AC&PID_0304\6&306D5220& ;0&0000"""
>Shell "CMD /c" & sYourCommand
>End Sub
>
>... will disable the USB mouse whose Device Instance ID (from (XP) Device Manager
How do I pass a value from a combobox to a shell/dos command.. for example in VB I selected the c:\ drive and I want to pass that value into shell(the dos portion to get it to work).. how can I do that?
> command button called Command1 with the following code attached...
>Private Sub Command1_Click()
>Dim sYourCommand As String
>sYourCommand = "C:\devcon DISable " &
>"""@HID\VID_05AC&PID_0304\6&306D5220& ;0&0000"""
>Shell "CMD /c" & sYourCommand
>End Sub
>
>... will disable the USB mouse whose Device Instance ID (from (XP) Device Manager
How do I pass a value from a combobox to a shell/dos command.. for example in VB I selected the c:\ drive and I want to pass that value into shell(the dos portion to get it to work).. how can I do that?
|
hello,
Shell("calc.exe") to run calculator
Shell("cmd.exe") to run command prompt
Shell("calc.exe") to run calculator
Shell("cmd.exe") to run command prompt
|
> Shell("calc.exe") to run calculator
> Shell("cmd.exe") to run command prompt
Shell() works but its so limited -
(1) run asynchronous and no way to set it to wait as in the VBScript Run function for example:
WshShell.Run(strCommand, [intWindowStyle], [bWaitOnReturn])
(2) not supply ExitCode
(3) nor yet access to stdErr/stdIn/stdOut
In other words can't get as well the output from my command.
The Exec() function in VBScript allows this, but I can't find similar method in VB6 (not VB.Net), did someone have idea or pointer where to look?
Thanks
> Shell("cmd.exe") to run command prompt
Shell() works but its so limited -
(1) run asynchronous and no way to set it to wait as in the VBScript Run function for example:
WshShell.Run(strCommand, [intWindowStyle], [bWaitOnReturn])
(2) not supply ExitCode
(3) nor yet access to stdErr/stdIn/stdOut
In other words can't get as well the output from my command.
The Exec() function in VBScript allows this, but I can't find similar method in VB6 (not VB.Net), did someone have idea or pointer where to look?
Thanks
Your use of this site is subject to the terms and conditions set forth under Legal Notices and the Privacy Policy. Please read those terms and conditions carefully. Subject to the rights expressly reserved to others under Legal Notices, the content of this site and the compilation thereof is © 1999-2013 Nerds in Control, LLC. All rights reserved.
Users of this site are benefiting from open source technologies, including PHP, MySQL and Apache. Be happy.
Fortune
The rule on staying alive as a forcaster is to give 'em a number or
give 'em a date, but never give 'em both at once.
-- Jane Bryant Quinn
