Visual Basic :: DOS Command From VB

Project Properties, Make/Command Line Args Vs Command
When setting the Project's Properties, on the Make tab, in the Command Line Args area, if I put a file's PathName and run it, there are no quotes Chr(34) around it. When I run the app from the IDE it works and copies/moves my file. When I pass a file's PathName via drag/drop, command line or Send To menu, I get quotes and the copy/move fails.

I've parsed the Chr(34)'s out of the strings, but am curious if this will affect other OS's in different ways? I'm developing it on XP, and will be running it on an ME and a 98SE machine as well.

Any thoughts?

TYIA

'Rekd

Make All Command Boxes Have A Change Command
I need some help trying to figure out how to make all my comboboxes have a Change command without having all the boxes in an array.

Is this possible?

Thanks,
David

Parend Command & Child Command (DataEnvironment)
How can i have reference to a child Comand in my code???
fror example to ... .Movelast or to .Delete

Plz Help

Changing The Command Text Of A Command That Has Been Grouped
Hi, I am a newbie to all of this and was wondering if someone could help me with a problem I am having. I am trying to dynamically change the command text for a data environment command that has been grouped. For some reason what I have tried does not work. Here is what I have tried:

I have a data environment with a command called command1 that is grouped. The grouped name is command1_grouped. The grouped command has the following fields: Summary fields has MealName. Detail Fields has MealName and IngrediantName.

I have created a data report that is grouped by the meal name and then lists the ingrediants for that meal. This works fine. However, I would like the user to be able to imput a list of meals and then get a print out. This requires me to build the command text dynamically. But when I try the following I get errors.

DataEnvironment1.Commands("Command1_Grouping").CommandText = (NEW SQL STATEMENT GOES HERE).

DataEnvironment1.Connection1.Execute DataEnvironment1.Commands("Command1_Grouping").CommandText

When I run this I get an error telling me that Command1.IngrediantName cannot be found(this occurs when I try to open the data report). If I ungroup the command and then change the command name back to its original name it works fine, except I can no longer use the group heading in my data report. I.E. DataEnvironment1.Commands("Command1").CommandText = (NEW SQL STATEMENT GOES HERE).

It wont let me use the original command name if it is grouped. In other words if I tried the code above while the command was still grouped I get an invalid procedure or argument error.

As you can probably tell I am at a complete loss here and would really appreciate anyones help

Thanks,
scarlet13

Using A Command Button To Click Other Command Buttons? Please Help
Hi
I am creating a program and I want to make it so if I click one command button VB automatically click other command buttons

i.e.
Clicking command 4 runs
command 1
command 2
command 3
in that order

Please help

Thanks

Running A DOS Command WITHOUT The Command Window Appearing
Hi,

I want to run a DOS command from my Visual Basic program - and I can do that fine, but I want to do it without the Command Window popping up. Is there a way to do this?? because if the command window pops up it makes my app look very scruffy.

Robin

Shell Command, Command Line Parameter
hi,
i'm a VB newbie...

I'm attempting to make a file/folder selector to play winamp compatible files in (its my Software Design Major ) - the trouble is with the command line interpretation of the code. For those who don't know, items can be played in winamp like so:

C:path owinampwinamp.exe /ADD C:mp3whatever.mp3
(Adds C:mp3whatever.mp3 to the playlist of a running Winamp, if Winamp is running, otherwise it opens Winamp and plays it outright)

this also works with a folder specified at the end of the winamp location aswell rather than a file

heres what i'm trying
this is onclick

VB Code:
fileselected = filemodelist.SelectedText1.Text = fileselectedopendir = "C:Program FilesWinampWinamp.exe " + fileselected + "" Text1.Text = opendirShell opendir

this just opens winamp with a messed up playlist where every part of the location with a space between it is a new item in the playlist

e.g.
1. Alice
2. Deejay
3. -
4. Who
5. Needs
6. Guitars
7.

there must be a relatively easy way to do this...

WuZ.

Sending Command To Command Prompt To Be Execute
how can i send a dos command from vb program to command prompt to be execute? thanx

Using Command Line Arguments In Shell Command
i need to run a program with a command line argument but i havent figured out a way and i really tried to search here,can someone point
how to use it with shell argument?

Command {command Line Arguments}
I have a problem
It's when I go into Project>ProjectName Properties>Make the going on to the command line arguments how do I use them. Because I would like it to show a form when I type in ProjectName.exe -s.please can someone help me.

