用.vbs文件想拷贝一个文件夹,就怎么样 *** 作?

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

问题描述:

我的工作每天都要重复 *** 作备份一个文件夹,我想用.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 "拷贝完成！"

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

VBS中可以用copyfile函数来拷贝文件

FileSystemObject.CopyFile "c:\c.doc", "e:\"

用copyolder来拷贝文件夹

FileSystemObject.CopyFolder "c:\mydocuments\*", "e:\tempfolder\"

---