vb的复制文件甲夹问题

来源：百度知道 编辑：UC知道 时间：2024/05/14 06:07:25
我想在VB里看看D盘里有没有456这个文件夹，没有的话把D盘的123文件夹复制一遍，名字为456,仍在D盘下，要是已经有456了就不复制了，谁把代码给我写下好吗？

先要引用filesystemobject对象的DLL。
希望对你有所帮助
private sub command1_click()
set fso=createobject("Scripting.FileSystemObject") '创建FSO对象
Set f=fso.GetFolder("D:\456") '查看是否存在该文件夹
If Err.number<>0 Then '如果出错,说明不存在该文件夹
Err.clear
fso.CopyFolder "D:\123","D:\456",true
End If
end sub