¼õС×ÖÌå
Ôö´ó×ÖÌå
×÷ÕߣºØýÃû À´Ô´£º±¾Õ¾ÕûÀí ·¢²¼Ê±¼ä£º2012-06-18 00:32:08
D0024083µçÄԹػúʱ×Ô¶¯Ð¶ÔØUÅÌ
Èç¹ûÄãÒª¾³£ÀûÓÃUÅÌ, ÓÖ»áÍü¼Ç°Î×ß, ÄÇÄã¿ÉÒÔÀûÓÃÌáʾµçÄԹػúʱÖ÷¶¯Ð¶ÔØUÅÌ£¡ÊÇ·ñ¾³£ÔÚÍø°ÉÉÏÍøÏ»úʱȴÍüÁË´ø×ßÄãÐÄ°®µÄUÅÌÄØ£¡ÏÂÃæ¸æËßÄãÈÃÄã³ÌÐòÌáʾÄãÖ÷¶¯Ð¶ÔØUÅÌ°É£¡
µÚÒ»²½£ºÊ×ÏÈÔÚ¼Çʱ¾³ÌÐòÖÐÊäÈëÒÔÏÂÄÚÈÝ£º
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,¡±Ö÷ÈË£ºÄúºÃ£¡¡±
Next
ÊäÈëºÃºó£¬°ÑÎļþ±£´æÔÚCÅ̸ùĿ¼Ï£¬²¢È¡ÃûΪUSBDISK..vbs.
µÚ¶þ²½£ºµ¥»÷¿ª¶Ë¡ªÔËÐУ¬ÊäÈëgpedit.msc£¬°´»Ø³µ¼ü£¬´ò¿ª×é²ßÂÔ±à¼Æ÷¡£ÒÀ´ÎÕ¹¿ªµçÄÔÅäÖáªWindowsÉèÖ᪽ű¾£¨Æô¶¯/¹Ø»ú£©£¬Ë«»÷´ò¿ª¹Ø»úÏÔÙµã»÷Ìí¼Ó£¬Ñ¡ÔñÌí¼ÓÇ°Ãæ±£´æÔÚCÅ̵ÄUSBDISK..vbsÎļþ£¬¶Ï¶¨ºóÍ˳ö×é²ßÂÔ±à¼Æ÷¡£
µÚÈý²½£ºÔÚÐèÒª¹Ø»úʱËæÉí´ø×ßÄãµÄUÅÌ»òÒƶ¯Ó²Å̵ÄҪĿ¼ÖУ¬½¨Á¢Ò»¸öÎļþÃûΪÇë´øÎһؼÒ.txtµÄÎı¾Îļþ¡£ÒÔºó£¬Èç¹ûÄã¹Ø»úʱûÓаγöUÅÌ»òÒƶ¯Ó²ÅÌ£¬ÏµÍ³¾Í»áµ¯³ö¾¯¸æ¿òÌáʾÄãÁË£¡ÔõôÑù£¬ºÜ¼òÂÔ°É£¬ÊÔÊÔ¿´£¡¡¡