请问如何复制D盘下所有文件夹和文件到C:\123

caozhe815 2013-01-24 05:59:39

应该是调用FSO，CopyFolder无法操作根目录。
例如：



Dim MyFos As New FileSystemObject

MyFos.CopyFolder "d:\", "c:\123"

再例如，



CreateObject("scripting.filesystemobject").CopyFolder "d:\", "c:\123"

这两个例子就是错误的。
求解，谢谢！

...全文

657 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

caozhe815 2013-01-24

打赏
举报

问题解决了，通过vbhide语句。

Shell ("C:\1.bat"), vbHide

非常感谢！同时感谢另一个回复我的朋友！

引用 5 楼 Veron_04 的回复:

不会显示的cmd黑色屏幕的，可以采用管道代替shell，参考： http://download.csdn.net/detail/veron_04/3057332

贝隆 2013-01-24

打赏
举报

不会显示的cmd黑色屏幕的，可以采用管道代替shell，参考： http://download.csdn.net/detail/veron_04/3057332

caozhe815 2013-01-24

打赏
举报

非常感谢你和另一位的回答。复制功能是这个程序的一部分，其他部分用批处理无法实现的。VB用Shell语句的话会显示黑色的CMD窗口的。

引用 2 楼 Veron_04 的回复:

使用Dos命令不就OK了？ Visual Basic code?123Private Sub Command1_Click() Shell "xcopy D:\*.txt E:\123\"End Sub 上面只是一个例子，它不能复制文件夹，但并不代表xcopy不能复制文件夹，具体的用法请参考如下内容：复制文件和目录树。 XCOPY so……

caozhe815 2013-01-24

打赏
举报

系统出错，提示：实时错误424 要求对象单击调试，显示错在：

MyFos.CopyFolder Item, Replace(Item, "e:\", "c:\123")

引用 1 楼 caozhy 的回复:

Dim fso As New FileSystemObject For Each Item In fso.GetDrive("D:").RootFolder.SubFolders MyFos.CopyFolder item , replace(item, "d:\", "c:\123") Next

贝隆 2013-01-24

打赏
举报

使用Dos命令不就OK了？


Private Sub Command1_Click()
    Shell "xcopy D:\*.txt E:\123\"
End Sub

上面只是一个例子，它不能复制文件夹，但并不代表xcopy不能复制文件夹，具体的用法请参考如下内容：复制文件和目录树。 XCOPY source [destination] [/A | /M] [/D[:date]] [/P] [/S [/E]] [/V] [/W] [/C] [/I] [/Q] [/F] [/L] [/G] [/H] [/R] [/T] [/U] [/K] [/N] [/O] [/X] [/Y] [/-Y] [/Z] [/EXCLUDE:file1[+file2][+file3]...] source 指定要复制的文件。 destination 指定新文件的位置和/或名称。 /A 只复制有存档属性集的文件，但不改变属性。 /M 只复制有存档属性集的文件，并关闭存档属性。 /D:m-d-y 复制在指定日期或指定日期以后更改的文件。如果没有提供日期，只复制那些源时间比目标时间新的文件。 /EXCLUDE:file1[+file2][+file3]... 指定含有字符串的文件列表。每一个字符串必须在文件的单独行中。如果有任何字符串与要被复制的文件的绝对路径相符，那个文件将不会得到复制。例如，指定如 \obj\ 或 .obj 的字符串会排除目录 obj 下面的所有文件或带有 .obj 扩展名的文件。 /P 创建每个目标文件前提示。 /S 复制目录和子目录，除了空的。 /E 复制目录和子目录，包括空的。与 /S /E 相同。可以用来修改 /T。 /V 验证每个新文件。 /W 提示您在复制前按键。 /C 即使有错误，也继续复制。 /I 如果目标不存在，又在复制一个以上的文件，则假定目标一定是一个目录。 /Q 复制时不显示文件名。 /F 复制时显示完整的源和目标文件名。 /L 显示要复制的文件。 /G 允许将没有经过加密的文件复制到不支持加密的目标。 /H 也复制隐藏和系统文件。 /R 覆盖只读文件。 /T 创建目录结构，但不复制文件。不包括空目录或子目录。/T /E 包括空目录和子目录。 /U 只复制已经存在于目标中的文件。 /K 复制属性。一般的 Xcopy 会重置只读属性。 /N 用生成的短名复制。 /O 复制文件所有权和 ACL 信息。 /X 复制文件审核设置(隐含 /O)。 /Y 复制文件审核设置(隐含 /O)。现存目标文件。 /-Y 导致提示以确认改写一个现存目标文件。 /Z 用重新启动模式复制网络文件。命令行开关 /Y 可以预先在 COPYCMD 环境变量中设置。这可能被命令行上的 /-Y 改写。从上面的文字提取出你需要的格式即可，简单的很。