主题：求一段代码

Dim ftp1 As New FtpClient

ftp1.Host="120.198.124.195"

ftp1.Account = "und8042"

ftp1.Password = "und8042ssa"

If ftp1.DeleteFile("\" & e.form.controls("TextBox2").text  & "-" & e.form.controls("TextBox3").text & "-" & e.form.controls("TextBox4").text  & ".html") = True Then

    Messagebox.show("删除完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    With Tables("个案申请")

    If .Current IsNot Nothing Then

        .Current.Delete

    End If

End With

Else

    Messagebox.show("删除失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If