Dim ftp1 As New FtpClient
Dim fls As List(of String)
ftp1.Host="FTP地址"
ftp1.Account = "用户名"
ftp1.Password = "密码"
fls = ftp1.GetFileList("\gaoshengde\dingdan\")
For Each fl As String In fls If FileSys.FileExists("c:\data\" & FileSys.GetName(fl)) = False Then Output.Show(FileSys.GetName(fl)) End IfNext