FileオブジェクトとFolderオブジェクトのNameプロパティについてです。
Menu
Nameプロパティ
概要
指定したファイルやフォルダーの名前を設定するか返します。
値の取得と設定が可能です。
構文
ファイルの場合：FileObject.Name [newname]
フォルダの場合：FolderObject.Name [newname]
Nameプロパティの引数
| 引 数 | 必須 / 省略可 | 詳 細 |
設定する名前 | 省略可 | 指定したファイルやフォルダーの名前の取得と設定をします。 |
VBAサンプル
フォルダー名の取得
1 2 3 4 5 6 7 8 9 10 11 12 | Sub フォルダー名取得() 'FileSystemObjectを生成 Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'Folderオブジェクトを生成 Dim fol As Folder Set fol = fso.GetFolder("D:\sample") 'FolderオブジェクトのNameプロパティでフォルダー名を取得 Debug.Print fol.Name End Sub |
【結果】
sample
フォルダー名の設定
1 2 3 4 5 6 7 8 9 10 11 12 | Sub フォルダー名設定() 'FileSystemObjectを生成 Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'Folderオブジェクトを生成 Dim fol As Folder Set fol = fso.GetFolder("D:\sample") 'FolderオブジェクトのNameプロパティでフォルダー名を設定 fol.Name = "サンプル" End Sub |
【結果】
D:\サンプルというフォルダー名に変更されます。
ファイル名の取得
1 2 3 4 5 6 7 8 9 10 11 12 | Sub ファイル名取得() 'FileSystemObjectを生成 Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'Fileオブジェクトを生成 Dim f As File Set f = fso.GetFile("D:\sample\test.xlsx") 'FileオブジェクトのNameプロパティでファイル名を取得 Debug.Print f.Name End Sub |
【結果】
test.xlsx
ファイル名の設定
1 2 3 4 5 6 7 8 9 10 11 12 | Sub ファイル名設定() 'FileSystemObjectを生成 Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'Fileオブジェクトを生成 Dim f As File Set f = fso.GetFile("D:\sample\test.xlsx") 'FileオブジェクトのNameプロパティでファイル名を設定 f.Name = "test2.xlsx" End Sub |
【結果】
test2.xlsxという名前のファイル名に変更されます。
