改一下
Dim hasFalse as boolean =false
For Each File As String In FileSys.GetFiles("c:\as\") If ftp.Upload("file,"\aa\" ") = True Then Else hasFalse = true
End If
Next
if hasFalse then
Messagebox.show("有文件上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
else
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
end if