VBA- 提取指定文件夹下所有文件到指定目录
Sub copyFiles(Path As String, afterPath) 'Path:原文件夹路径;afterPath:目标文件夹路径 Dim Spath As String '下边的我自己也不是很理解,但是效果达成是莫得问题的...... Set fs = CreateObject("Scripting.FileSystemObject") Spath = Dir(Path, vbDirectory) Do While Len(Spath) .
转载
2021-06-14 22:49:29 ·
3485 阅读 ·
0 评论