Shelling to Command Prompt to run a DOS command???/

DougP · Feb 11, 2000

I am writing a program tha lists all of the files in a folder. 
you can do this by going to the "Command Prompt" and typing 
dir *.* > docs.txt 
which will list all of the files and creates a text doc. 
 
I want to do this without having that ugly Black window pop up 
 DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a>

Snaggs · Feb 12, 2000

Doug, How about doing something like this? 
 
Private Sub Form_Load() 
Dim strFilename As String 
 
'List the first file in C:\ 
strFilename = Dir("C:\", vbNormal) 
Debug.Print strFilename 
 
'While filename are being returned, keep getting the next filename. 
Do While strFilename <> "" 
 
'Get the next file in the directory. 
strFilename = Dir() 
Debug.Print strFilename 
Loop 
End Sub 
 
This will do the same thing, but from VB itself. If you want the contents in a file, add the filenames as you read them. 
 
Steve 
<A HREF="mailto:sdmeier@jcn1.com">sdmeier@jcn1.com</A>

DougP · Feb 13, 2000

Ok I just thought of that about 10 minutes after I posted this. Thanks 
 
Do you know how to CALL the Command Prompt window and send commands to it? 
and Close it too afterwords? 
 
 DougP <a href=mailto: dposton@universal1.com> dposton@universal1.com</a> <a href= > </a>

Alt255 · Feb 13, 2000

See Mike Lacey's and edderic's posts in the "Console Applications" thread. (dwoodstrom, 1/31/00, posted 10/11). 
Mike also posted a link to an interesting site, <A HREF="

http://www.vb-world.net/api/console/"

TARGET="_new">

http://www.vb-world.net/api/console/</A>

that provides a lot of useful information.

edderic · Feb 16, 2000

<Do you know how to CALL the Command Prompt window and send <commands to it? 
<and Close it too afterwords? 
 
Option Explicit 
 
Private Declare Function AllocConsole Lib "kernel32" () As Long 
Private Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long 
Private Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, ByVal lpBuffer As String, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long 
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long 
Private Declare Function FreeConsole Lib "kernel32" () As Long 
 
Private Const STD_OUTPUT_HANDLE = -11& 
 
Private hConsole As Long 
 
Private Sub Form_Load() 
Dim txt As String 
Dim num_written As Long 
 
If AllocConsole() Then 
hConsole = GetStdHandle(STD_OUTPUT_HANDLE) 
If hConsole = 0 Then MsgBox "Couldn't allocate STDOUT" 
 
' Present a warning. 
txt = "******************************************" & vbCrLf & _ 
"* Warning: Do not close this window! *" & vbCrLf & _ 
"* Close the VB program's window instead. *" & vbCrLf & _ 
"******************************************" & vbCrLf 
WriteConsole hConsole, txt, Len(txt), num_written, vbNullString 
 
' Make this form visible and on top. 
Me.Show 
SetFocus 
Else 
MsgBox "Couldn't allocate console" 
End If 
End Sub 
 
a CommandButton with : 
 
Private Sub Command1_Click() 
Dim app_name As String 
Dim txt As String 
Dim num_written As Long 
 
app_name = App.Path 
If Right$(app_name, 1) <> "\" Then app_name = app_name & "\" 
app_name = app_name & "test.bat" 
 
txt = "Ready to run" & vbCrLf 
WriteConsole hConsole, txt, Len(txt), num_written, vbNullString 
Shell app_name 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
CloseHandle hConsole 
FreeConsole 
End Sub 
 
 
Eric De Decker <a href=mailto:vbg.be@vbgroup.nl>vbg.be@vbgroup.nl</a> <a href= Center :

http://members.tripod.lycos.nl/VisualBasicCenter/>

Visual Basic Center</a>

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Shelling to Command Prompt to run a DOS command???/

DougP

MIS

Snaggs

Programmer

DougP

MIS

Alt255

Programmer

edderic

Programmer

Similar threads

Part and Inventory Search

Sponsor