Assigning A Run Command To A Command Button
How would I assign a simple run command (ie. start --> run) to a command button? So that when the button is clicked the window would pop up as if you had went start --> run and hit OK (ex: winipcfg or a targeted .exe).

Command Text Was Not Set For Command Object
What does this error means? "Commant Text was not Set for Commant Object"

Can anybody help me out?

Help!!! Command Text Was Not Set For The Command Object
Code:
Private Sub cmdFlightSearch_Click()
Set rd = New ADODB.recordSet
Dim query As String, x As Integer

lstFlightNumber.Clear

If txtSearchFlightDestination.Text <> vbNullString And txtSearchFlightDate.Text = vbNullString Then
query = "SELECT * FROM FLIGHT WHERE FL_ARRIVE = '" & txtSearchFlightDestination.Text & "'"
ElseIf txtSearchFlightDestination.Text = vbNullString And txtSearchFlightDate.Text <> vbNullString Then
query = "SELECT * FROM FLIGHT WHERE FL_DATE = #" & Format$(txtSearchFlightDate.Text, "dd/mm/yyyy") & "# "
ElseIf txtSearchFlightDestination.Text = vbNullString And txtSearchFlightDate.Text = vbNullString Then
MsgBox "Please enter the flight date, flight destination or both to start your search."
ElseIf txtSearchFlightDestination.Text <> vbNullString And txtSearchFlightDate.Text <> vbNullString Then
query = "SELECT * FROM FLIGHT WHERE FL_DATE = #" & Format$(txtSearchFlightDate.Text, "dd/mm/yyyy") & "# AND FL_ARRIVE = '" & txtSearchFlightDestination.Text & "' "
End If

rd.Open query, cn, adOpenForwardOnly, adLockReadOnly

If rd.EOF = True Then
MsgBox "No Flight Found!", vbCritical, "Flight Enquiry"
Else
Do While Not rd.EOF
lstFlightNumber.AddItem rd!FL_NUM
rd.MoveNext
Loop
End If

rd.Close

fraFlightSearchResult.Visible = True

End Sub
when I run this part of code, the error message "Command Text was not set for the command object" appeared. I don't understand what the error is. The error is at the rd.Open part.

Can anybody please help me?? Have been looking into this problem for 2 days.

Thank you very much.

Get Command Ouput From Shell Command
Hi Ppl,
I am calling an executable using the Shell Command in VB.

Shell (" C:automateautomate.exe c:automateautomate_file")

It starts the console for automate.exe and prints output on the console.

Is there any way , I could get the output line by line printed out in VB.

I have tried using the above command with a redirector to a file and then reading the file. But in this process I have to wait till the Shell command completely executes. and then read the file.

Instead I need to read and print the ouput in real time.

Any suggestions would be greatly appreciated.

Thanks,
Aj

Command Text Not Set For The Command Object
I have three forms that I use so far. All of them connect to a backend db. When I open frmSetup_SetupUsers and/or frmSetup_SetupDepartments first, and then open frmSetup_SetupUsersAndPermissions, frmSetup_SetupUsersAndPermissions comes up without a problem. But if I open frmSetup_SetupUsersAndPermissions first, I get the following error message that points to my second recordset. Can anyone take a look please?

error message is:

Quote:

command text not set for the command object

and it points to: (modDatabase)

VB Code:
Public Sub OpenMyRecordset2() 'set the recordset as a new ADO recordset Set rs2 = New ADODB.Recordset 'open the recordset based on the SQL statement and 'connection specifications [hl]rs2.Open strSQL2, conn, adOpenKeyset, adLockOptimistic[/hl]End Sub

rs, rs2, rs3, conn are declared as public in modPublicVariables. Makes no sense. Thanks in advance.

Command Text And Command Objests
Hi... I am still working on a Bed sighup sheet. I just tried adding some code to prevent duplicating records, but I am having errors I don't understand.
Code:
    Dim adoCon As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sSQL As String

    Set adoCon = New ADODB.Connection
    Set rs = New ADODB.Recordset

    With adoCon
        .Provider = "Microsoft.jet.oledb.4.0"
        .ConnectionString = "Data source=" & App.Path & "intake.mdb"
        .Open 'open connection
    End With

    With rs
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .ActiveConnection = adoCon
        .Open sSQL
        Set .ActiveConnection = Nothing
    End With

    If Not rs.EOF Then
        MsgBox "This client is already signed in", vbOKOnly, "Alert!!!"

    Else
        sSQL = ""
        sSQL = sSQL & "INSERT INTO Bed_Usage (Person_SSN, Bed_ID, Date_of_Entry, End_of_Stay, Usage_Date)"
        sSQL = sSQL & " Values ('" & txtSSN.Text & "', '" & txtSelection.Text & "', '" & txtDoE.Text & "', '" & txtEos.Text & "', '" & lblDate.Caption & "')"

    End If

    Debug.Print sSQL

    adoCon.Execute sSQL


    Set rs = Nothing

    Set adoCon = Nothing

