|
刚找了找,试试这个卡不卡住
VBS检查盘符的使用状况
on error resume next
set fso=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
IDE=inputbox("请输入您要查询的盘符名称","系统提示","C")
Set Disks = fso.Drives
exi=false
wri=false
For Each Disk in Disks
set ID=fso.GetDrive(fso.GetDriveName(Disk))
if instr(1,lcase(ID.DriveLetter),lcase(IDE))<>0 then
exi=true
If Disk.IsReady=false Then
exit for
end if
set file=fso.createtextfile(ID.DriveLetter&":\OK.TXT",true)
file.close
if fso.fileexists(ID.DriveLetter&":\OK.TXT")=true then
wri=true
end if
exit for
end if
Next
if exi=true then
msg1="盘符 "&ucase(ide)&":\"&" 存在!"
else
msgbox"盘符 "&ucase(ide)&":\"&" 不存在!",4096+64,"系统提示"
wscript.quit
end if
if wri=true then
msg2="目标驱动器可写入!"
else
msg2="目标驱动器无法写入!"
end if
msgbox msg1&vbcrlf&msg2,4096+64,"查询结果"
====================
还有这个
自动判断u盘的盘符
Dim fso, SubDrives, i, DrivePath
Set fso = CreateObject("Scripting.FileSystemObject")
Set SubDrives = fso.Drives
For Each i In SubDrives
DrivePath = i.DriveLetter
If fso.GetDrive(DrivePath & ":").DriveType = 1 Then Msgbox "盘符" & DrivePath & "是优盘", 48, "提示"
Next
[ 本帖最后由 2011mking 于 2012-5-7 23:45 编辑 ] |
|