关于VB程序的一个问题,高手请进

来源:百度知道 编辑:UC知道 时间:2024/05/25 13:44:54
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "c:\mydocuments\letters\*", "c:\tempfolder\"
用以上代码实现复制文件夹的功能,有时文件夹比较大的时候会出现程序无响应,请问如何解决这问题,因为我想让用户在使用复制功能时能继续点击程序进行其他的操作
请问一下CopyFolderA能给出具体的实例吗
doevents好像不行

用fso就有这个问题
比较好的办法是这样的:
第一是不用fso,改用kernel32.dll的CopyFolderA函数;
第二是编写两个程序,让第一个程序Shell第二个程序且用vbHide,第二个程序在后台Copy完了就退出。为了防止用户误操作,可以改掉它的扩展名,比如.dll或.dat,用时先复制到c:\tempfolder\copyfolder.exe,再Shell。

doevents
不行吗?