Can anyone tell me what I am doing wrong?

Happieman    a.k.a. Bill

Edited by - Happieman on 5/22/2005 10:26:17 AM

Sending A Command To DOS Command Line
I have searched for this answer, but have probably missed it. I have a window that has a text box that you will type in the computer name, when a button is clicked it will run the command shutdown -s -m \%computername from textfile% . This will remotely shutdown remote machines at my site.

Command Text And Command Objects 2
Hi again Programmers... I hope things are well with all of you. When I run the following code, I get an error when I try to retrieve the title info from an exosting record in the specified db.

"Command text was not set for the command object"

The code looks ike this:
Code:
    Dim adoCon As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sSQL As String
    Dim strPath As String


    Set adoCon = New ADODB.Connection
    Set rs = New ADODB.Recordset

    strPath = "C:Program FilesCommon FilesLibrary"

    With adoCon
        .Provider = "Microsoft.jet.oledb.4.0"
        .ConnectionString = "Data source=" & strPath & "Library.mdb"
        .Open
    End With

    If cmdTask.Caption = "&Submit" Then
        sSQL = ""
        sSQL = sSQL & " INSERT INTO Library (Name_of_Author, Title_of_Book,"
        sSQL = sSQL & " Date_of_Publication, Name_of_Publisher)"
        sSQL = sSQL & " Values ('" & cmbAuth.Text & "', '" & cmbTitle.Text & "',"
        sSQL = sSQL & " '" & txtDate.Text & "', '" & txtPub.Text & "')"
    End If

    adoCon.Execute sSQL

    cmbAuth.Text = ""
    cmbTitle.Text = ""
    txtDate.Text = ""
    txtPub.Text = ""

        If cmdTask.Caption = "Searc&h" Then
            If optTitle.Value = True Then
                sSQL = ""
                sSQL = sSQL & " SELECT (Title_of_Book,Date_of_Publication, "
                sSQL = sSQL & " Name_of_Publisher)"
                sSQL = sSQL & " FROM Library"
                sSQL = sSQL & " WHERE Name_of_Auth = '" & cmbAuth.Text & "' "
                sSQL = sSQL & " Order By Name_of_Auth Desc"
            End If
        End If

            Debug.Print sSQL

            With rs
                .CursorType = adOpenStatic
                .CursorLocation = adUseClient
                .ActiveConnection = adoCon
                .Open sSQL
                Set .ActiveConnection = Nothing
            End With

   End Sub

I will be grateful for any advice anyone can offer me
Thanks again

Happieman
a.k.a. Bill

Edited by - Happieman on 9/9/2005 9:02:01 AM

If A Command Cant Clear The Text Box... What Command Can I Use...
i was try to clear text in my text box, using this command --> mytext.text = ""
then it pop up a message say...
Run-time error '2185'
You cant reference a property or method for a control unless the control has the focus.

DataEnvironment And Command/command Child
please help..

my program is this"PAYROLL System"

TABLE-------------------------------------FIELDS

EMPLOYEE *EMP_ID
                                                      EMP_NAME

DEDUCtion DED_CODE
                                                     DESCRIPTION
                                                     DED_VALUE
                                                    * EMP_ID

OPERATION;

I have 3 deductions e.g.

SSS 100
PHILHEALTH 100
COON 200

HERES i want to do..

i want the EMPLOYEE info viewed in datareport together with the emp ID like this

EMP ID: 54551
NAME: Elbren O. Antonio

-------------------------------------------------------------------------------------------------------------
DEDUCTIIONS:
-------------------------------------------------------------------------------------------------------------
SSS 100
PHILHEALTH 100
COON 200
-------------------------------------------------------------------------------------------------------------

how can i do this using the dataenvirnment and connection

please help

I might be wrong, but never in doubt

DataEnvironment And Command/command Child
please help..

my program is this"PAYROLL System"

TABLE FIELDS

EMPLOYEE *EMP_ID
                                                      EMP_NAME

