No frills ftp required

[Ianf]

Give it a go
Hi all

Does anyone know a simple way of ftping using winsock I have the following code but the file never makes it over to the ftp server

Private Sub Form_Load()
' Connection Stuff 
With Winsock1 
     .RemoteHost = "ftp.opal.callmanagement.co.uk" 
     .RemotePort = 21 
     .Connect 
     .SendData "USER username" & vbCrLf 
     .SendData "PASS password" & vbCrLf 
End With 
End Sub 

Private Sub Command1_Click() 
Winsock1.SendData "STOR Filename.txt" & vbCrLf 
End Sub 

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
Dim Data As String 

Winsock1.GetData Data, vbString 
Debug.Print Data 
End Sub

Can anyone help??