是要把"F:\项目F6\"这个目录里的文件复制过去，还是把"F:\项目F6\"里的子目录的文件复制过去？
如果有一个文件在"G:\项目G7"，是全部都不复制，还是只是有的文件不复制，没有的继续复制？
[此贴子已经被作者于2024/6/3 14:10:55编辑过]
'For Each File1 As String In FileSys.GetFiles("F:\项目F6\") '列出C盘根目录下所有的文件名
For Each File1 As String In FileSys.GetDirectories ("F:\项目F6\") '列出C盘根目录下所有的子目录名
FileSys.CopyDirectory ("F:\项目F6", "G:\项目G7") '将目录中的内容复制到另一个目录
Next
'老师, 上述代码, 复制正常.但再点击按钮时, 提示出错, 查看文件夹已全部复制, 包括子目录.
'用以下代码时, 确不能复制
'For Each File1 As String In FileSys.GetFiles("F:\项目F6\") '列出C盘根目录下所有的文件名
For Each File1 As String In FileSys.GetDirectories ("F:\项目F6\") '列出C盘根目录下所有的子目录名
For Each File As String In FileSys.GetFiles("G:\项目G7\")
If FileSys.GetName(File) Is Nothing Then
FileSys.CopyDirectory ("F:\项目F6", "G:\项目G7") '将目录中的内容复制到另一个目录
End If
Next
Next
'不管用第一句代码, 还是第二句(包含子目录),均不能复制,都是空白，不知道什么原因？
把"F:\项目F6\"里的子目录的文件都复制过去。
都不能复制
[此贴子已经被作者于2024/6/3 15:05:36编辑过]
将"2024年第1周", 分解为"2024", "1"两列, 其代码如下：
写法1：
Dim V1 As String = e.DataRow("例7根据星期计算_年周次")
Dim s1() As Char = {"年第", "周"} '分割字符可以是一个数组，"年", "月", "日"都参与了内容的分割
Dim Names() As String = V1.Split(s1)
For Each name As String In Names
e.DataRow("例7根据星期计算_年") = Names(0) '结果：2024 正常
e.DataRow("例7根据星期计算_周次") = Names(1) '结果：第1 错误
Next
写法2：
Dim V1 As String = e.DataRow("例7根据星期计算_年周次")
Dim s1() As Char = {"年", "第", "周"} '分割字符可以是一个数组，"年", "月", "日"都参与了内容的分割
Dim Names() As String = V1.Split(s1)
For Each name As String In Names
e.DataRow("例7根据星期计算_年") = Names(0) '结果：2024 正常
e.DataRow("例7根据星期计算_周次") = Names(2) '结果：第1 正常
Next
请问老师, 本应按照写法1来做, 为何出错？
Split仅支持单字符
Dim V1 As String = e.DataRow("例7根据星期计算_年周次")
Dim Names() As String = V1.replace("年第","|").Split("|")
e.DataRow("例7根据星期计算_年") = Names(0) '结果：2024 正常
e.DataRow("例7根据星期计算_周次") = Names(1) '结果：第1 错误
1.是要把"F:\项目F6\"这个目录里的文件复制过去，还是把"F:\项目F6\"里的子目录的文件复制过去？
答：是把"F:\项目F6\"里的子目录的文件全部复制过去。
2.如果有一个文件在"G:\项目G7"，是全部都不复制，还是只是有的文件不复制，没有的继续复制？
答：点击按钮，文件全部没有复制到G7
2.如果有一个文件在"G:\项目G7"，是全部都不复制，还是只是有的文件不复制，没有的继续复制？
答：点击按钮，文件全部没有复制到G7
我想问的是这个代码想要实现什么功能？是发现只要有一个文件存在就全部目录不复制？还是只是存在的文件不复制，不存在的文件继续复制？
全部文件不能复制，文件夹也不能复制，其实就是没反应