こんにちは

vbs での実装例です。

適当なファイルに下記をコピーし、先頭の Constの部分を適切に変更後、vbs の拡張子のファイに保存して、

お試しください。

Option Explicit

Const srcFolderName = "FolderA"
Const srcFileName   = "Excel_file.xls"

Dim DesktopPath
DesktopPath = WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")

With CreateObject("Scripting.FileSystemObject")
'--- フォルダのチェック
    If Not .FolderExists( DesktopPath & "\" & srcFolderName ) Then
         WScript.Echo "デスクトップに" & srcFolderName & "がありません。"
         WScript.Quit
    End If

'--- ファイルのチェック
    If Not .FileExists( DesktopPath & "\" & srcFolderName & "\" &  srcFileName ) Then
         WScript.Echo "デスクトップに" & srcFolderName & "\" & srcFileName & "がありません。"
         WScript.Quit
    End If

'--- 新しい名前の入力
    Dim newName
    newName = InputBox( "新しいフォルダ名(ファイル名)を入力してください。" )

'---フォルダ、ファイルの変更
    .MoveFolder DesktopPath & "\" & srcFolderName, DesktopPath & "\" & newName
    .MoveFile   DesktopPath & "\" & newName & "\" &  srcFileName, DesktopPath & "\" & newName & "\" & newName & ".xls"
End With

http://www.whitire.com/vbs/