ファイル名を変更する方法

◆概要

このページは、Visual Basic 6.0でファイル名を変更する方法について記載しています。


ファイルシステムオブジェクトに含まれるName プロパティを使うことで、ファイルの名前を変更できます。 また、従来のファイル入出力ステートメントを利用するときは、Nameステートメントを使います。

◆ファイルシステムオブジェクトに含まれるName プロパティを使用する方法 

Private Sub Command1_Click()
    Dim colFilesystem As Object
    Dim objFile As Object

    Set colFilesystem = CreateObject("Scripting.FileSystemObject")

    'ファイルが無い場合のエラーを抑止
    On Error Resume Next

    Set objFile = colFilesystem.GetFile("Readme.txt")

    'カレントフォルダのReadme.txtをReadme.docに変更
    objFile.Name = "Readme.doc"

    On Error GoTo 0
    
    'オブジェクトを開放
    Set colFilesystem = Nothing
End Sub
　　

◆従来のファイル入出力ステートメントのNameステートメントを使用する方法 

Private Sub Command2_Click()
   'ファイルが無い場合のエラーを抑止
    On Error Resume Next

    'カレントフォルダのReadme.docをReadme.txtに変更
    Name "Readme.doc" As "Readme.txt"

    On Error GoTo 0

End Sub
　　


▼ページトップへ