以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于复制文件问他  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154351)
--  作者：裴保民
--  发布时间：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


这句代码哪有问题？怎么不复制文件呢？
--  作者：有点蓝
--  发布时间：2020/9/12 9:56:00
--  
先自行调试
1、复制文件的代码是否执行了？
2、路径、文件名称是否正确？

在不同电脑可能桌面的路径是不一样的，系统目录路径使用参考：http://www.foxtable.com/webhelp/topics/1996.htm
--  作者：裴保民
--  发布时间：2020/9/12 18:10:00
--  
路径和文件名都对就是不执行呢？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图片浏览1.rar

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