ASP ShortPath property
Complete Folder Object Reference ShortPath property returns the short path to the specified file or folder (8.3 file naming convention).
grammar
FileObject.ShortPath
FolderObject.ShortPath
FolderObject.ShortPath
For instance File object
<%
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,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
For instance Folder object
<%
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
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
Complete Folder Object Reference