Excel VBA質問箱 IV

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

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


9704 / 76734 ←次へ | 前へ→

【72589】Re:指定フォルダ配下の全ファイルコピー
発言  Yuki  - 12/8/26(日) 19:55 -

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

どうもです。
検証不足ですみませんでしたね。
でも、御自分で修正されたのはすばらしい解読力ですねですね
頑張ってください。

>(なお、たった一部のみ、誤り箇所がありましたので、僭越ながら下記引用にて修正をご案内させていただきます。★箇所をご確認ください。)
>
>>          If fNm = "" Then  >
>★            fNm = Join(vfNm, ".") '元「fNm = AfterPath & Join(vfNm, ".") 
>★''後続のコピーメソッドの際に、AfterパスとfNmのパスが重複してしまいますので、ここのでfNmはファイル名だけ(Joinのみ)に修正しております。
>>            Exit Do
>>          End If
>>        Loop
         ’ここで付加しているの上記記述では2重付加になってしまいますね。
>>        FSO.CopyFile objfile.Path, AfterPath & fNm
>>'        Debug.Print objfile.Path, AfterPath & fNm
>>      Else
>>        FSO.CopyFile objfile.Path, AfterPath & objfile.Name
>>'        Debug.Print objfile.Path, AfterPath & objfile.Name
>>      End If
>>    End If
>>  Next
>>  'サブフォルダを検索
>>  For Each objSubDir In objFolder.SubFolders
>>    Call EnumFilePathListA(FSO, objSubDir, strF, AfterPath)
>>  Next
>>End Sub

6 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 発言

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