[求助]指定文件夹存储问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]指定文件夹存储问题

共有1720人关注过本帖树形打印复制链接主题：[求助]指定文件夹存储问题

荟美绘姿

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

[求助]指定文件夹存储问题 发帖心情

Post By：2016/1/12 10:23:00 [只看该作者]

If img IsNot Nothing Then
    Dim path As String = projectPath & e.Form.Controls("TextBox6").text & format(e.Form.Controls("DateTimePicker1").value, "yyyyMMddHHmmss") & Tables("wztz").current("tzdbh") & ".jpg"
    img.Save(path)
    Tables("wztz").current("wzzp")=path
End If

如何将以上代码改为根据"IP.txt”指定的IP地址下的文件夹内。

请大侠帮忙解决一下下，谢谢

[此贴子已经被作者于2016/1/12 10:23:25编辑过]

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/12 10:32:00 [只看该作者]

If img IsNot Nothing Then
Dim ip As String = FileSys.ReadAllText(ProjectPath & "ip.txt")

msgbox(ip)
    Dim path As String = ip & "/" & e.Form.Controls("TextBox6").text & format(e.Form.Controls("DateTimePicker1").value, "yyyyMMddHHmmss") & Tables("wztz").current("tzdbh") & ".jpg"
    img.Save(path)
    Tables("wztz").current("wzzp")=path
End If

荟美绘姿

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/1/12 10:56:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160112105436.png

此主题相关图片如下：qq截图20160112105454.png

出现了以上两个错误提示，这是咋回事，谢谢

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/12 10:58:00 [只看该作者]

此电脑的共享文件夹是什么？只能保存到电脑的共享文件夹。

荟美绘姿

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/1/12 11:05:00 [只看该作者]

共享文件夹为wzzp

大红袍

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/12 11:06:00 [只看该作者]

Dim path As String = ip & "/wzzp/" & e.Form.Controls("TextBox6").text & format(e.Form.Controls("DateTimePicker1").value, "yyyyMMddHHmmss") & Tables("wztz").current("tzdbh") & ".jpg"

荟美绘姿

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/1/12 11:18:00 [只看该作者]

还是出现这两个提示窗口

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/12 11:21:00 [只看该作者]

Dim path As String = “\\" & ip & "/wzzp/" & e.Form.Controls("TextBox6").text & format(e.Form.Controls("DateTimePicker1").value, "yyyyMMddHHmmss") & Tables("wztz").current("tzdbh") & ".jpg"

荟美绘姿

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/1/12 11:33:00 [只看该作者]

可以了，但是还会出现第一个提示窗口

大红袍

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/1/12 11:34:00 [只看该作者]

把msgbox那行去掉

下一主题 >> << 上一主题

主题：[求助]指定文件夹存储问题