mFtp.Initialize("ftp", mFTPAddress, 21, mFTPUSer, mFTPPsw)
mFtp.PassiveMode = True
mFtp.UseSSL = False
mFtp.UseSSLExplicit = False
Private Sub ftp_DownloadProgress(ServerPath As String, TotalDownloaded As Long, Total As Long)
Log("download.." & ServerPath & " progress" & (TotalDownloaded / 1024) & " total" & Total)
End Sub