Excel VBA質問箱 IV

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

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


9732 / 76737 ←次へ | 前へ→

【72564】Re:指定フォルダ配下の全ファイルコピー
発言  kanabun  - 12/8/25(土) 8:23 -

引用なし
パスワード
   ▼FSO初心者 さん:

> 上記にて処理の判定をしたのですが、
> なぜか返り値が0以外の失敗になってしまいます。
エラー番号は何番が返りましたか? # 4 ですか?

>  Dim SrcPath As String:  SrcPath = "D:\(Data)"
>  Dim DestPath As String:  DestPath = "D:\(Temp)"
>
>  sCmd = "XCopy " & SrcPath & " " & DestPath _
>      & " /s /e /c /h /r /k > """ & tmpPath & """"

サンプルコードでは
> SrcPath = "D:\(Data)"
> DestPath = "D:\(Temp)"
のような、パス名の中に スペースを含まない簡単な例を示しましたが、
実際のパス名(コピー元、コピー先のいずれかまたは両方)に
スペースが含まれていれば、コマンド文字列は、「パス名を""で
囲う」処理を付け加えないと、これだけで、失敗しますね。
(他にも 失敗する原因はあると思うので、エラー番号が
 どのような内容のエラーに対応するのか、調べてみるとよい
 かもしれません)

XCopy コマンドはサブフォルダも作成しながらFileCopyしてくれます
ので、 FsoやVBA組み込みメソッド には相当するものが無い高機能な
ツールです。
オプションのセットにより、フォルダだけコピーとか、特定の文字列
を含むファイルまたはフォルダを「コピーから除外」したり、とか
日付けが新しいものだけバックアップ目的でコピーさせたり、とか
このコマンド一つでいろんなことができます。

ぼく自身はFSOは鈍足であまり使わないので、Fsoのほうの疑問には
お答えできませんが、そちらの疑問が解決したら、ぜひ XCopy コマ
ンド に再挑戦してみることをお勧めします♪

0 hits

【72554】指定フォルダ配下の全ファイルコピー FSO初心者 12/8/23(木) 22:40 質問
【72555】Re:指定フォルダ配下の全ファイルコピー kanabun 12/8/23(木) 23:36 発言
【72561】Re:指定フォルダ配下の全ファイルコピー FSO初心者 12/8/24(金) 23:40 お礼
【72556】Re:指定フォルダ配下の全ファイルコピー kanabun 12/8/24(金) 0:19 発言
【72557】Re:指定フォルダ配下の全ファイルコピー kanabun 12/8/24(金) 11:33 発言
【72562】Re:指定フォルダ配下の全ファイルコピー FSO初心者 12/8/24(金) 23:48 お礼
【72564】Re:指定フォルダ配下の全ファイルコピー kanabun 12/8/25(土) 8:23 発言
【72565】Re:指定フォルダ配下の全ファイルコピー kanabun 12/8/25(土) 9:05 発言
【72566】Re:指定フォルダ配下の全ファイルコピー Yuki 12/8/25(土) 9:37 発言
【72569】Re:指定フォルダ配下の全ファイルコピー FSO初心者 12/8/25(土) 14:56 質問
【72571】Re:指定フォルダ配下の全ファイルコピー Yuki 12/8/25(土) 17:59 発言
【72575】Re:指定フォルダ配下の全ファイルコピー FSO初心者 12/8/26(日) 0:36 お礼
【72589】Re:指定フォルダ配下の全ファイルコピー Yuki 12/8/26(日) 19:55 発言
【72572】Re:指定フォルダ配下の全ファイルコピー kanabun 12/8/25(土) 19:01 発言
【72588】Re:指定フォルダ配下の全ファイルコピー FSO初心者 12/8/26(日) 19:04 回答
【72558】Re:指定フォルダ配下の全ファイルコピー kanabun 12/8/24(金) 11:39 発言

9732 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free