Fileオブジェクト - ShortPathプロパティ

---

【書式】

File.ShortPath

8.3形式のパスを返します。

8.3形式のパスでは空白が使用できず、半角で8文字までしか使用できません。

Sub test65()
    Dim FSO As Object, Target As String
    Target = "C:\Program Files\Windows Media Player\Skins\Windows Classic.wmz"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''「C:\PROGRA~1\WINDOW~2\Skins\WINDOW~1.WMZ」を表示します
    MsgBox FSO.GetFile(Target).ShortPath
    Set FSO = Nothing
End Sub