AIと戦って、あなたの人生のリスク診断 >>

いつもお世話になっております。
ファイルの移動についてです。
A列にファイルの一覧があります。
この一覧にあるファイルを全てTドライブのフォルダに同じ配下で移動したいのです。

A列
ファイル
S:\未完成\data\DA00001146.xls
S:\未完成\test\data\DA00001147.doc
S:\未完成\test\DA00001148.ppt

逆スラッシュは実際には半角の¥で表示されています。

ファイル
T:Sドライブ\未完成\data\DA00001146.xls
T:Sドライブ\未完成\test\data\DA00001147.doc
T:Sドライブ\未完成\test\DA00001148.ppt

movefile を使うとFileObjectSystemを使うことになり
私には変数をどのように設定していいかわかりません。


Sub test()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''C:\Tmp\フォルダ内の*.xlsをC:\Work\フォルダに移動します
FSO.MoveFile "C:\Tmp\*.xls", "C:\Work\"
Set FSO = Nothing

を探してきて、何とかしようと思ったのですが、うまく
使えませんでした。
ご教授ください。
よろしくお願いします。

A 回答 (2件)

この回答への補足

説明が悪くてすみません。ファイルを移動するコードは上記のまま、動作しているのですが、これをA列のファイル一覧を順に移動するFor Next構文(たぶん)に当てはめる方法がわからなかったのです。お時間とらせてすみませんでした。

補足日時:2015/01/18 17:25
    • good
    • 0
この回答へのお礼

どうにか自分で作ることが出来ました。
ありがとうございました。

お礼日時:2015/01/21 12:21

こんにちは。



>S:\未完成\data\DA00001146.xls '8-3型ではない

質問に書かれたコードは間違いないはずですが、実際にうまくいかない場合、ロング・ネームになっていたり、空白が入ったりした場合、
"""C:\Users\UserName\My Documents\Excel\経理\"""
のように、「""」で、くくってあげなくてはなりません。

この回答への補足

こんにちは。
さっそく、有難うございます。

説明が悪くてすみません。ファイルを移動するコードは上記のまま、動作しているのですが、これをA列のファイル一覧を順に移動するFor Next構文(たぶん)に当てはめる方法がわからなかったのです。お時間とらせてすみませんでした。

補足日時:2015/01/18 17:27
    • good
    • 0
この回答へのお礼

どうにか自分で作りました。
考えてくださって、ありがとうございました。

お礼日時:2015/01/21 12:24

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


このカテゴリの人気Q&Aランキング