以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何打开指定目录？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117989)
--  作者：ZJZK2018
--  发布时间：2018/4/22 21:14:00
--  如何打开指定目录？
老师你好：

需求：先打开“pth”指定文件夹，后选中所需文件，下面这段代码如何调整：


Dim dt As DataRow = Tables("会议纪要").Current.DataRow
Dim pth As String = ProjectPath & "Attachments\\用户工程\\" & dt("项目编号") & dt("工程名称") & "\\" & dt("会议名称") & "\\"


If Tables("会议纪要").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("会议纪要").Current.DataRow
If dr.RowState = DataRowState.Added Then \'如果是新增行,必须先保存才能插入文件
    dr.Save()
End If
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
If dlg.ShowDialog =DialogResult.OK Then
    Dim fl As String = dlg.FileName
    Dim ex As String = fl.SubString(fl.LastIndexOf(".") + 1) \'获取文件后缀名
    ex = ex & "|" & CRCCheckFile(fl) \'将后缀名和文件的crc校验值组合成一个字符串
    dr.SQLInsertFile("附件",fl) \'插入文件
    dr.SQLSetValue("CRC",ex) \'将文件的后缀名和crc校验值保存在信息列
End If
--  作者：有点甜
--  发布时间：2018/4/23 0:18:00
--  

Dim dt As DataRow = Tables("会议纪要").Current.DataRow
Dim pth As String = ProjectPath & "Attachments\\用户工程\\" & dt("项目编号") & dt("工程名称") & "\\" & dt("会议名称") & "\\"


If Tables("会议纪要").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("会议纪要").Current.DataRow
If dr.RowState = DataRowState.Added Then \'如果是新增行,必须先保存才能插入文件
    dr.Save()
End If
Dim dlg As New OpenFileDialog
dlg.Filter = "图形文件|*.bmp;*.jpg;*.gif;*.png"
dlg.InitialDirectory = pth
dlg.MultiSelect = True
If dlg.ShowDialog =DialogResult.OK Then
    For Each fl As String In dlg.FileNames
        Dim ex As String = fl.SubString(fl.LastIndexOf(".") + 1) \'获取文件后缀名
        ex = ex & "|" & CRCCheckFile(fl) \'将后缀名和文件的crc校验值组合成一个字符串
        dr.SQLInsertFile("附件",fl) \'插入文件
        dr.SQLSetValue("CRC",ex) \'将文件的后缀名和crc校验值保存在信息列
    next
End If