明白了,这种存的路径怎么写呢?
Dim fn As winform.form = Forms("劳动合同管理窗口")
If fn.Opened Then
Dim web As WinForm.WebBrowser = Forms("劳动合同管理窗口").Controls("WebBrowser1")
If Tables("劳动合同管理").current("劳动合同扫描件") = "" Then
Dim ftp1 As new ftpclient
ftp1.host=".0"
ftp1.Account = "ft1"
ftp1.password = "198*********"
If ftp1.Download("Tables("劳动合同管理").current("劳动合同扫描件")","c:\data\Desert.jpg") = True Then
'Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
'Else
'Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
web.Address = projectpath & "RemoteFiles" & Tables("劳动合同管理").current("劳动合同扫描件")
else
web.Address = projectpath & "RemoteFiles" & Tables("劳动合同管理").current("劳动合同扫描件")
Else
web.Address = Nothing
End If
End If
[此贴子已经被作者于2019/11/6 17:17:36编辑过]