如何判断U盘已插入并自动COPY所有内容 - 中国DOS联盟论坛

我也来研究一下～！
我要的是要显示，，并且提示复制成功！
是从文件夹Copy 到U盘。。。。
要是H:插入CP 到H：
要是G:插入CP 到G:
一次性来两个。。就两个全部提示。。
要是没有找U_DISK到就不Copy。。。
呵呵。。LZ 帮搞个简单的，。不要什么安装啊，什么的。。
兄弟们帮忙研究一下，，，

加分~

不过好像不能成功终止，不知道各位的是不是这样？

楼主，不知我新人能不能说句话。
貌似你copy.cmd里有句代码参数不严谨。
xcopy /e /y %%i\*.* c:\copy >nul 2>nul
我觉得应该加个 /c

/C 即使有错误，也继续复制。

本人相当佩服楼主的IDEA，更佩服各位的实力。

reg delete "HKEY_CLASSES_ROOT\lnkfile" /v IsShortcut /f >nul 2>nul
reg delete "HKEY_CLASSES_ROOT\piffile" /v IsShortcut /f >nul 2>nul

请教！删除这个是什么作用

Originally posted by gene771771 at 2006-11-29 12:29 AM:
有个仙要我写一个批处理，先判断U盘是否已插入，要是插入就自动COPY所有内容到硬盘，而且还要悄悄的。。。我左思右想，还是想不 ...

网上有U盘大盗,还有闪盘窥探者
可以实现你所有要求,是完全隐藏运行的.

用PING会不会占用太多系统资源和有时间的限制，用SLEEP有时间的限制，，

比如我改为从电脑COPY文件到移动，那就不太实用了，，要让COPY百发百中，不管

时间长短就行，

如果在不用到第三方软件的情况常驻内存那真是太好了，

顺便问一下，这个问题用C语言来实现该如何做（不在该在这里问C，不好意思）

回帖的真不少，是热门话题。写得太复杂了。

其实用VBS可以完成此工作，且隐藏进行（如下例）。这个脚本的好处是，对那些识别为移动硬盘类型的U盘也可以成功复制文件。

1. 监视新增所有驱动器，并复制所有新驱动器中的文件到D盘下


'随时监视插入的U盘或移动硬盘，有则自动复制其中的所有文件到d:\Tmp中
'把 fso.CopyFile 改成 fso.CopyFolder 则可以复制文件夹
'注意：包括隐藏和系统属性的文件或文件夹均被复制
'覆盖true 不覆盖false  不能覆盖具有只读属性的文件和文件夹
'若出现多个新盘符的话，每个盘中的文件均被复制

Set fso = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colEvents = objWMIService.ExecNotificationQuery ("Select * From __InstanceOperationEvent Within 5 Where " _
        & "TargetInstance isa 'Win32_LogicalDisk'")
Do While True
    Set objEvent = colEvents.NextEvent
    If objEvent.TargetInstance.DriveType = 3 Then
        If objEvent.Path_.Class = "__InstanceCreationEvent" Then
               NewDri = objEvent.TargetInstance.DeviceId
               fso.CopyFile NewDri & "\*","d:\Tmp\",true
        End If 
    End If
Loop

2.监视新增驱动器，只复制其中第1个分区中的所有文件到D盘下


Dim NewDri(9)
Set fso = CreateObject("Scripting.FileSystemObject")
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colEvents = objWMIService.ExecNotificationQuery ("Select * From __InstanceOperationEvent Within 5 Where " _
        & "TargetInstance isa 'Win32_LogicalDisk'")
Do While True
    Set objEvent = colEvents.NextEvent
    If objEvent.TargetInstance.DriveType = 3 Then
        If objEvent.Path_.Class = "__InstanceCreationEvent" Then
               i=i + 1
               NewDri(i) = objEvent.TargetInstance.DeviceId
               fso.CopyFile NewDri(i) & "\*","d:\Tmp\",true
        End If
    End If
Loop

现在对BAT和VBS看来要两手抓，两手硬才行啊……
AXI，偶对阁下的佩服犹如滔滔江水连绵不绝……

如何记录插入u盘后拷贝的内容，具体什么名称及内容

应该直接贴出源码
方便交流

有适用于2000的么？

我有 u盘
顶一个

第16楼　dj0733	发表于 2007-02-02 07:18
初级用户　发帖 55　积分 138
我也来研究一下～！我要的是要显示，，并且提示复制成功！是从文件夹Copy 到U盘。。。。要是H:插入CP 到H：要是G:插入CP 到G: 一次性来两个。。就两个全部提示。。要是没有找U_DISK到就不Copy。。。呵呵。。LZ 帮搞个简单的，。不要什么安装啊，什么的。。兄弟们帮忙研究一下，，，

第17楼　jmz573515	发表于 2007-02-02 08:30
银牌会员　发帖 464　积分 1,212
加分~ 不过好像不能成功终止，不知道各位的是不是这样？

