Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:为什么这种文件后缀上传不了

1楼
ZJZK2018 发表于:2023/9/28 15:13:00
为什么这种文件后缀上传不了,点击下面代码后,找不到A3301010060520044001211.HzZbs这个文件,但电脑桌面上是有这个文件,如何处理

A3301010060520044001211.HzZbs

代码如下
Dim nm As String = e.Form.Controls("CmbZLMC").Value
If Tables("招标信息").Current("系统编号") = Nothing Then
    MessageBox.Show("请先输入""咨询类型""和""开标时间""!")
    Return
Else
    Dim ndr As Row = Tables("招标信息.资料明细").AddNew()
    If ndr.DataRow.RowState = DataRowState.Added Then       '如果是新增行,必须先保存才能插入文件
        ndr.Save()
    End If
    Dim fdr As DataRow = DataTables("招标信息").Find("系统编号 = '" & ndr("系统编号") & "'")
    If fdr IsNot Nothing Then
        If nm = "" Then
            MessageBox.Show("请先输入资料名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Else
            Dim dlg As New OpenFileDialog
            dlg.Filter = "资料文件|*.doc;*.docx;*.xls;*.xlsx;*.png;*.dwg;*.pdf;*.jpg;*.zip;*.rar;*.HzTbs"
            If dlg.ShowDialog = DialogResult.OK Then
                Dim flnm As String = dlg.FileName                          '要添加的文件名
                Dim hz As String = flnm.SubString(flnm.LastIndexOf("."))   '提取文件的后缀名
                ''==============图像本地保存===============
                Dim pth As String = ProjectPath & "Attachments\用户工程\" & fdr("咨询类型") & "\" & fdr("系统编号").SubString(4,4) & "\" &  fdr("系统编号") & fdr("项目名称") & "\"
                If FileSys.DirectoryExists(pth) = False Then       '判断指定的目录是否存在
                    FileSys.CreateDirectory(pth)                   '创建目录
                End If
                
                Dim max As String
                Dim idx As Integer
                max = Tables("招标信息.资料明细").Compute("Max(资料名称)","资料名称 like '" & nm & "%'")
                If max > "" Then '如果存在最大编号
                    idx = CInt(max.SubString(max.LastIndexOf(".") - 2,2)) + 1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                Dim flt As String = pth & nm & Format(idx,"00")  & hz   '重新命名文件名
                FileSys.CopyFile(flnm,flt,True)                         '复制文件并重新命名文件名
                ndr("资料名称") = nm & Format(idx,"00")  & hz           '写入资料文件名称


                'ndr.DataRow.SQLInsertFile("附件",flt)   '插入文件
                'ndr.DataRow.SQLSetValue("CRC", CRCCheckFile(flt))   '保存crc检验值
            End If
        End If
    End If
End If

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:a3301010060520044001211.zip



[此贴子已经被作者于2023/9/28 15:17:00编辑过]
2楼
有点蓝 发表于:2023/9/28 15:27:00
意思是FileSys.CopyFile(flnm,flt,True)   没有把文件复制到目的地?

看看路径是什么?

msgbox(flnm)
msgbox(flt)
3楼
ZJZK2018 发表于:2023/9/28 16:17:00

图片点击可在新窗口打开查看此主题相关图片如下:5566.jpg
图片点击可在新窗口打开查看
4楼
有点蓝 发表于:2023/9/28 16:22:00
是指OpenFileDialog打开对话框后找不到文件?我测试没有问题哦,这个文件夹就没有这个文件吧


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

5楼
ZJZK2018 发表于:2023/9/28 16:37:00



图片点击可在新窗口打开查看此主题相关图片如下:8855.jpg
图片点击可在新窗口打开查看

6楼
有点蓝 发表于:2023/9/28 16:46:00
代码不对吧。我截得图打开按钮上面是有扩展名的
共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04688 s, 3 queries.