'Enkelt Testrutin

Option Explicit
Private myFTP As FTPPutFile

Private Sub Command1_Click()
Dim bln As Boolean
bln = myFTP.ConnectToServer(DinServerIPEllerHostname, DinPort, Active, DittUsername, DittPassword)
If bln Then
If Not myFTP.PutFile("C:\test.txt", "test.txt", ftpAscii) Then MsgBox "Något gick snett"
End If
myFTP.CloseConnection

End Sub

Private Sub Form_Load()
Set myFTP = New FTPPutFile
End Sub