主题：附件下载异常

 提示如图1，2，3，谢谢

Dim dlg As New FolderBrowserDialog
Dim f As String = Tables("产品资料库_资料信息").Cols("文件管理").DataCol.DefaultFolder
If f Is Nothing Then
    f = "\\192.168.1.10\d\生产数据\信息管理系统\管理文件"
Else
    f = f & "\"
End If
msgbox(f)
If dlg.ShowDialog = DialogResult.Ok Then
    msgbox(dlg.SelectedPath )
    For Each r As Row In Tables("产品资料库_资料信息").rows
        Dim file = f & r("文件管理").replace("/","\")
        If FileSys.FileExists(file) Then
            FileSys.CopyFile(file,dlg.SelectedPath & r("文件管理"),True)
        Else
            msgbox("文件不存在:" & file)
        End If
    Next
End If

 

此主题相关图片如下：1.jpg

此主题相关图片如下：2.jpg


此主题相关图片如下：3.jpg

此主题相关图片如下：4.jpg


此主题相关图片如下：5.jpg

我看到了，就是不知道咋改

老师，我改好了，但有另一个问题，上传了多个附件的不能下载，像这种怎么处理呢？谢谢

此主题相关图片如下：1.jpg