35 lines
758 B
Plaintext
35 lines
758 B
Plaintext
|
<%
|
||
|
|
Private Function GetShortPath(ByVal sPath)
|
||
|
|
Dim re, fso, s, f
|
||
|
|
|
||
|
|
Set re = New RegExp
|
||
|
|
re.ignorecase = True
|
||
|
|
|
||
|
|
'determine whether or not this is a file
|
||
|
|
re.pattern = ".([A-Zd]{1,5})$"
|
||
|
|
|
||
|
|
Set fso = CreateObject("Scripting.FileSystemObject")
|
||
|
|
|
||
|
|
'if it's a file, grab it. if it's a folder, grab it.
|
||
|
|
If re.test(sPath) Then
|
||
|
|
|
||
|
|
'retrieve handle to the file
|
||
|
|
Set f = fso.GetFile(sPath)
|
||
|
|
Else
|
||
|
|
|
||
|
|
'retrieve handle to the folder
|
||
|
|
Set f = fso.GetFolder(sPath)
|
||
|
|
End If
|
||
|
|
|
||
|
|
'get the short path
|
||
|
|
s = f.ShortPath
|
||
|
|
|
||
|
|
'free all object and handle references
|
||
|
|
Set f = Nothing
|
||
|
|
Set fso = Nothing
|
||
|
|
Set re = Nothing
|
||
|
|
|
||
|
|
'return short path
|
||
|
|
GetShortPath = s
|
||
|
|
End Function
|
||
|
|
%>
|