• 文章中心
  • win7旗舰版系统中实现u盘插入电脑后自动复制文件的策略

    作者:U盘装系统 文章来源:u盘装系统 发布时间:2014-11-13 02:38点击:

    最新win7旗舰版系统中实现u盘插入电脑后自动复制文件的策略,由系统下载吧率先分享:       很多用户都是u盘大来存储拷贝文件,当需要复制别人电脑上面的文件的时候,想要轻轻拿过来的话,如果一一复制就太麻烦了。其实此问题,只要用户巧妙设置下,就会让电脑插入u盘后自动复制的,现小编以win7旗舰版系统为例,给大家分享实现u盘插入电脑后自动复制文件的策略,感兴趣的用户赶快来学学吧。

    win7旗舰版系统中实现u盘插入电脑后自动复制文件的策略



    1、在桌面空白处右键选择“新建——文本文档”选项。
    2、将下面的代码内容复制粘贴到刚创建的记事本文档中:
    set fso=createobject("scripting.filesystemobject") 
    set ws=createobject("wscript.shell") 
    dim USB, file, folder, files 
    USB=inputbox("请输入U盘的盘符"&Chr(10)&"如插入的U盘为F盘,则输入F","插入的U盘盘符","F") 
    folder=inputbox("请输入复制到的文件夹"&Chr(10)&"如想复制到D盘,请输入D:\","请输入复制到的文件夹","C:\USB") 
    files=inputbox("请输入要复制的文件类型"&Chr(10)&"如要复制EXCEL文件,输入xls;默认为全部类型","请输入要复制的文件类型","ALL") 
    USB=USB & ":\" 
    folder=folder & "\" 
    if files="ALL"then 
    file=USB & "*" 
    else 
    file=USB & "*." & files 
    end if 
    if FSO.FolderExists(folder) then 
    else 
    FSO.CreateFolder(folder) 
    end if 
    on error resume next 
    do 
    wscript.sleep 1000 
    if fso.driveexists(USB) then 
    fso.copyfile file,folder 
    fso.copyfolder file,folder 
    wscript.sleep 20000 
    end if 
    loop
    3、,其重命名为XX.VBS即可
    通过以上设置后,只需要将u盘插入电脑就可以实现轻松自动复制文件了,操作方法非常简单、有效。