[upload=zip,测试ftp.zip]viewFile.asp?ID=60358[/upload]
文件已上传,重复上传,代码中有判断文件是都存在的,可是不提示,仍然能够上传。还请各位老师 帮忙指点,谢谢!
上传代码如下:
Dim dlg As New OpenFileDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim ftp1 As new ftpclient
Dim file As String
file=dlg.FileName.SubString(dlg.FileName.LastIndexOf("\")+1 )
ftp1.host="183.62.138.253"
ftp1.Account = "foxtable"
ftp1.password = "chipsinfo.com.cn"
ftp1.TimeOut=500000
ftp1.UTF8=False
If ftp1.DirExists("立项文档\测试FTP") Then
messagebox.Show("目录已存在!")
Else
ftp1.MakeDir("立项文档\测试FTP")
End If
Dim fs As String = "立项文档\测试FTP\" & file
If ftp1.FileExists(fs) = True Then
messagebox.Show("该文件已存在,不可重复上传!")
Else
ftp1.Upload(dlg.FileName,"立项文档\测试FTP\" & file ,True)
Dim r As Row= Tables("表A").Current
If r IsNot Nothing Then
If r("第一列")="" Then
r("第一列")=fs
Else
If r("第一列").Contains(fs)=False Then
r("第一列") = r("第一列") & Chr(13) & Chr(10) & fs
End If
End If
End If
End If
End If
[此贴子已经被作者于2015-1-23 10:29:02编辑过]