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 "拷貝完成！"
=========================代碼=======================