VBA｜Nameプロパティ(ファイルシステムオブジェクト)

Nameプロパティは指定したフォルダまたはファイルの名前を返す、または指定したフォルダやファイルの名前を設定します。

※ファイルシステムオブジェクト(FileSystemObject)についてはこちら

VBA｜ファイルシステムオブジェクト(FileSystemObject)でファイルやフォルダを操作する

VBAではファイルやフォルダを操作するときにつかえる便利なファイルシステムオブジェクト(FileSystemObject)の利用ができます。この記事ではファイルシステムオブジェクトをあつかうための方法や、使える機能(メソッドやプロパティ)を紹介しています。

Contents

Nameプロパティの構文

構文

フォルダまたはファイルオブジェクト(Object).Name = 新しい名前(Newname)

Nameプロパティの構成要素と引数

構成要素と引数

※新しい名前(Newname)を指定する場合は、イコール(=)をつかって書きます。
要素／引数	必須／任意	説明
フォルダまたはファイルオブジェクト (Object)	必須	ファイルまたはファイルオブジェクトを指定します。
新しい名前 (Newname)	任意	フォルダやファイルの新しい名前を指定します。

その他のポイント

Nameプロパティを利用するには、事前にGetFolderメソッドや、GetFileメソッドでフォルダオブジェクトやファイルオブジェクトを取得する必要があります。

新しい名前(Newname)を設定する場合は、イコール(=)を使って新しい名前にする文字列を指定します。

Nameプロパティをつかったサンプルマクロ

サンプルコード

次のマクロはNameプロパティを利用してイミディエイトウィンドウにフォルダとファイルの名前を表示します。

Option Explicit

Sub ファイルシステムオブジェクト_Nameプロパティ01()

    'ファイルシステムオブジェクトを使うため準備
    
    '①事前バインディングの場合はVBEのツールより参照設定で「Microsoft Scripting Runtime」にチェックをしてください。
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject
    
    'フォルダオブジェクトとファイルオブジェクトを代入する変数の宣言
    Dim FolderObject As Object, FileObject As Object
    
    'GetFolderメソッドでフォルダを代入
    Set FolderObject = FSO.GetFolder("C:\Users\ユーザー名\Desktop\Test\サンプルフォルダ1")
    
    'GetFileファイルメソッドでファイルを代入
    Set FileObject = FSO.GetFile("C:\Users\ユーザー名\Desktop\Test\サンプルエクセル01.xlsx")
    
    'Nameプロパティを利用してフォルダとファイルの名前をイミディエイトウィンドウに表示する
    Debug.Print FolderObject.Name
    Debug.Print FileObject.Name


End Sub

実行結果

サンプルフォルダ1
サンプルエクセル01.xlsx

GetFolder、GetFileで取得したフォルダやファイルの名前がイミディエイトウィンドウに表示されます。

Nameプロパティはフォルダやファイルオブジェクトを取得してから使おうね。

サンプルコード

次のマクロはNameプロパティを利用してフォルダやファイルの名前を設定(変更)し、イミディエイトウィンドウに表示します。

Option Explicit

Sub ファイルシステムオブジェクト_Nameプロパティ02()
    
    'ファイルシステムオブジェクトを使うため準備
    
    '①事前バインディングの場合はVBEのツールより参照設定で「Microsoft Scripting Runtime」にチェックをしてください。
    Dim FSO As FileSystemObject
    Set FSO = New FileSystemObject
    
    'フォルダオブジェクトとファイルオブジェクトを代入する変数の宣言
    Dim FolderObject As Object, FileObject As Object
    
    'GetFolderメソッドでフォルダを代入
    Set FolderObject = FSO.GetFolder("C:\Users\ユーザー名\Desktop\Test\サンプルフォルダ1")
    
    'GetFileファイルメソッドでファイルを代入
    Set FileObject = FSO.GetFile("C:\Users\ユーザー名\Desktop\Test\サンプルエクセル01.xlsx")
    
    'Nameプロパティを利用して新しいフォルダとファイルの名前を設定(変更)する
    FolderObject.Name = "テストフォルダ"
    FileObject.Name = "テストエクセルファイル.xlsx"
    
    'Nameプロパティを利用してフォルダとファイルの名前をイミディエイトウィンドウに表示する
    Debug.Print FolderObject.Name
    Debug.Print FileObject.Name

End Sub