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

  • 全般的な情報交換

  • 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) ←ここでエラー(プロシージャの呼び出し、または引数が不正です。)

    ***************

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

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

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

    よろしくお願いします。

     

     

    • 種類を変更済み sk7474 2009年2月9日 8:26 自己解決されたため。
    2009年1月30日 7:03

すべての返信

  • Call outf.writeline(infs.readline)
    もしくは
    outf.writeline infs.readline
    にしてください。
    2009年2月1日 5:34
  • ご回答有難う御座います。

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

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

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

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

    2009年2月2日 2:23
  • すいません、自己レスです。

    原因が分かりました。

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

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

    お騒がせしました
    2009年2月2日 4:55
  • こんにちは。中川俊輔です。

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

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

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

    今後ともフォーラムをよろしくお願いします。
    それでは!
    マイクロソフト株式会社 フォーラム オペレータ 中川 俊輔
    2009年2月9日 8:32