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
加好友 
发短信
Post By：2014/4/19 14:42:00 [只看该作者]
