|
▼kanabun さん:
>▼FSO初心者 さん:
>
>全体はみてないのですが、
>
>>※GetAbsolutePathNameの定数が設定されていないとかいうエラーから進めません。
>
>> Const cnsSOUR = objFSO2.GetAbsolutePathName(objfile)
>> Const cnsDEST = AfterPath & objfile.Name
>
>このエラーは 右辺で変数を使って 定数を定義しようとしているので
>構文エラーが起きているのだと思います。
>単純に、
>
> Dim SrcPath As String
> Dim DestPath As String
> SrcPath = objFSO2.GetAbsolutePathName(objfile)
> DestPath = AfterPath & objfile.Name
>
>のように、変数に代入するようにしたら、いかがですか?
変数に値を格納するやり方で、ちゃんと動きました!
どうもありがとうございます。
(FSOではなくconst構文のエラーだったんですね。。)
ただ動くようになったといっても指定フォルダ配下第一までしか参照しない
コードになっているので不完全ではあるなあという感じですね。
もしよろしければ後学のために質問にもお答えいただければ幸いです。
1.FileSystemObjectの使用方法として、私のコードのように3つもインスタンス生成
するのは根本的に間違っていませんか?
2.FileSystemObjectではなく、Microsoftscriptingruntimeで使用可能になった
Folder、Fileオブジェクトでフルパスの取得はできますか?
(もしできるなら、FileSystemObjectとの差異はなんでしょうか?
その他のメソッドやプロパティの違い?)
|
|