中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何判断U盘已插入并自动COPY所有内容

‹ « [1] [2] [3] » ›

dj0733
初级用户

积分 138
发帖 55
注册 2007-2-2
状态离线

『第 16 楼』:

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

2007-2-2 07:18

jmz573515
银牌会员

积分 1212
发帖 464
注册 2006-12-13
状态离线

『第 17 楼』:

加分~

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

2007-2-2 08:30

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『第 18 楼』:

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

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

2007-2-2 11:21

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『第 19 楼』:

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

2007-2-2 11:22

heicai
中级用户

积分 385
发帖 156
注册 2007-1-19
状态离线

『第 20 楼』:

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

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

2007-2-2 11:27

lyflpf
新手上路

积分 17
发帖 9
注册 2007-3-12
状态离线

『第 21 楼』:

看不明白啊

2007-3-12 09:48

andysky
初级用户

积分 50
发帖 21
注册 2007-3-13
状态离线

『第 22 楼』:

Quote:

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

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

附件 1: 1.PNG (2007-3-15 06:53, 7.05 K,下载次数： 24)

2007-3-15 06:53

chengmo
新手上路

积分 9
发帖 5
注册 2007-3-19
状态离线

『第 23 楼』:

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

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

时间长短就行，

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

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

2007-3-19 01:10

546474
中级用户

积分 247
发帖 123
注册 2007-4-17
状态离线

『第 24 楼』:

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

2007-5-3 11:07

axi
中级用户

脚本爱好者

积分 238
发帖 93
注册 2007-3-11
来自 GZ
状态离线

『第 25 楼』: 监视新增驱动器并复制其中文件到硬盘中

其实用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