（有分的啊）请问那位高手知道在ａｓｐ中如何判断软盘已经插入软驱啊！急用谢！

[flydream0428]

请问那位高手知道在ａｓｐ中如何判断软盘已经插入软驱啊！

[sephiroth0079]

MSDN上的

[JScript]
function ShowDriveList()
{
var fso, s, n, e, x;
fso = new ActiveXObject("Scripting.FileSystemObject");
e = new Enumerator(fso.Drives);
s = "";
for (; !e.atEnd(); e.moveNext())
{
x = e.item();
s = s + x.DriveLetter;
s += " - ";
if (x.DriveType == 3)
n = x.ShareName;
else if (x.IsReady)
n = x.VolumeName;
else
n = "[Drive not ready]";
s += n + "<br>";
}
return(s);
}
[VBScript]

The following code illustrates how to get the Drives collection and iterate the collection using the For Each...Next statement:

[VBScript]
Function ShowDriveList
Dim fso, d, dc, s, n
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
n = ""
s = s & d.DriveLetter & " - "
If d.DriveType = Remote Then
n = d.ShareName
ElseIf d.IsReady Then
n = d.VolumeName
End If
s = s & n & "<BR>"
Next
ShowDriveList = s
End Function

[flydream0428]

这些代码只能得到磁盘的卷标，因为一般的软盘是不设置卷标的，所以行不通。我后来用判断磁盘的序列号是否为空可以了，不过还是很谢谢你的！

[awaysrain]

仔细看看

"IsReady"

[awaysrain]

<script language=javascript>
function isReady(drvPath)
{
var fso, d;
fso = new ActiveXObject("Scripting.FileSystemObject");
d = fso.GetDrive(fso.GetDriveName(drvPath));
if(d.IsReady)
return("软盘已经插入软区驱")
else
return("软盘没有插入软区驱")
}

document.write(isReady("a:"))
</script>