|
▼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
|
|