VBAでDOS プロンプトを使いたいのですが・・・
デスクトップの\dataフォルダに、名前を付け替えたいファイルが多数あります。
それらのファイル名（旧名）と、変更したい名前（新名）は、エクセル上の２列に
入力済みです。VBAを使って、ｄｏｓプロンプトのＲＥＮを実行しようとしましたが、
多くのファイル名にスペースが含まれるせいか、大半が変更できませんでした。
良い方法があれば、教えてください。どうかよろしくお願いします。
※作成したプロシージャは以下の通りです。
Sub ファイル名変更()
Dim カウンタ As Integer
For カウンタ = 2 To 1000
Dim wsh As Object, wexec As Object, cmd As String
Dim 旧名 As String, 新名 As String
Set wsh = CreateObject("wscript.shell")
旧名 = Cells(カウンタ, 1).Value '旧名はA列にある
新名 = Cells(カウンタ, 2).Value '新名はB列にある
cmd = "ren c:\users\me\desktop\data\" & 旧名 & " " & 新名
Set wexec = wsh.Exec("%comspec% /c " & cmd)
Set wexec = Nothing
Set wsh = Nothing
Next
End Sub
お礼
ありがとうございました～ すっきりしました！！