10 lines
205 B
Plaintext
10 lines
205 B
Plaintext
|
<%
|
||
|
|
Dim objFSO, msg
|
||
|
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
|
||
|
|
If objFSO.DriveExists("C:") Then
|
||
|
|
msg = ("Drive exists.")
|
||
|
|
Else
|
||
|
|
msg = ("Drive doesn't exist.")
|
||
|
|
End If
|
||
|
|
Response.Write msg
|
||
|
|
%>
|