String With Quotes Blues

[BJ]

I am Trying to write to a text file but It keeps adding quotes to my statement. It is a command and won't run with qoutes around it.

It looks like this "nbtstat -a >""c:\output.txt"""
It is supposed to look like this nbtstat -a >"c:\output.txt"

Here is my code.
Private Sub Command1_Click()

'Form Contains Text2, Text1, RichTextBox1, and Command1

Dim MyCommand As String
Dim ComputerName As String
Dim Test As String

'The Computer You Want Info About.
ComputerName = Text1.Text

'Strings the NBTSTAT command with the Computer Name and an Output File.
MyCommand = "nbtstat -a " & computer & " >" & Chr(34) & "c:\output.txt" & Chr(34)

'Moves the Command to the Test Varible
'Then to The Text2 text box to Check Formatting
Test = MyCommand
Text2.Text = Test

'Writes the Command to a Batch File
Open "C:\Command.bat" For Output As #1
Write #1, Text2.Text
Close #1

'Runs the Batch File
Shell "C:\Command.bat", vbHide

'Recieves an Error Because The Batch File Contains Too Many Quotes
'And the Output File hasn't Been Created
RichTextBox1.FileName = "C:\Output.txt"
End Sub

Thanks for any help
Brandon

[sebs]

instead of:

MyCommand = "nbtstat -a " & computer & " >" & Chr(34) & "c:\output.txt" & Chr(34)

do:

MyCommand = "nbtstat -a " & computer & " >" & """c:\output.txt"""

[BJ]

I got the exact same Result.

Thanks
Brandon

[Zvonko]

You have to use Print # statement for writing data to files without quotes. If you use Write # statement, you'll allways get quotes.
Example:

Dim fNum As Integer
fNum=FreeFile
Open file.dat For Output As fNum
Print #fNum, "string for output without quotes"
Close #fNum

I think this would work fine.

[RealisticGraphics]

Where you have:

Write #1, Text2.Text

replace it with:

Print #1, Text2.Text

The "Write" statement puts the quotes around your string. The "Print" statement puts exactly what you tell it to.

---------
oopps, somebody beat me to it.

[Zvonko]

I forgot: FILE.DAT must be quoted ("file.dat")!