Excel VBA質問箱 IV

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

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


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

9707 / 76737

←次へ　｜　前へ→


	【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
　　　　　　　　　’ここで付加しているの上記記述では２重付加になってしまいますね。
>>　　　　　　　　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

0 hits

▼

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