Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9804 / 76807

←次へ　｜　前へ→


	【72562】Re:指定フォルダ配下の全ファイルコピー

FSO初心者 - 12/8/24(金) 23:48 -


	引用なし

	パスワード

▼kanabun さん：
>Runメソッドは成功すれば 0 を、失敗するとエラー番号を
>返すので、上のコード最後の部分も
>
>
>　　If ok > 0 Then
>　　　　MsgBox "失敗しました #" & ok
>　　Else
>　　　　MsgBox "Copyが終了しました"
>　　End If
>
>としたほうが親切かな？

上記にて処理の判定をしたのですが、なぜか返り値が０以外の失敗になってしまいます。記載頂いたコードをコピペしても、当方残念ながらDOSコマンドのVBA記述はさっぱりでして。。。（WEBにてDOSコマンド1行程度で指定配下の全ファイル（全サブフォルダ内の）を簡単にコピーできるソースが複数見つかりますが、そちらをDOS窓で試してみてもやはりうまくいきませんでした。やはり私に原因があるのでしょうか。。）

他の方のヒントにて、私のコードで１階層までのサブフォルダ内にある全ファイルはコピーできたので、一旦そのコードで代用しました。

もしサブルーティン等のコードで、指定配下全サブ内含む全ファイルをコピーできるいいの書き方があればご教授いただければと思います。

どうもありがとうございました。

0 hits

▼

【72554】指定フォルダ配下の全ファイルコピー FSO初心者 12/8/23(木) 22:40