FileSystemObjectを使用したファイルからファイルへのコピーについて

Question

Access2000でのVBにて、

CSVファイルの内容を読み込み、情報を付加して新たなCSVに書き込むという処理を行っております。

＊＊＊＊＊＊＊

dim fs,inf,,infs,outf as object

set fs = CrearteObject("Scripting.FileSystemObject")

'読み込みファイル

set inf = fs.GetFilePath("c:\temp\in.csv")

set infs = inf.OpenAsTextStream(ForReading,TristateUseDefaule)

'書き込みファイル

set outf = fs.CreateTextFile("c:\temp\out.csv",True)

outf.writeline(infs.readline)　←ここでエラー（プロシージャの呼び出し、または引数が不正です。）

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

ファイルへ書き込む最後の命令でエラーとなります。

このような記述の仕方は不正なのでしょうか。

どなたかお解かりになる方が御座いましたらご教示願います。

よろしくお願いします。

 

 

Answer 1

Call outf.writeline(infs.readline)
もしくは
outf.writeline infs.readline
にしてください。

Answer 2

ご回答有難う御座います。

Call記述及び括弧はずし共に
事象が解消しませんでした。

また、間違いで同じ内容でもう一件投稿してしまいましたが、
そちらで頂いた回答の「参照設定の追加」も
やはり解消しませんでした。

端末固有の問題かと思い、端末を変更してみましたが
やはり解消されません。

すいません、他に思い当たる原因等御座いましたら
ご教示頂きたくよろしくお願いします。

Answer 3

すいません、自己レスです。

原因が分かりました。

扱ったデータとその指定方法に問題がありました。

 http://q.hatena.ne.jp/1201311730

お騒がせしました

Answer 4

こんにちは。中川俊輔です。

gekkaさん、回答ありがとうございます。

レディオさん、フォーラムのご利用ありがとうございます。

問題を自己解決されたようなので、情報を有効活用するために投稿の種類を質問から情報交換に変更させていただきました。
レディオさんは元に戻すこともできますので、ご確認ください。

今後ともフォーラムをよろしくお願いします。
それでは！

---

マイクロソフト株式会社 フォーラム オペレータ 中川 俊輔