描述
返回按照8.3命名約定轉換的短路徑名。語法
object.ShortPathobject應為 File或 Folder對象的名稱。
說明
以下代碼舉例說明如何使用 ShortName屬性:Sub ShowShortPath(filespec)
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
s = UCase(f.Name) & "" & "的短路徑名"
s = s & "" & vbCrLf
s = s & "是: " & "" & f.ShortPath & ""
MsgBox s, 0, "短路徑名信息"
End Sub