双击截图上传FTP 失败 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

---------------------------

错误

---------------------------

编译错误:未声明名称“path”。

错误代码：Dim dir As String = FileSys.GetParentPath(path & "/" & f)

---------------------------

确定

---------------------------

If e.Col.name = "图片" Then

baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized

ClipBoard.Clear

Dim proc As new Process

proc.File = ApplicationPath & "/capture.exe"

proc.WaitForClose = True

proc.Start

basemainform.WindowState = 2

Dim dir As String = FileSys.GetParentPath(path & "/" & f)

If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)

ClipBoard.GetImage.save(path & "/" & f)

e.Row(e.Col.name) = f

Dim ftp1 As New FtpClient

ftp1.Host="ftp5001.site4future.com"

ftp1.Account = " tocasa"

ftp1.Password = "Yifan9108"

Dim file As String = "2.项目配图" & "\" &e.Row("订单ID") & "\" & e.Row("楼层")& "\" & "3.报价配图" & "\" & Format( Date.Today,"yyyy-MM-dd")

For Each s As String In file.split("\")

path2 = path2 & "/" & s

If ftp1.DirExists(path2) = False Then

ftp1.MakeDir(path2)

End If

If ftp1.Upload(path & "/" & f, path2 & "/" & e.Row("产品名") &"-" & e.Row("产品号") & ".png") = True Then

'If ftp1.Upload(path & "\" & f, "/" & f) = True Then

Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

e.cancel = True

Tables("订单清单").Current.Save() '保存文件的行

End If

你没有定义path啊，你的路径是什么，要如下写代码

Dim path As String = projectPath & "attachments/"

---------------------------

错误

---------------------------

编译错误:“f”是“Private”，因此它在此上下文中不可访问。

错误代码：Dim dir As String = FileSys.GetParentPath(path & "/" & f)

---------------------------

确定

---------------------------

If e.Col.name = "图片" Then

baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized

ClipBoard.Clear

Dim path As String = projectPath & "attachments/" 我想将文件直接存到 FTP 上不行存到本地行已经设计好是服务器存储

Dim proc As new Process

proc.File = ApplicationPath & "/capture.exe"

proc.WaitForClose = True

proc.Start

basemainform.WindowState = 2

Dim dir As String = FileSys.GetParentPath(path & "/" & f)

If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)

ClipBoard.GetImage.save(path & "/" & f)

e.Row(e.Col.name) = f

Dim ftp1 As New FtpClient

ftp1.Host="4"

ftp1.Account = "foxftp"

ftp1.Password = ""

Dim path2 As String = ""

Dim file As String = e.Row("类别") & "\" & e.Row("产品") &"\" & e.Row("采购人")

For Each s As String In file.split("\")

path2 = path2 & "/" & s

If ftp1.DirExists(path2) = False Then

ftp1.MakeDir(path2)

End If

If ftp1.Upload(path & "/" & f, path2 & "/" & e.Row("产品") & e.Row("物资编码") & e.Row("采购日期") &".png") = True Then

'If ftp1.Upload(path & "\" & f, "/" & f) = True Then

Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

e.cancel = True

Tables("物资仓存表").Current.Save() '保存文件的行

End If

1、你这段代码从哪里抄过来的？

2、必须存放在本地，才能把文件上传到ftp，你可以上传后删除文件。

3、图片的路径，或者图片的名字，你可以随便命名。比如 d:\test.jpg

知道了原理没搞清楚

主题：双击截图上传FTP 失败