Foxtable(狐表)用户栏目专家坐堂 → 关于复制文件问他


  共有2261人关注过本帖树形打印复制链接

主题:关于复制文件问他

帅哥哟,离线,有人找我吗?
裴保民
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
关于复制文件问他  发帖心情 Post By:2020/9/12 9:42:00 [只看该作者]

Dim dr = Tables("充值凭证表").Current
Dim czpzID As String = e.Form.Controls("czpzIDTextBox").text
Dim wjmc As String = ""
Dim czrq As String
Dim llkqsh As String
Dim llkzzh As String
Dim fjzl As String
Dim path As String
Dim Result As DialogResult
dr = DataTables("充值凭证表").Find("充值凭证ID='"& czpzID &"'")
If dr Is Nothing Then '如果没找到的话
    Return
Else
    str =dr("充值凭证ID")
    czrq =Format(dr("充值日期"),"yyy年MM月dd日") 
    llkqsh =dr("起始号")
    llkzzh =dr("终止号")
    fjzl = format(czrq ,"yyyy年MM月dd日") &"【" & llkqsh & "至" & llkzzh & "】"
    path =ProjectPath & "照片" & "\" & "充值凭证截图\" & fjzl
End If
If dr Is Nothing Then '如果没找到的话
    MessageBox.Show("数据库中无数据,无效操作!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
ElseIf  dr.IsNull("充值凭证")=True Then
    MessageBox.Show("该充值凭证无照片资料,无效操作!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Return
Else
    result= MessageBox.Show("是否将此充值凭证下所有的照片资料复制到桌面 《复制充值凭证截图》文件夹中!", "提示" ,MessageBoxButtons.YesNo,MessageBoxIcon.Question)
    If result = DialogResult.yes Then
        wjmc = czrq & "【" & llkqsh & "至" & llkzzh & "】" 
        If FileSys.DirectoryExists(path) Then
            For Each file As String In FileSys.GetFiles(path)
                Dim name As String = FileSys.GetName(file)
                If name.Contains(wjmc) Then
                    
                    If FileSys.DirectoryExists("C:\Users\Administrator\Desktop\复制充值凭证截图" ) = False Then
                        FileSys.CreateDirectory("C:\Users\Administrator\Desktop\复制充值凭证截图")
                    End If
                    
                    If FileSys.DirectoryExists("C:\Users\Administrator\Desktop\复制充值凭证截图\" & wjmc) = False Then
                        FileSys.CreateDirectory("C:\Users\Administrator\Desktop\复制充值凭证截图\" & wjmc)
                    End If
                    FileSys.CopyFile(file ,"C:\Users\Administrator\Desktop\复制充值凭证截图\" & wjmc & "\"  & name , True)                  
                End If
            Next
            msgbox("该充值凭证所有的照片已成功复制到桌面《复制充值凭证截图》文件夹下级的 《"  & wjmc & "》 子文件夹中")
        Else
        End If
    End If
End If


这句代码哪有问题?怎么不复制文件呢?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/9/12 9:56:00 [只看该作者]

先自行调试
1、复制文件的代码是否执行了?
2、路径、文件名称是否正确?

在不同电脑可能桌面的路径是不一样的,系统目录路径使用参考:http://www.foxtable.com/webhelp/topics/1996.htm

 回到顶部
帅哥哟,离线,有人找我吗?
裴保民
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:12631 威望:0 精华:0 注册:2017/4/3 15:01:00
  发帖心情 Post By:2020/9/12 18:10:00 [只看该作者]

路径和文件名都对就是不执行呢?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图片浏览1.rar

已经解决
[此贴子已经被作者于2020/9/12 23:02:07编辑过]

 回到顶部