フォルダ名を変更する

トップページ（目次）

162.フォルダ名を変更する

Sub フォルダ名を変更する()

    変更前フォルダ名 = "C:\あああ"
    変更後フォルダ名 = "C:\いいい"
    
    Name 変更前フォルダ名 As 変更後フォルダ名

End Sub

変更前も変更後もフルパスで指定する必要があるため、変数に入れると扱いやすくなる

Sub フォルダ名を変更する_ログイン名を取得()

    ログイン名 = CreateObject("WScript.Network").UserName
    デスクトップパス = "C:\Users\" & ログイン名 & "\Desktop\"

    変更前フォルダ名 = デスクトップパス & "あああ"
    変更後フォルダ名 = デスクトップパス & "いいい"
    
    Name 変更前フォルダ名 As 変更後フォルダ名

End Sub