Dim hz As String = fln.Substring(fln.IndexOf("."))
Dim rqbh1 As String = rqbh & s & "@" & bdh & hz
e.SaveFile(key, fln, ProjectPath & "images\" & rqbh1) '保存接收到的文件
If ftp1.Upload(ProjectPath & "images\" & rqbh1, rqbh1) Then
If FileSys.FileExists(ProjectPath & "images\" & rqbh1) Then
FileSys.DeleteFile(ProjectPath & "images\" & rqbh1)
End If
End If
已经判断本地是否存在此文件后才删除，但是偶尔还会报找不到本地文件的错误