- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]图片框控件文件保存位置 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81599)
-- 发布时间：2016/3/1 19:37:00
-- [求助]图片框控件文件保存位置
此主题相关图片如下：未标题-2.jpg
请教下，我用这个图片控件，用扫描添加图片时候，图片是能正常保存到指定位置，但是图片控件上面显示的时候就是一个叉叉，不知道代码哪里不对，请大侠们帮我看看。谢谢。
[此贴子已经被作者于2016/3/1 22:17:27编辑过]
-- 发布时间：2016/3/1 22:29:00
--
e.subFolder = "资料"
不行，做个具体例子上来看看。反正两个路径要匹配。
-- 发布时间：2016/3/1 23:53:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:图片管理器.rar |
附件已上传，代码是论坛坛友的，我只是改了存放位置，但是修改后，点击扫描按钮虽然能放到指定目录里面，但是图片预览不出来，提示找不到文件。
不知道哪里还有问题，希望各位大侠不吝指正，谢谢。
[此贴子已经被作者于2016/3/1 23:56:24编辑过]
-- 发布时间：2016/3/2 9:28:00
--
不对，还是位置不对
[此贴子已经被作者于2016/3/2 9:33:07编辑过]
-- 发布时间：2016/3/2 9:59:00
--
代码改一下
Dim file As String = "资料\\" & Tables("表A").current.DataRow("企业名称") & "\\" & Format(Date.Now,"yyyyMMddHHmmss") & ".jpg"
Dim path As String = ProjectPath & "Attachments\\" & file
imageFile.SaveFile(path)
piv.AddFile(file)
[此贴子已经被作者于2016/3/2 10:35:48编辑过]
-- 发布时间：2016/3/2 10:31:00
--
此主题相关图片如下：qq截图20160302102936.png
还是不行呢？
-- 发布时间：2016/3/2 10:36:00
--
Dim file As String = "资料\\" & Tables("表A").current.DataRow("企业名称") & "\\" & Format(Date.Now,"yyyyMMddHHmmss") & ".jpg"
Dim path As String = ProjectPath & "Attachments\\" & file
If FileSys.DirectoryExists(FileSys.GetParentPath(path)) = False Then
FileSys.CreateDirectory(FileSys.GetParentPath(path))
End If
imageFile.SaveFile(path)
piv.AddFile(file)
-- 发布时间：2016/3/2 10:44:00
--
谢谢大红袍老师，代码OK