Sub Class_Globals
Private oFTP As FTP
Private sServ As String
Private iPort As Int
Private sUser As String
Private sPass As String
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize (vsServ As String, viPort As Int, vsUser As String, vsPass As String)
sServ = vsServ
iPort = viPort
sUser = vsUser
sPass = vsPass
End Sub
Public Sub fbIsInitialized As Boolean
Return oFTP.IsInitialized
End Sub
Public Sub pConectFTP
oFTP.Initialize("FTP", sServ, iPort, sUser, sPass)
End Sub
Public Sub pQuitFTP
oFTP.Close
End Sub
Public Sub pExecuteCommand(vCommand As String, vParameters As String)
oFTP.SendCommand(vCommand,vParameters)
End Sub