让您再也不会遗落u盘巧用简单小技巧

相信许多办公室的上班党们每天都会用u盘向公司的电脑里拷贝或者读取所需要的文件，但有的时候我们会因为过于忙碌的原因时常忘记带走还插在电脑usb插口处上的u盘，让它孤单与自己的办公电脑度过一夜。那该使用什么方法可以让我们不会遗忘我们插入在电脑usb插口处的u盘呢？今天萝卜PE小编就来教大家一个实用的小技巧。

首先，我们打开记事本文件，在记事本中输入如下信息

On error resume next

Dim fso, d,dc,f

Set fos = CreateObject(“Scripting.FileSystemObject”)

Set dc = fso,Drives

For Each d in dc

Set f = fso.GetFile(d &”\记得带我回家.txt”)

If left(f,2)=d then msgbox “我是您的：”&d&”盘，请别把我遗忘了！”，vbcritical,”主人：您好！”