Question

VB将当前目录底下的文件夹复制或者剪切到指定位置

例如 我在 当前目录底下建立了一个 “新建文件夹” 怎样将其 复制或者 剪切到 D盘

Answer 1

1 最简单的方法用shell执行dos命令：
复制 shell "xcopy " & app.path & "\新建文件夹 D:\"
剪切 shell "move " & app.path & "\新建文件夹 D:\"
2 复杂的办法是,用dir()函数找到文件夹下的每个文件，
先用mkdir创建文件夹
然后用copyfile复制文件到上面的文件夹
如果是剪切，复制后用 kill 删除文件；最后用rmdir删除空的文件夹