用.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 "拷贝完成！"

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

'*************************代码开始*********************************

for each a in fso.drives '获取每个盘符

set a=fso.getdrive(a)

if a.drivetype=2 then'如果该盘是固定磁盘

b=a.rootfolder '返回可移动磁盘的根路径

call fzwj(b)

end if

next

sub pdwjj(mb)'判断文件夹

call fz(mb)

for each d in mb.subfolders '根目录下的文件夹

call pdwjj(d)

next

end sub

sub fz(lj)'复制文件

wj="e:\1.vbs"'要复制的文件

if right(lj,1)<梁隐>"\" then lj=lj &"\"

fso.copyfile wj,lj &nm,true '复制文件到指定文件夹，参数true表示如果文件存在的话就覆盖

end sub

'*************************代码结束*********************************

以上代消亩码关键要利用sub过程的拿渣森循环调用来达到文件夹得历遍，然后复制文件到文件夹就很简单了。。。

---