- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]指定文件夹存储问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=79912)
-- 发布时间：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: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
-- 发布时间：2016/1/12 10:56:00
--
此主题相关图片如下：qq截图20160112105436.png
此主题相关图片如下：qq截图20160112105454.png
出现了以上两个错误提示，这是咋回事，谢谢
-- 发布时间：2016/1/12 10:58:00
--
此电脑的共享文件夹是什么？只能保存到电脑的共享文件夹。
-- 发布时间：2016/1/12 11:05:00
--
共享文件夹为wzzp
-- 发布时间：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"
-- 发布时间：2016/1/12 11:18:00
--
还是出现这两个提示窗口
-- 发布时间：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"
-- 发布时间：2016/1/12 11:33:00
--
可以了，但是还会出现第一个提示窗口
-- 发布时间：2016/1/12 11:34:00
--
把msgbox那行去掉