以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]怎么保存文件设置路径  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118978)
--  作者：cool314156
--  发布时间：2018/5/15 13:34:00
--  [讨论]怎么保存文件设置路径

If Tables("管理.附件").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("管理.附件").Current.DataRow
Dim fl As String =  ProjectPath & dr("文件名")
If FileSys.FileExists(fl) AndAlso CRCCheckFile(fl) = dr.SQLGetValue("CRC值") Then \'如果本地存在同名文件且CRC校验值相同
    \'则直接使用本地文件
Else \'否则从数据库提取文件
    If dr.SQLLoadFile("附件",fl) = False Then \'如果提取文件失败
        Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Return
    End If
End If
Dim Proc As New Process \'打开文件
Proc.File = fl
Proc.Start()
 求教下，用这代码提取文件，默认是保存在项目的文件夹里，我想知道要怎么做才能让文件保存到其他文件夹，或者能够设置保存路径
--  作者：有点甜
--  发布时间：2018/5/15 14:19:00
--  

在这里指定

 

Dim fl As String =  ProjectPath & dr("文件名")

 

改成，比如

 

Dim fl As String =  "d:\\test\\" & dr("文件名")
--  作者：cool314156
--  发布时间：2018/5/15 16:12:00
--  
谢谢了，我找到问题了我之前都是这样写代码的 "d:\\test"，没有写出 "d:\\test\\"这样，这么低级的错误，搞个半天才明白。
--  作者：cool314156
--  发布时间：2018/5/15 16:13:00
--  
谢谢了