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??