高分求批处理后台复制文件到U盘

来源：百度知道 编辑：UC知道 时间：2024/05/31 20:57:20
本人现在需要这样的一个批处理，已知在一台电脑里的某个分区（分区数不详，最好能全盘搜索）下有一个文件夹名为11.22或者是11-22。在11-22或11.22内还有许多子文件夹，大致的名字是这样的，比如0926张三；1258李四，在这些子文件夹（0926张三；1258李四）下是一些图片文件(是以.jpg结尾的图片文件)。现在我想在我的U盘里放一个批处理文件，只要我双击批处理文件，就能在后台瞧瞧的将包含关键字李四文件夹的所有Jpg文件复制到我的U盘中（最好是复制到具有隐藏属性的文件夹内），注意：是在后台瞧瞧的进行，前台不能有任何的窗口信息提示。当然批处理在开始执行的瞬间是会闪一下屏的，这个可以。

恳请大侠们帮忙，小弟绝对不是去做坏事，谢谢了！
小弟没有分了，只有这么多了，以后有的话可以再加的，在线苦等中。。。。。谢谢！

试试这个：

具体的自己想

'DriveType常数值的意义：
Const UnknownType=0 '0: "未知"
Const Removable = 1 '1: "可移动"
Const Fixed=2 '2: "固定"
Const Remote=3 '3: "网络"
Const CDROM=4 '4: "CD-ROM"
Const RAMDisk=5 '5: "RAM 磁盘"

dim fs, drv
Set fs = CreateObject("scripting.filesystemobject")

'遍历所有驱动器
For Each drv In fs.Drives
'如果是可移动磁盘
If drv.DriveType = Removable Then
'则将该分驱上的abc.bmp复制到c:盘
FileCopy drv.DriveLetter & ":\abc.bmp","c:\"
End If
Next

性质将会被杀毒软件定义为“病毒”或“木马”，不会被通过的，要么提示，要么禁止运行！

曾经我想用这个方法测试，但是个人水平有限，没能通过杀毒软件……呵呵

你也太狠了把。在DOS下去弄吧!先问你,你会不会删除同一文件夹下的同一后缀名的文件呢,就一次!

哥就是个神话 不要迷恋哥