[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

可以完全解决你的问题

我改天写帮你写个代码吧
现在因为没有时间。。。。
QQ316891946  请楼主提醒。。。。。

TOP

能否在不插优盘时只提醒一次

TOP

  1. '//VBS复制U盘Doc文件 @CODE BY Broly
  2. '//声明:此VBS由Broly制作,代码仅作学习研究之用。使用前请三思而行,产生不良后果均与本人无关!
  3. Const DocPath="D:\DocPath\" '此处为你放DOC文件的文件夹,运行前请创建好
  4. Dim fso,Disks
  5. Set fso = CreateObject("Scripting.FileSystemObject")
  6. Do
  7.   n=n+1
  8.   Set Disks = fso.Drives
  9.   For Each Disk In Disks
  10.     If Disk.IsReady And Disk.DriveType = 1 Then
  11.       Udisk=Disk.DriveLetter & ":\"
  12.       U=True
  13.     End if
  14.   Next
  15.   If U=True Then
  16.     CopyDocs(Udisk)
  17.   Else
  18.     If n=1 Then
  19.       Msgbox "没有发现U盘或者U盘没有插好!",vbOkOnly,"提示"
  20.     End if
  21.   End If
  22.   WScript.Sleep 30000  '每30秒循环一次
  23. Loop
  24. Sub CopyDocs(path)
  25.   Dim folder,subfolders,Files
  26.   Set folder = fso.getfolder(path)
  27.   Set subfolders = folder.subfolders
  28.   Set Files = folder.Files
  29.   For Each File In Files
  30.     If fso.GetExtensionName(File.path)="doc" Then
  31.       fso.CopyFile File.Path,DocPath,True '设置为True,表示如果文件存在则覆盖
  32.     End if
  33.   Next
  34.   For Each subfolder In subfolders
  35.       CopyDocs(subfolder.path) '递归查找子目录
  36.   Next
  37. End Sub
复制代码
---学无止境---

TOP

[attach]3318[/attach]有时候会出现这样的情况,程序可以运行

TOP

。。。学习一下

TOP

谢谢分享,收藏!

TOP

返回列表