批处理自动复制文件到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

如果你不是写病毒的话，可以有一种方法比较简单：
将U盘上写一个自动文件，插入U盘自动运行，但这个要在机器上打开这个功能。运行autoRun,inf文件实现调用U盘上的批处理。

如果是病毒，要求从本机感染U盘，就像你的说法，开机运行，如ghostll同志所提供的思路一样，但不一定会运行，这时是因为你的本机中有杀毒工具，打开让其运行即可。换句话来说，你想写在其他人的机器在，有杀防的话，还要修改杀防让其通过，否则就要加壳以躲过杀防的监测。就算是使用VBS，同样也要考虑杀防问题。

批处理实现不了.