Code error
 

Why Im I getting an error in the third line in the code below???

Sub CreateAfile()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\Test.txt", True)
a.WriteLine ("Executable_File" & " " & "Input_File" & " " &
"Output_File" & " " & "Tabular_File")
a.Close
End Sub

Code error
 

I don'ty, but it c an be simplified

Sub CreateAfile()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\Test.txt", True)
a.WriteLine "Executable_File Input_File Output_File Tabular_File"
a.Close
End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"N.F" wrote in message
...
Why Im I getting an error in the third line in the code below???

Sub CreateAfile()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("C:\Test.txt", True)
a.WriteLine ("Executable_File" & " " & "Input_File" & " " &
"Output_File" & " " & "Tabular_File")
a.Close
End Sub