คุณสมบัติ ShortPath ASP

FileObject.ShortPath

FolderObject.ShortPath

<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFile("c:\asp_test_web\hitcounterfile.txt")
Response.Write("Path: " & f.Path)
Response.Write("<br>ShortPath: " & f.ShortPath)
set f=nothing
set fs=nothing
%>

输出：

Path: C:\asp_test_web\hitcounterfile.txt
ShortPath: C:\ASP_TE~1\HITCOU~1.TXT

<%
dim fs,fo
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("c:\asp_test_web")
Response.Write("Path: " & fo.Path)
Response.Write("<br>ShortPath: " & fo.ShortPath)
set fo=nothing
set fs=nothing
%>

输出：

Path: C:\asp_test_web
ShortPath: C:\ASP_TE~1