Sub Process_Globals
Dim FTP As FTP
Dim Fname As String
Dim FVersion As String
Dim ServerIP As String
Dim URL As String
End Sub
Public Sub CheckForUpdates(URL1 As String,ServerIP1 As String,Fname1 As String,FVersion1 As String)
URL = URL1
ServerIP = ServerIP1
Fname = Fname1
FVersion = FVersion1
FTP.Initialize("FTP",ServerIP,21,"*****","*****")
FTP.List("/") 'ListCompleted Sub Called Automatically
End Sub
Sub FTP_ListCompleted (ServerPath As String, Success As Boolean, Folders() As FTPEntry, Files() As FTPEntry)
If Success = False Then
Log(LastException)
Else
Log("FTP Success")
End If
End Sub