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

回答No.4

pringlez · ベストアンサー

>しかし、新名にも空白が入っている場合に、
>どういうクォーテーションを入れたら良いのか、
>あれこれ試しましたが、うまく行きませんでした。
>重ねてのお尋ねで恐縮ですが、ご教授ください。

なにをどうあれこれ試したのでしょうか？
パソコンをはじめて触る方なのでしょうか。
そうだとしても、それくらいは自分で考えられるようになったほうがいいと思うのですが。

「ren "c:\users\me\desktop\data\旧名.txt" "新名.txt"」
こういう内容の文字列にすればいいわけです。ということはコードは

cmd = "ren ""c:\users\me\desktop\data\" & 旧名 & """ """ & 新名 & """"
でしょ。

お礼

うまく行きました。できなかったことが実現し、感謝しています。自分の至らなさも痛感しつつ、もっと使えるようになりたいという思いが強くなりました。ありがとうございました。

回答No.3

NotFound404

VBAにも Name ステートメントがあります。
http://officetanaka.net/excel/vba/statement/Name.htm
「大半が変更できません」の原因も探りやすいと思います。

FileCopy、 Kill（Delete）とかも。
http://www.moug.net/tech/exvba/0060075.html

ヘルプで確認してみてください。
CMD.exe にお願いするまでもないと思います。

また、もっと凝ったことをしたい場合はFilesystemObjectを検討しても吉。
http://officetanaka.net/excel/vba/filesystemobject/index.htm

お礼

NAMEのことを調べました。私のやり方より扱いやすそうですので、トライしてみます。ありがとうございました。

回答No.2

pringlez

私も、VBAを使うのならFSOを使ったほうがいいとは思います。
ですがそこまで作っているのでしたら、現状を動くようにした方がいいでしょう。

cmdをメッセージボックスやDebug.printで表示させてみてください。
「ren c:\users\me\desktop\data\旧名.txt 新名.txt」
となっているはずです。これを
「ren "c:\users\me\desktop\data\旧名.txt" 新名.txt」
となるようにしましょう。

VB系の文字列中のダブルクォーテーションはダブルクォーテーションを2つ重ねる事で表現します。のでダブルクォーテーションだらけになりますがまぁそういうものです。

たぶんこれでいいはず。
cmd = "ren ""c:\users\me\desktop\data\" & 旧名 & """ " & 新名

新名にも空白が入っている場合には、同じように修正してみてください。

補足

ありがとうございます。質問者です。教えていただいたやり方で、旧名に空白が入っているものの処理ができました。しかし、新名にも空白が入っている場合に、どういうクォーテーションを入れたら良いのか、あれこれ試しましたが、うまく行きませんでした。重ねてのお尋ねで恐縮ですが、ご教授ください。よろしくお願いします。

回答No.1

hitomura

私は Excel VBA のことはよく知らないのですが、調べてみたところ WSH でコマンドを組み立てなくても FSO で File オブジェクトの Name プロパティを変更すればリネームできるようです。

[参考]
MSDN での Name プロパティのリファレンスページ
http://msdn.microsoft.com/ja-jp/library/cc428125.aspx

実際のリネームのサンプル
http://officetanaka.net/excel/vba/filesystemobject/file06.htm

お礼

FSOのことを調べてみました。こちらのやり方の方が、私向きかと思いますので、やってみようと思います。ありがとうございます。