フォルダ名およびファイル名を変更
Name ステートメント で、ファイル、ディレクトリまたはフォルダの名前を変更することができます。
【構文】
Name oldpathname As newpathname
引数・戻り値
- oldpathname ・・・ 既存のファイル、ディレクトリまたはフォルダの名前を文字列式で指定します。ファイル名には、ディレクトリまたはフォルダ、ドライブを含めることもできます。
- newpathname ・・・ 引数 oldpathname に、ファイル名を指定した場合、新しいファイルの名前を文字列式で指定します。ディレクトリまたはフォルダ、ドライブを含めることもできます。存在しているファイル名を指定することはできません。oldpathname に、ディレクトリまたはフォルダの名前を指定した場合、新しいディレクトリまたはフォルダの名前を文字列式で指定します。存在しているディレクトリまたはフォルダの名前を指定することはできません。
引数 newpathname に、同じファイル名で、既存の別のディレクトリまたはフォルダを指定すると、ファイルを移動することができます。
引数 oldpathname および newpathname に、ファイル名のみ（ディレクトリ名、フォルダ名を含まない）を指定した場合の場所は、カレントパスとなります。
- oldpathname ・・・ 既存のファイル、ディレクトリまたはフォルダの名前を文字列式で指定します。ファイル名には、ディレクトリまたはフォルダ、ドライブを含めることもできます。
- newpathname ・・・ 引数 oldpathname に、ファイル名を指定した場合、新しいファイルの名前を文字列式で指定します。ディレクトリまたはフォルダ、ドライブを含めることもできます。存在しているファイル名を指定することはできません。oldpathname に、ディレクトリまたはフォルダの名前を指定した場合、新しいディレクトリまたはフォルダの名前を文字列式で指定します。存在しているディレクトリまたはフォルダの名前を指定することはできません。
引数 newpathname に、同じファイル名で、既存の別のディレクトリまたはフォルダを指定すると、ファイルを移動することができます。
引数 oldpathname および newpathname に、ファイル名のみ（ディレクトリ名、フォルダ名を含まない）を指定した場合の場所は、カレントパスとなります。
Name ステートメント 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
Sub Sample01_Name() 'ファイル名の変更 Dim oldName As String Dim newName As String oldName = "C:\Documents\test02.xlsx" newName = "C:\Documents\test05.xlsx" Name oldName As newName End Sub Sub Sample02_Name() 'ファイルの移動 Dim oldName As String Dim newName As String oldName = "C:\Documents\test01.xlsx" newName = "C:\Documents\tmp\test01.xlsx" Name oldName As newName End Sub Sub Sample03_Name() 'ブック以外のファイルの名前を変更 Dim oldName As String Dim newName As String oldName = "C:\Documents\memo01.txt" newName = "C:\Documents\memo02.txt" Name oldName As newName End Sub |
実行結果
実行前
Sub Sample01_Name() を実行
Sub Sample02_Name() を実行
Sub Sample03_Name() を実行
