vbs复制文件夹
1. 如何使用VBS脚本编写U盘插入自动复制电脑指定文件至U盘
打开文本文档，输入：
COPY D:\data\*.* f:\ '假设你要复制D盘下的data文件夹到U盘上，U盘盘符是F然后保存文件，将该文件扩展名改为bat。
想要复制的时候，直接双击U盘上这个文件就行。这个代码适合自己电脑经常需要备份某个文件，手动操作步骤繁琐，利用这个代码来自动完成数据备份。如果稍加改进这个代码可能就会被安全软件拦截。。。，工具本身没有邪恶和正义之分，是正是邪还是看使用者的意图。
2. vbs怎样实现复制文件夹c:\C 到e:\
VBS中可以用file函数来拷贝文件
FileSystemObject.CopyFile "c:\c.doc", "e:\"
用older来拷贝文件夹
FileSystemObject.CopyFolder "c:\mydocuments\*", "e:\tempfolder\"
3. vbs输入文件名前几个字符搜索文件并复制到特定的文件夹，如何实现
正好写过bat的，不过vbs的还没有写，现在写一下，楼主可以看一下，就一行命令, 结合了vbs和bat两者的, 代码见最后for /f "eol= tokens=1,* delims=" %i in ('where /r 被搜索的文件夹 文件名前几个字符*.*') %i 特定的文件夹\/r 的意思是在文件夹递归地查找 (可能有点慢)去掉/r就只找文件夹下一层的for /f "eol= tokens=1,* delims=" %i in ('where 被搜索的文件夹 文件名前几个字符*.*') %i 特定的文件夹\被搜索的文件夹例如 c:\users\desktop\信工信息文件名前几个字符*.* 例如 19信工*.*特定的文件夹\例如 d:\信工信息\如果不想把 c:\users\desktop\john\信工信息\其他 等子文件夹的内容拷出来for /f "eol= tokens=1,* delims=" %i in ('where c:\users\john\desktop\信工信息 19信工*.*') do %i d:\信工信息\反之就用for /f "eol= tokens=1,* delims=" %i in ('where /r c:\users\john\desktop\信工信息 19信工*.*') do %i d:\信工信息\写到vbs里是这样, 如果不想把 c:\users\desktop\john\信工信息\其他 等子文件夹的内容拷出来Set ws = CreateObject("Wscript.Shell")a="c:\users\john\desktop\信工信息" '来源文件夹 b="d:\信工信息"message = "输入文件名前几个字符" & chr(10) &"来源文件夹 "&a &chr(10) &b defaultValue=""title = "输入文件名前几个字符搜索文件并复制到特定的文件夹"&""myValue = InputBox(message, title, defaultValue)achoice=MsgBox ("是否递归查找(查找子文件夹)" ,vbyesno)d=""if achoice=vbyes thend="/r"end ifws.run "cmd /c for /f ""eol= tokens=1,* delims="" %i in ('where "&a&" 19信工*.*') do %i "&b&"\ ",0,true记得保存文件时选择ansi编码或者gbk而不是utf-8,双击可用
4. 如何 通过VBS 搜索 电脑上的所有文件夹 然后复制一个文件到这所有的文件夹下
'*************************代码开始*********************************
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.file wj,lj & nm,true '复制文件到指定文件夹，参数true表示如果文件存在的话就覆盖
end sub
'*************************代码结束*********************************
以上代码关键要利用sub过程的循环调用来达到文件夹得历遍，然后复制文件到文件夹就很简单了。。。
5. vbs复制文件夹到所有文件路径
这个编程思想是这样的：
使用for循环去遍历D各个小文件夹
使用拷贝命令去拷贝
具体命令你可以搜一下
6. 用vbs脚本复制多个文件
你自己试验一下不就可以了
不过里面写的有问题吧
反正我运行着不行
应该是少东西
而且也不应该这么长
你依次运行想想
一个x.ttf
已经改名了
下面怎么还会出现x.ttf？
一个文件夹里不可能出现两个名字相同的文件
7. vbs 把指定文件夹复制到当前文件夹下（vbs所在的文件夹），代码怎么写
===================代码========================
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 "拷贝完成！"
=========================代码=======================