Sub FTP_Acti
FTP.Initialize("FTP", "ftp.mydomain.com", m_port, m_user, m_pass)
FTP_Start
End Sub
Sub FTP_DownloadCompleted (ServerPath As String, Success As Boolean)
Log("Downloaded: /" & ServerPath & ", Success=" & Success)
If Success = False Then
Log(LastException.Message)
FTP_Acti
End If
ProgressDialogHide
End Sub
Sub FTP_Start
ProgressDialogShow("NOTICE: Activating Movie Gallery...")
FTP.DownloadFile(getfile, True, File.DirInternal, savefile)
End Sub