DEDUCtion DED_CODE
                                                     DESCRIPTION
                                                     DED_VALUE
                                                    * EMP_ID

OPERATION;

I have 3 deductions e.g.

SSS 100
PHILHEALTH 100
COON 200

HERES i want to do..

i want the EMPLOYEE info viewed in datareport together with the emp ID like this

EMP ID: 54551
NAME: Elbren O. Antonio

-------------------------------------------------------------------------------------------------------------
DEDUCTIIONS:
-------------------------------------------------------------------------------------------------------------
SSS 100
PHILHEALTH 100
COON 200
-------------------------------------------------------------------------------------------------------------

how can i do this using the dataenvirnment and connection

please help
Rock
Please do not double post your questions, thanks

I might be wrong, but never in doubt

Edited by - rock on 9/27/2007 8:53:43 PM

Search Command And Save Changes Command
I need to setup a search macro linked to a button on a custom form that will search a column in a spreadsheet for a entered value in a text box and if its found I need it to populate the fields in the screen with the values stored in the row containing the entered value.....and also once these fields are populated I need to save the changes that are made to the record. After the changes are saved I'll need to prompt the user if they need to search for another record or go back to the default state which would be to add a new record.

HERE IS A BASIC SEARCH MACRO....BUT HOW WILL I IMPORT THE VALUES FROM THAT RECORD ONCE ITS FOUND INTO THE USER FORM?
Code:
Private Sub cmdSearch_Click()
           Dim strFindWhat As String
           strFindWhat = TextBox1.Text
           On Error GoTo ErrorMessage

    Cells.Find(What:=strFindWhat, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False).Select
    Exit Sub
ErrorMessage:
        MsgBox ("The data you are searching for does not exist")
End Sub

Edited by - Unipowered on 1/22/2004 8:09:24 AM

Please Help Me - DataEnvironment With Command And Child Command...
hi all,
please help me if you can:
i use the data environment with a command, tblFDI which has a child command, qryFDITechnicians
I use tblFDI with an ADODC (datPrimaryRS) on a form and the corresponding qryFDITechnicians is used to populate a datagrid as follows:

Set grdDataGrid.DataSource = datPrimaryRS.Recordset.Fields("qryFDITechnicians").Value

It works fine as long as there is at least one record in the child command but when there is no record in qryFDITechnicians, i get the following error:

"The operation requested by the application is not allowed if the object is open"
and then
"Application-defined or object-defined error"

Let me know how to solve this problem or if there is another workaround for this problem.

Thanks in advance
Hedley

How To Create Own Style Command Button The Command Button Properties Can Set By User?
how to create style command button the command button properties can set by user?

is it something related to .ocx file extension?

like caption can set by user
height,width can set by user
command button button can set by user...

Passing A Command To A Blank Command In A Data Enviroment For A Data Report
Howdy All

I have a problem. I have a data report that displays all fields from a table. But each year a new table is created. So this data report can only show the new year fields. Not the previous. (EX. two tables in the database table 2004(called Tab2004) and a newly created table just called Tab) Now the data enviroment comand 'select * from Tab' so each year as a new table is created the report can only print out the new table. But my problem is I want the data report to be able to print the previous years when selected and adapt for each new year added.

I know the command won't accept a param for the table. So I tried inserting the SQL from the form but to no avail.

Basically what i want is this SQL in my command

'SELECT * From (whatever table choosen)'

and insert it during runtime into the data enviroments command

I tried this

Dataenviroment1.Commands("Command1").CommandText="'SELECT * From '" & strTable & "' ORDER BY field_Name"

But all I get is a rowset error
failure to recieve rowset I beileve.

Can anybody help

Thanx in advance

Is Using The Direct Draw Line Command That Much Faster Then Vbs Line Command?
is using the direct draw line command that much faster then vbs line command?

Converting A Custom Command Button To A Standard VB Command Button
Hey there,
The task at hand is as follows: I have a large VB project with many forms that use a custom command button (it is the Gurhan Button, a freeware control available from PSC and other places). What I want to do is replace the Gurhan button en masse to the standard VB button.

What I have done is written a simple VB program that reads in the .frm files of the project as text, and made the appropriate replacements. This works fine except for the Picture property. In other words, a line like this:

Picture = "Form1.frx":11B4

causes problems in the converted project.
When I open the new form, I get the "There were errors, check log file for details" message. The log file message, not very useful, contains lines like this:
Line 12: Property Picture in GurhanButton1 could not be set.

