源代码:
<% dim fs,d set fs=Server.CreateObject("Scripting.FileSystemObject") set d=fs.GetDrive("c:") Response.Write("The rootfolder is " & d.RootFolder) set d=nothing set fs=nothing %>
运行结果:
<% dim fs,d set fs=Server.CreateObject("Scripting.FileSystemObject") set d=fs.GetDrive("c:") Response.Write("The rootfolder is " & d.RootFolder) set d=nothing set fs=nothing %>