FTP Text Log File

Tech Talk vb.Net
1

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