<%
Option Explicit
Dim objFileSys
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
Response.Write "<B>" & objFileSys.GetDriveName("c:\docs\doc1.txt") & "<P>"
Response.Write objFileSys.GetDriveName("c:\my documents") & "<P>"
Response.Write objFileSys.GetDriveName("a:") & "<P>"
%>
