主题：删除行的时候同时删除文件

Dim dr Ad Row = Tables("xxx").Current

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.DeleteFile(dr("路径"))= True Then
    dr.delete

    Tables("xxx").Save
    msgbox("删除失败")
Else
    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If