主题：帮忙看看这段代码错哪里了？

帮忙看看这段代码错哪里了？

Dim ftp As New FtpClient
ftp.Host="tangrenjie.net"
ftp.Account = "jinzhengbe"
ftp.Password = "Huayin7761"
For Each File As String In FileSys.GetFiles("c:\as\")
    If ftp.Upload("file,"\aa\" ") = True Then
    Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

Next

此主题相关图片如下：qq截图.png