VBS 怎么复制文件？

假设a、b目录都在c盘。\x0d\x0a\x0d\x0aOn Error Resume Next\x0d\x0aDim fso,yn,ttfile\x0d\x0aSet fso = CreateObject("Scripting.FileSystemObject")\x0d\x0afso.CopyFolder "c:\a\*","c:\b\",False\x0d\x0afso.CopyFile "c:\a\*","c:\b\",False

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

我的工作每天都要重复 *** 作备份一个文件夹,我想用.vbs文件编辑一段小代码实现,请问需要怎么样实现?

例如: 把c:\abc.vbs

拷贝到 D:\

请问怎么编辑要源码.

解析:

建议用批处理文件完成该任务，效率比VBS高。

例如: 把c:\abc.vbs

拷贝到 D:\

copy c:\abc.vbs D:\

===================代码========================

Const FOF_CREATEPROGRESSDLG = &H0&

ParentFolder = "D:\目的地"'这里是要拷贝到的目的文件夹

Directory_Path="D:\需要复制的文件夹" '这里是要复制的文件夹

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.NameSpace(ParentFolder)

objFolder.CopyHere Directory_Path, FOF_CREATEPROGRESSDLG

MsgBox "拷贝完成！"

=========================代码=======================

---