Dim as long

[Defilar]

I am currenty working on a project, what I was is to dim these three txt boxes as long so the "" quotes will stop appearing and interfearing with the cmd file.
Any help out there??

I keeping getting a : "Type Mismatch" error - It highlights the Dim trace and the dim pause. Help!




Private Sub cmdScan_Click()
If Not IsNumeric(txtipadress) Then
MsgBox "Please enter a numeric value only!", vbInformation + vbOKOnly, "Incorrect Information"
txtipadress.SetFocus
End If

Dim telnum As Long
telnum = txtipadress



Dim trace As Long
trace = txttrace



Dim pause As Long
pause = txtPause


filename = "C:\ip.cmd"
Open filename For Output As #1
Write #1, telnum, trace, pause

[opus]

The dafault properity of txtipadress.text and that is a string!
If you want to have an IP.address (i.e. "255.255.255.0") you need to change that string into those four numbers(or does a VAR-type IP-address exist?).
The same is probable true for "trace"

[Defilar]

This code works properly -

Dim telnum As Long
telnum = txtipadress


The other two doesn't work. Why is it a string when I dim it as long - I even dim filename as long. Any help?

[salvelinus]

Try using Val() or CLng().

[RobDog888]

You could just add code to the _KeyPress event and trap for undesireable
characters before they get in.

Private Sub txtIPAddress_KeyPress(KeyAscii As Integer)
    
    Select Case KeyAscii
        Case 46, 48 To 57, 8 'Numbers, decimal, and backspace only
        Case Else
            Beep
            KeyAscii = 0 'Cancels the keypressed character
    End Select
 
End Sub

[Defilar]

Maybe I didn't explain what was incorrectly as well as I should have - I am trying to get rid of the quotes, when it writes it to a note pad it gives me "Ping"Whatever the IPaddress""@pause". The Ping Quotes are gone, by using the dim telnum as long; and the others - dim trace as long and dim pause as long gives me the error. I changed them to string but again it caused the quotes to come back.

Hey thanks for the other idea taking care of undesirable charactors - helped.

[RobDog888]

Oh now I see said the blind man!

Its how you are writting out to your file. The Write statement will
place double quotes around each entry. Use the Print statement
instead. It will not do that.

Snippet:

filename = "C:\ip.cmd"
Open filename For Output As #1
Print #1, telnum, trace, pause

[Defilar]

I got the quotes to work, now I was wondering how could I get the @pause command to go below the rest of the code in a txt file? Any ideas?
I.E.


Text goes here
@pause

Thanks for the help all.

[RobDog888]

Just change the order on the Print line of code. First position is
the last line in the text file.

filename = "C:\ip.cmd"
Open filename For Output As #1
Print #1, pause, telnum, trace

[Defilar]

Not needed after the rest of the words, I need it below - And BTW - The print doesn't work, just gives me: "","","" No matter what I type.

[Granty]

You can either put it as a separate Print statement

Print #1, Pause
Print #1, Telnum


etc

Or Print #1, Pause & vbCrLf & Telnum......

[Defilar]

Is what I am trying to do impossable? Or is there another way to attack this thing?

[Defilar]

Okay, I figured out my last problem by myself, but a new one has risen from it's death.
And the crazy thing is it worked for me one time and when I typed the code back in perfectly as before, it gave me some kinda error, please help!!!!!

All I want to do at the moment is open a program and have it run through VB -
The following code has been used and given a error message of - "Invalid Call or argument"

Dim a
'1 stands for open that exe
a = Shell("H:\windows\system32\command.cmd", 1)
End


That doesn't work - and here is the other-----

Open ("H:\windows\system32\command.cmd") For Append As 1

This code too doesn't work and gives me an error message

The command.cmd does exist as I made it before I wrote the code.
Finally, I tried creating it -
open ("H:\windows\system32\command.cmd") for output as 1
and then open it

dim a
a = shell("H:\windows\system32\command.cmd")


Still no such luck, the wierd thing is the dim a command actually worked one time and when I did it again without altering the code it didn't work, and now it never works. I have gone as far as rebooting my system to clear the memory.... Any help please?!?!?

Thanks

-Phil