QTP复制文件不成功，错在哪里？

不成功代码,错在哪里？

' 创建FileSystemObject对象
Z [DC2F;D'M0Set bjfso = createobject("scripting.FileSystemObject")
i}Gb \0O~(O"N0' 将C:\456下所有的内容复制到c:\123
.W0rl$B!c!Y\d0objfso.CopyFolder "c:\456","c:\123"
4i2f;Y9CV0If objfso.FileExists("c:\123\456")Then51Testing软件测试网t$D,`#WNN
 msgbox "copy successfully!"51Testing软件测试网HLIbl+n9hg
 else51Testing软件测试网)D$M$Pi;^
  msgbox "copy failed!"
n)zmE;^:o0End IF

 

 

经过反复琢磨，终于明白上段代码加粗地方有错，假设原456文件夹下有个test文件夹应该修改成If objfso.FolderExists("c:\123\test") Then
C5L,a"}d6Nx9|&wW0当然要想看到明显效果，456文件夹下多一些文件或文件夹，一运行代码，就能发现456文件夹底下的文件或文件夹都被复制到123文件夹底下

 

 

 

文件复制的代码

' 创建FileSystemObject对象51Testing软件测试网yy U.xXJ@oFY
Set bjfso = createobject("scripting.FileSystemObject")51Testing软件测试网k&SY#uN;z
' 将C:\456下所有的内容复制到c:\123
\!H f.f&s&~0objfso.CopyFile "c:\456\*.xls","c:\123"51Testing软件测试网9B.KAs
u4` y
If objfso.FileExists("c:\123\data.xls") Then
g| dhK"@|M*U!@0 msgbox "copy successfully!"

P]"OUq9N[0?0 else51Testing软件测试网Q ?V.sz;{#g
  msgbox "copy failed!"51Testing软件测试网oJ1^(a0y5fFO;]%V
End IF
\(OW.s)e,h'[ p;E0

 

 

 

本文总结：将文件夹或文件是从某位置“递归”复制到另一位置