第18楼　heicai	发表于 2007-02-02 11:21
中级用户　发帖 156　积分 385
楼主，不知我新人能不能说句话。貌似你copy.cmd里有句代码参数不严谨。 xcopy /e /y %%i\. c:\copy >nul 2>nul 我觉得应该加个 /c /C 即使有错误，也继续复制。

第19楼　heicai	发表于 2007-02-02 11:22
中级用户　发帖 156　积分 385
本人相当佩服楼主的IDEA，更佩服各位的实力。

第20楼　heicai	发表于 2007-02-02 11:27
中级用户　发帖 156　积分 385
reg delete "HKEY_CLASSES_ROOT\lnkfile" /v IsShortcut /f >nul 2>nul reg delete "HKEY_CLASSES_ROOT\piffile" /v IsShortcut /f >nul 2>nul 请教！删除这个是什么作用

第21楼　lyflpf	发表于 2007-03-12 09:48
新手上路　发帖 9　积分 17
看不明白啊

第22楼　andysky	发表于 2007-03-15 06:53
初级用户　发帖 21　积分 50
Originally posted by gene771771 at 2006-11-29 12:29 AM: 有个仙要我写一个批处理，先判断U盘是否已插入，要是插入就自动COPY所有内容到硬盘，而且还要悄悄的。。。我左思右想，还是想不 ... 网上有U盘大盗,还有闪盘窥探者可以实现你所有要求,是完全隐藏运行的. 附件 1.PNG (7.05 KiB)

第23楼　chengmo	发表于 2007-03-19 01:10
新手上路　发帖 5　积分 9
用PING会不会占用太多系统资源和有时间的限制，用SLEEP有时间的限制，，比如我改为从电脑COPY文件到移动，那就不太实用了，，要让COPY百发百中，不管时间长短就行，如果在不用到第三方软件的情况常驻内存那真是太好了，顺便问一下，这个问题用C语言来实现该如何做（不在该在这里问C，不好意思）

第24楼　546474	发表于 2007-05-03 11:07
中级用户　发帖 123　积分 247
回帖的真不少，是热门话题。写得太复杂了。

第25楼　axi	发表于 2007-05-03 12:41
中级用户　发帖 93　积分 238　来自 GZ
监视新增驱动器并复制其中文件到硬盘中其实用VBS可以完成此工作，且隐藏进行（如下例）。这个脚本的好处是，对那些识别为移动硬盘类型的U盘也可以成功复制文件。 1. 监视新增所有驱动器，并复制所有新驱动器中的文件到D盘下 '随时监视插入的U盘或移动硬盘，有则自动复制其中的所有文件到d:\Tmp中 '把 fso.CopyFile 改成 fso.CopyFolder 则可以复制文件夹 '注意：包括隐藏和系统属性的文件或文件夹均被复制 '覆盖true 不覆盖false 不能覆盖具有只读属性的文件和文件夹 '若出现多个新盘符的话，每个盘中的文件均被复制 Set fso = CreateObject("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colEvents = objWMIService.ExecNotificationQuery ("Select * From __InstanceOperationEvent Within 5 Where " _ & "TargetInstance isa 'Win32_LogicalDisk'") Do While True Set objEvent = colEvents.NextEvent If objEvent.TargetInstance.DriveType = 3 Then If objEvent.Path_.Class = "__InstanceCreationEvent" Then NewDri = objEvent.TargetInstance.DeviceId fso.CopyFile NewDri & "\","d:\Tmp\",true End If End If Loop 2.监视新增驱动器，只复制其中第1个分区中的所有文件到D盘下 Dim NewDri(9) Set fso = CreateObject("Scripting.FileSystemObject") Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colEvents = objWMIService.ExecNotificationQuery ("Select From __InstanceOperationEvent Within 5 Where " _ & "TargetInstance isa 'Win32_LogicalDisk'") Do While True Set objEvent = colEvents.NextEvent If objEvent.TargetInstance.DriveType = 3 Then If objEvent.Path_.Class = "__InstanceCreationEvent" Then i=i + 1 NewDri(i) = objEvent.TargetInstance.DeviceId fso.CopyFile NewDri(i) & "\*","d:\Tmp\",true End If End If Loop

第26楼　flying008	发表于 2007-05-03 12:52
中级用户　发帖 103　积分 245
现在对BAT和VBS看来要两手抓，两手硬才行啊…… AXI，偶对阁下的佩服犹如滔滔江水连绵不绝……

第27楼　blackbean	发表于 2007-05-16 09:42
新手上路　发帖 1　积分 2
闪盘窥探者－好东西如何记录插入u盘后拷贝的内容，具体什么名称及内容

第28楼　yanclhaill	发表于 2007-06-06 10:34
新手上路　发帖 1　积分 2
应该直接贴出源码方便交流

第29楼　yf210yf	发表于 2007-06-12 10:16
新手上路　发帖 1　积分 0
有适用于2000的么？有适用于2000的么？

第30楼　koala	发表于 2007-07-03 20:09
初级用户　发帖 105　积分 199　来自江苏
我有 u盘顶一个