フォルダ・ファイルの短い名前(8.3形式)を取得する【ShortNameプロパティ】【FileSystemObject】【ExcelVBA】

構文

Object.ShortName

ShortNameプロパティのサンプルコード

Public Sub sample()

    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    '■フォルダ名を取得（8.3形式のフォルダ名を取得）
    Debug.Print fso.GetFolder("C:\Program Files (x86)\Windows Defender").ShortName                  'WINDOW~1
    
    '■ファイル名を取得（8.3形式のファイル名を取得）
    Debug.Print fso.GetFile("C:\Program Files\Internet Explorer\sample File.txt").ShortName         'SAMPLE~1.TXT
    
End Sub

注意点

• フォルダが存在しなければエラー発生します。FolderExistsで事前確認必要です。
  実行時エラー76「パスが見つかりません。」
• ファイルが存在しなければエラー発生します。FileExistsで事前確認必要です。
  実行時エラー53「ファイルが見つかりません。」

関連記事

• パスとファイル名からフルパスを生成する【BuildPathメソッド】【FileSystemObject】
• ファイル名を取得する【GetFileNameメソッド】【FileSystemObject】
• フォルダ・ファイルのパスを取得する【Pathプロパティ】【FileSystemObject】
• フォルダ・ファイルの名前を設定・取得する【Nameプロパティ】【FileSystemObject】