フォルダ・ファイルの名前を設定・取得する【Nameプロパティ】【FileSystemObject】【ExcelVBA】

構文

Object.Name

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

Public Sub sample()

    '■FileSystemObjectの宣言
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    
    '■ファイルの名前を取得・設定
    Debug.Print fso.GetFile("C:\sample\sample.txt").Name        'sample.txt
    fso.GetFile("C:\sample\sample.txt").Name = "ああああ,txt"   'sample.txt を ああああ,txtに変更
    
    '■フォルダの名前を取得・設定
    Debug.Print fso.GetFolder("C:\vba\sample").Name             'sample
    fso.GetFolder("C:\vba\sample").Name = "ああああ"            '"C:\vba\sample"を"C:\vba\ああああ"に変更
    
End Sub

注意点

• すでに同名のファイルやフォルダが存在している かつ 名前を変更した場合はエラー発生します。
  実行時エラー58 「既に同名のファイルが存在しています。」
  実行時エラー58 「クラスが登録されていません。」

関連記事

• ファイル名を取得する【GetFileNameメソッド】【FileSystemObject】
• ファイル名と拡張子を分けて取得する【FileSystemObject】
• パスとファイル名からフルパスを生成する【BuildPathメソッド】【FileSystemObject】
• フォルダ内のファイル名を一括で変更処理するマクロ