Now, I am not an expert on frx files, but I would think that the reference to "Form1.frx":11B4 in the Picture property refers to its location in the file? And if so, the frx file is not being changed, so I am at a loss as to why VB cannot set the property. Any ideas?

Command 2 Submit Command 1
Ok heres what i am trying to do.

When user clicks command 2, I would like command 1 to be clicked pause for 2 seconds then looped.

Get Command From The Command Promt
hey how to i make my app take commands from the command promt..like ie is explorer .....?

what i want is c: est.exe test and it will show the test thingey!

how can this be done?

FileLen Command Vs Len Command
Hi All,

I have a data file, which is for arguments sake 60000 bytes in size. I have determined this by using the FileLen command in VB.

What I need to do is have a progress bar, which indicates the file being loaded (as it takes a while). I am reading in each line individually and then working out the size of the current line using the Len command. When I run it, it only gets to about 47% of the progress bar before it finishes. The code I am using to work out the percentage is as follows:

CODEMe.progress_main.Value = Me.progress_main.Value + (Len(l_current_line) / l_file_size) * 100

How To Run A Command-line Command From Vb (e.g. Java Test - Run A Java Program Called 'test")? Thank
How to run a command-line command from vb (e.g. java test - run a java program called 'test")? thanks

Send Command, Wait 2 Seconds, Then Send Command Again
Here is the process I need.

Click a command button that will send chr(24) out the serial port, then wait 2 seconds, then send chr(24) out again.

Can I reference a pause subroutine or something like that?

For instance:

Private Sub Command5_Click()
MSComm1.Output = Chr(24)
Call pause 'subroutine to wait 2 seconds
MSComm1.Output = Chr(24)
Call pause 'subroutine to wait 2 seconds
MSComm1.Output = "3"
End Sub

Command Prompt Application Not Holding Command Prompt [VB6]
This is going to be hard to explain, let me try...
I have an application (Command Prompt application, all .BAS/.CLS files, no Forms at all).
This is meant to be run from the command line only.

When the user runs the application [C:AppProgram.exe] I want the command prompt to "hold/wait" until the program is finished running before returning control to the user.
Currently, the user runs the commnad line application and it immediatly returns to the command line (hope I am making sense).

So the sequence of events should be:
- Open command prompt and go to c:App
- Type Program.exe (which takes 5-10 minutes to run)
- HOLD the command line until the application is done
- Return to C:App when finished so the user can do something else

Currently the undesirable sequence of events are:
- Open command prompt and go to c:App
- Type Program.exe (which takes 5-10 minutes to run)
- Returns to C:App when finished so the user can do something else
- 5-10minutes later the application finishes but we have no way of knowing (besides task manager in windows)

How can I make the Command Prompt/Shell WAIT for my program to finish before relinquishing control back to the user?
Thanks,

Enabling Command Button By Clicking Another Command Button.
Hi again, i was just helped on this site majorly thankyou ! I have one more question:

See the image below. I want to make for example; when you click "dan" and "kwan" it enables you to click the things valued at "dan" and "kwan" i.e. "dario hat" for example. Also, how to make it so "dario hat" is valued at "dankwan". If your curious, we had to make our own currency lol.

Command Button 1 Depends On Command Button 2
hi there! hope someone can give some time w/ my prob.! Actually, I have 2 command buttons: button 1 for extracting and button 2 for printing. By the way, i just used a macro for the print button. The situation is this, before the user can extract the file, he should print it first. So I included a msgbox for that.

My question is what can i possibly add to the codes below in order to cancel the msgbox and continue w/ the extraction if the user already printed the report???

Private Sub cmdOutExcel_Click()

If MsgBox("You have to print the report before proceeding", vbOKOnly + vbInformation + vbSystemModal, "Stop") = vbOK Then
Exit Sub
End If

If MsgBox("Extract this form? If no, this will extract the source AEW table.", vbYesNo + vbQuestion + vbSystemModal, "Choose") = vbYes Then
DoCmd.OutputTo acOutputForm, "Activity Effort Worksheet", acFormatXLS
Else
DoCmd.ApplyFilter "AEW", "BRUCode='" + CStr(bruc) + "'"
DoCmd.OutputTo acOutputTable, "AEW", acFormatXLS
End If

End Sub

TAB Command
I have 3 command buttons in my Excel spreadsheet and I was wondering what the syntax is so that you can tab from one button to the next?
Thanks

Out Command
Hi, I'm working on a school project and have to make a stupid quiz.
I need to use a command that activates pin 1 on Gameport
Usually I work with Q-Basic and the command there is:
out 888,1
Does someone know the command for Visual Basic?

Plz help, German student lost

Mase

The Command Dir
Hi,
I need to use the code below to rename all the files in a directory.The command dir only get the first file.Thank you for your help.

Private Sub Commande10_Click()
Dim answer As String
Dim fichier As String
Dim gauche As Integer

answer = Dir("c:javaall*.*")

Do While answer <> ""
gauche = 1
Do While Mid(answer, gauche, 2) <> "Z2" And gauche <= Len(answer)
gauche = gauche + 1
Loop

answer = Dir ' this line doesn't get the next file
If Dir("c:javaall" & Left(answer, gauche + 1) & ".csv") = "" And Len(answer) > 0 Then
Name "c:javaall" & answer As "c:javaall" & Left(answer, gauche + 1) & ".csv"
End If
Loop
End Sub

I Need A VBA Command
I don't tinker much with VBA, when I do it seems so much like 6.0 that I feel right at home. However, right now I'm in Access 2000 trying to put some code in a command button that I just created. What I want to do is just a simple form.show line but apparently the show command isn't supported. Does anyone know how to do that in VBA, it must be something quite simple, right?

Thanks.

This Command Is Not Available
i have this code:

With word_doc

stroptvalue = GetSettingValue("wd_orientation")
If stroptvalue = 2 Then
.PageSetup.Orientation = wdOrientLandscape
'.PageSetup.Orientation = 1
ElseIf stroptvalue = 1 Then
.PageSetup.Orientation = wdOrientPortrait
'.PageSetup.Orientation = 0
End If
stroptvalue = ""

End With

The problem is when i get to the setup of orientation which is .pagesetup.orientation = ... an error occurs which says "This command is not available" how could this happen

Run SQL Command
Hi,

Im having trouble with my Run Sql command. My code is as follows:

strsql = "UPDATE tblAcknowledgement, tblUserInformation SET tblAcknowledgement.[Requester] =""" & requester & """ WHERE tblAcknowledgement.[User Id] = """ & uaUserAccess.UserId & """"

DoCmd.RunSQL strsql

but when i run this, it asks me if i want to update like 10000 records. The table im updating (tblAcknowledgement) only has 500 records. and i've used msgboxes to check that the UserId is valid. Can't figure it out

Command END
I'am doing:

Private Sub Command1_Click
End
End sub

program closes but in the task manager (alt + ctrl + delete) it shows.

How to completely end program??

Where Is The DOS Command And What Is It?
I am fixing my errors through microsoft.com tutorials and im on the last step but i need help with it ill give you what it says...

Step 4: The final step is to use the DOS command window, and go to the directory containing the VBExpress executable (i.e., C:Program FilesMicrosoft Visual Studio 8Common7IDE). Type "vbexpress /installvstemplates". Exit the DOS command window.

Could someone please help me. I don't now where to find the Dos Command Window.

OR Command - Need Help Please
Hello,

I'm currently a Student in the UK and i need a little help, im doing an If statment with the following:

Code:
If tmrduck1.Enabled = False And _
tmrduck2.Enabled = False Then
lbtxt.Caption = "GAME OVER!"
End IF
But i want to do it multiple statments like this:

Code:
If tmrduck1.Enabled = False And _
tmrduck2.Enabled = False OR
somthing.enabled = False And _
somthing2.enabled = False OR
and so on....

Is there a way of doing this please as i need help asap.

Thanks,
Michael Walmsley

[Help] A Command.
Hello guys i'm new here.
My name is Niv and i'm an America's Army player.
I want to make a club program.

I need a command for visual basic which enters u to the game server.

what do i mean?

i want my software to enter u to the game server and i need the command which will do it.
the software should open the game [america's army] and enter to the server.

thanks alot.

Using Like Command
Hello,

I have a strange problem here. I'm trying to compare two strings with the Like command in VB 6. However, it doesn't seem to work.

Here is some code

If UCase(SearchString) Like UCase(FindString(1)) Then
'in here means strings are alike.
Else
'If here they are not alike
End If

Problem is the in order for the "In here means strings are alike" code to run. The strings must match exactly. such as AMD is AMD etc.

I need A is similar to AMD and ASUS etc.

Any help with the Like command?

DOS Command From VB

How to run this dos command from vb:C:> dir >> c: est.txt

How to run this dos command from vb:

C:> dir >> c: est.txt