Sub read_batch_file()
f = FreeFile
Open "c:\test.bat" For Input As #f
g = FreeFile
Open "c:\test1.bat" For Output As #g
Do While Not EOF(f)
Line Input #f, batchline
If Left(batchline, 1) <> Chr$(34) Then
Print #g, batchline
End If
Loop
Close #g
Close #f
End Sub