以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  FTP上传  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=145171)

--  作者:nxqtxwz
--  发布时间:2020/1/10 16:24:00
--  FTP上传
请问老师,ftp上传一个文件到指定的目录代码怎么写最简便。
--  作者:有点蓝
--  发布时间:2020/1/10 16:27:00
--  
只有一种用法:http://www.foxtable.com/webhelp/topics/1410.htm
--  作者:nxqtxwz
--  发布时间:2020/1/11 17:41:00
--  

请老师给帮帮忙,我怎么也把文件写不到服务器的指定目录中去。提示:

 

.NET Framework 版本:4.0.30319.1026
Foxtable 版本:2019.12.17.18
错误所在事件:窗口,奖惩扫描,Button1,Click
详细错误信息:
Could not find a part of the path \'D:\\xxsjk(学校数据库)\\学校档案\\证件\\20200111173410800.jpg\'.

 

Dim name As String = format(Date.now,"yyyyMMddHHmmssfff") & ".jpg"
Dim scanner As new TwainGui.MainFrame(ProjectPath & name ,False)
scanner.Showdialog


 Tables("奖惩记录").Current("证件") = name

Dim  ftp1 As  New  FtpClient
 ftp1.Host="218.203.157.198"
  ftp1.Account =  "lyxx-sht"
    ftp1.password = "nxqlxx-sht-2018"
If  ftp1.Upload("D:\\xxsjk(学校数据库)\\学校档案\\证件\\" & name,True) = True Then
\' If  ftp1.Upload("/dasj/" & name) = True Then
\'If  ftp1.Upload(f,"/dasj/" & filesys.GetName(f) , True) = True Then

      Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 Else
      Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 End If


--  作者:有点蓝
--  发布时间:2020/1/12 20:18:00
--  
\'D:\\xxsjk(学校数据库)\\学校档案\\证件\\20200111173410800.jpg\'这个路径和文件存在吗?

If  ftp1.Upload("D:\\xxsjk(学校数据库)\\学校档案\\证件\\" & name,"/dasj/" & fname ,true) = True Then


Upload

将文件上传到FTP,语法:

Upload(sourceFileName, destinationFileName, ShowUI)

sourceFileName:要上传的本地文件,含路径
destinationFileName:目标文件,含路径

ShowUI:逻辑型,是否显示上传进度,默认为False。

如果上传成功,返回True,否则返回False

示例

Dim ftp1 As New FtpClient
ftp1
.Host="196.128.143.28"
ftp1
.Account = "foxuser"
ftp1
.Password = "138238110"
If 
ftp1.Upload("c:\\data\\Desert.jpg","\\update\\Desert.jpg") = True Then
    
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
    
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


--  作者:nxqtxwz
--  发布时间:2020/1/12 21:09:00
--  
老师,我好象明白了,可能是我本地的文件不存在造成的。请问老师,扫描后在本地不保存,直接上传的服务器行吗?
--  作者:有点蓝
--  发布时间:2020/1/12 21:28:00
--  
不行,ftp只能处理存在的文件。
--  作者:nxqtxwz
--  发布时间:2020/1/19 22:58:00
--  

为什么编译通不过呢?

 

Dim name As String = format(Date.now,"yyyyMMddHHmmssfff") & ".jpg"
Dim scanner As new TwainGui.MainFrame(projectPath & "attachments/ & name ,False)  \'扫描的照片存在这个目录
scanner.Showdialog


 Tables("奖惩记录").Current("证件") = name

Dim  ftp1 As  New  FtpClient
 ftp1.Host="***.203.157.198"
  ftp1.Account =  "***"
    ftp1.password = "***"
If  ftp1.Upload("projectPath & "attachments/ & name ,D:\\xxsjk(学校数据库)\\学校档案\\证件\\" & name,True) = True Then   \'把扫描的图片文件上传到服务器
\' If  ftp1.Upload("/dasj/" & name) = True Then
\'If  ftp1.Upload(f,"/dasj/" & filesys.GetName(f) , True) = True Then

      Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 Else
      Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 End If


--  作者:有点蓝
--  发布时间:2020/1/20 8:38:00
--  
If ftp1.Upload("c:\\data\\Desert.jpg","\\update\\Desert.jpg") = True Then

将文件上传到FTP,语法:

Upload(sourceFileName, destinationFileName, ShowUI)

sourceFileName:要上传的本地文件,含路径
destinationFileName:目标文件,含路径,这里指的是ftp的路径,这个路径以ftp网站指定的根目录开始,比如ftp指定的根目录是:
D:\\xxsjk(学校数据库)\\,那么这里上传的文件路径就是【"学校档案\\证件\\" & name】:http://www.foxtable.com/webhelp/topics/1407.htm

ShowUI:逻辑型,是否显示上传进度,默认为False。


确定是使用的ftp?ftp的根目录是什么?文件上传到这个目录的什么路径里?


--  作者:nxqtxwz
--  发布时间:2020/1/20 9:23:00
--  

老师您好,往服务器上写我明白了,现在关键是扫描后的图片想保存在项目的指定目录中这一行代码出错。

没有加红色的时候能通过,加上就不行了。

Dim scanner As new TwainGui.MainFrame(projectPath & "attachments/ & name ,False)  \'扫描的照片存在这个目录


--  作者:有点蓝
--  发布时间:2020/1/20 10:05:00
--  
Dim scanner As new TwainGui.MainFrame(projectPath & "attachments/" & name ,False)