VBAファイルやフォルダーの短い名前を取得(ShortName)

FileオブジェクトとFolderオブジェクトのShortNameプロパティについてです。

ShortNameプロパティ

8.3形式の命名規則（※1）を必要とするプログラムで使用される、短い名前を返します。

※1 MS-DOSや昔のWindowsのOSに採用されていた命名規則で、半角英数字最大8文字＋ピリオド（.）＋半角英数字最大3文字（拡張子ある場合）のファイルやフォルダー。

ファイルの場合：FileObject.ShortName

フォルダの場合：FolderObject.ShortName

Sub ファイルShortName()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FileSystemObjectのGetFileメソッドでFileオブジェクトをセット

Dim f As File

Set f = fso.GetFile("C:\Windows\WindowsUpdate.log")

'FileオブジェクトのShortNameプロパティで取得

Debug.Print f.ShortName

End Sub

【結果】

Sub フォルダーShortName()

'FileSystemObjectをセット

Dim fso As Object

Set fso = CreateObject("Scripting.FileSystemObject")

'FileSystemObjectのGetFolderメソッドでFolderオブジェクトをセット

Dim fol As Folder

Set fol = fso.GetFolder("C:\Program Files")

'FolderオブジェクトのShortNameプロパティで取得

Debug.Print fol.ShortName

End Sub

【結果】