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
|
|
%> |