主题：FTP上传

请问老师，ftp上传一个文件到指定的目录代码怎么写最简便。

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

 

.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

老师，我好象明白了，可能是我本地的文件不存在造成的。请问老师，扫描后在本地不保存，直接上传的服务器行吗？

为什么编译通不过呢？

 

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

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

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

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

老师，这么写编译通不过呀。代码写在窗口的按钮Click中。

 

不加"attachments/" &扫描的图片是放在项目根目录中的。编译就没问题

有这个目录，关键是编译时提示“未知的编译错误”通不过。