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

  1. Home
  2. Excel
  3. VBA
  4. FileSystemObject
  5. Folderオブジェクト

【書式】

Folder.ShortPath

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

8.3形式のフォルダ名では空白が使用できず、半角で8文字までしか使用できません。

Sub test49()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''「C:\PROGRA~1\MICROS~2」と表示されます
    MsgBox FSO.GetFolder("C:\Program Files\Microsoft Office").ShortPath
    Set FSO = Nothing
End Sub