补充：下面看下用VB实现重命名、拷贝文件夹及文件
| Private Sub commandButton1_Click() '声明文件夹名和路径 Dim FileName, Path As String, EmptySheet As String 'Path = “D:上报” Path = InputBox(“请输入” & Chr(34) & “成绩” & Chr(34) & “文件夹的路径，格式如” & Chr(34) & “D:成绩” & Chr(34)) FileName = Path & “上学期” EmptySheet = Path & “学期初始化” 'MsgBox FileName If Dir(FileName, vbDirectory) <> “” Then 'MsgBox “文件夹存在” '获取系统当前时间 'Dim dd As Date 'dd = Now 'MsgBox Format(dd, “yyyymm”) Dim myTime As String myTime = InputBox(“请输入当前时间，格式如” & Chr(34) & “201811” & Chr(34)) If myTime = “” Then MsgBox “当前时间不能为空！否则不能重命名当期文件夹” Else: Name FileName As Path & “” & myTime End If End If '判断文件夹是否存在 If Dir(FileName, vbDirectory) = “” Then '创建文件夹 MkDir (FileName) 'MsgBox (“创建完毕”) Else: MsgBox (“文件夹已在”) End If '复制空表到当期 Set Fso = CreateObject(“Scripting.FileSystemObject”) '拷贝文件夹 Fso.copyfolder EmptySheet, FileName 'Fso.copyfile EmptySheet&“c:*.*”, “d:” '拷贝文件 'FileSystemObject.copyfolder EmptySheet, FileName, 1 MsgBox (“操作成功！”) End Sub |
总结
以上所述是小编给大家介绍的在VB中遍历文件并用正则表达式完成复制及vb实现重命名、拷贝文件夹的方法，希望对大家有所帮助，如果大家有任何疑问请给我留言，小编会及时回复大家的。在此也非常感谢大家对易采站长站网站的支持！
