If left(f，2)=d then msgbox “系统部落提醒你：”&d&“盘，请带回家!”，vbcritical，“您好!”
On error resume next
Set dc = fso，Drives
关机时让电脑提醒你拔U盘方法
For Each d in dc
第一步：首先在记事本程序中输入以下内容：
Dim fso， d，dc，f
遇到关掉电脑后忘记拔U盘人就走了,这样如果我们在另外一个地方需要用到U盘内的文件的时候,就会很着急了，那么关机时怎样让电脑提醒你拔U盘呢?下面学习啦小编就为大家带来了关机时让电脑提醒你拔U盘的方法。Set f = fso.GetFile(d &“\请带我回家.txt”)
系统部落
Set fos = CreateObject(“Scripting.FileSystemObject”)
完整原文网址：http://www.xuexila.com/diannao/jiqiao/1299948.html