FTP Text Log File

[TheDude]

I want to have a text file output of the screen after my FTP process is complete.
I have tried changing the second bit of code to

Code:Shell("ftp -s:C:\FTPSCRIPT.cmd > C:\FTP.log", AppWinStyle.NormalFocus)

But the command window just comes up for split second and the closes and there is not text file log.



Code:'------------------------------- Create Text File for Upload ----------------------------------
'Dim your Text Writer
Dim TW As System.IO.TextWriter

'Create a Text file
TW = System.IO.File.CreateText("C:\FTPSCRIPT.cmd")

'TW.WriteLine("FTP")
TW.WriteLine("open mysite.com")
TW.WriteLine(Login_Text.Text)
TW.WriteLine(Password_Text.Text)
TW.WriteLine("PUT " & OpenFileDialog1.FileName & " ACSLIB/ORG" & gDate_Format)
'TW.WriteLine("quit")

'Flush the text to the file
TW.Flush()

'Close the File
TW.Close()



Code:------------------------------- Execute FTPSCRIPT.cmd ----------------------------------
Private Sub Upload_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Upload_Button.Click

Shell("ftp -s:C:\FTPSCRIPT.cmd", AppWinStyle.NormalFocus)

End Sub