Dim ftp1 As New FtpClient
ftp1.Host =
ftp1.Port =
ftp1.Account =
ftp1.Password = ""
\'If ftp1.DirExists("/autobackup/tuoguOSdata/") Then
Dim fls As List(Of String)
Dim flag As Boolean = True
fls = ftp1.GetFileList("/autobackup/tuoguOSdata/")
For Each fl As String In fls
If FileSys.FileExists(ProjectPath & "\\备份\\tuoguOSdata\\" & FileSys.GetName(fl)) = False Then
If ftp1.Download(fl, ProjectPath & "\\备份\\tuoguOSdata\\" & FileSys.GetName(fl), True) = True Then
flag = True
Else
flag = False
Exit For
End If
End If
Next
\'End If
If flag = True Then
Messagebox.show("SQL 自动备份文件已经全部下载到 \'E:\\备份\\tuoguOSdata\\\'里!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
Messagebox.show("SQL 自动备份文件下载失败!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If