一段VBS代码

最近研究VBS，无聊发段代码：复制U盘文件到本机

1. 
   
2. <!--StartFragment -->On&#8194;Error&#8194;Resume&#8194;Next&#8194;'蹇界暐閿欒?
   
3. Set&#8194;Fso&#8194;=&#8194;CreateObject("Scripting.FileSystemObject")'鍒涘缓鏂囦欢瀵硅薄&#8194;
   
4. For&#8194;Each&#8194;oDrive&#8194;In&#8194;Fso.Drives&#8194;&#8194;'閬嶅巻纾佺洏鏌ヨ?U鐩?/font>
   
5. &#8194;&#8194;&#8194;&#8194;If&#8194;oDrive.DriveType&#8194;=&#8194;1&#8194;And&#8194;oDrive&#8194;<>&#8194;"A:"&#8194;And&#8194;oDrive&#8194;<>&#8194;"B:"&#8194;Then
   
6. &#8194;&#8194;&#8194;&#8194;&#8194;&#8194;&#8194;&#8194;path&#8194;=&#8194;oDrive.DriveLetter&#8194;+&#8194;":\*"&#8194;'鎷兼帴璺?緞
   
7. &#8194;&#8194;&#8194;&#8194;&#8194;&#8194;&#8194;&#8194;Fso.CopyFile&#8194;path,"C:\1",True&#8194;'复制文件有点问题
   
8. &#8194;&#8194;&#8194;&#8194;&#8194;&#8194;&#8194;&#8194;Fso.CopyFolder&#8194;path,"C:\1",True&#8194;'澶嶅埗U鐩樹笅鐨勬墍鏈夋枃浠跺す
   
9. &#8194;&#8194;&#8194;&#8194;Else
   
10. &#8194;&#8194;&#8194;&#8194;&#8194;&#8194;&#8194;&#8194;WScript.Sleep&#8194;600
    
11. &#8194;&#8194;&#8194;&#8194;End&#8194;If
    
12. Next

复制代码

注释是乱码，没办法，今天下班了！以后慢慢搞。
有兴趣的同学也可以搞个开机自启动复制文件到远程机器什么的！
至于有什么用那就是各有所需了！