テキストファイルに書き込むには、

解決

さ 2004-12-28 20:42:13 No: 118554

いつもお世話になっております
win2000、VB6.0 SP6

Dim inf As Integer
Open App.Path & "\data.txt" For Append As #inf
を実行すると
実行時エラー52
ファイル名または、番号が不正です
とエラーがでます
なぜでしょうか？

書き込むときは、
Print #inf,"abc"
にするつもりです

GOD 2004-12-28 20:49:38 No: 118555

>なぜでしょうか？
>
infが0だからです。
まずはヘルプを読みましょう。

LESIA 2004-12-28 20:50:37 No: 118556

ファイル番号は、1〜511の範囲で指定しなければなりません。
変数infは、宣言しているけど値の設定をしていないので、
初期値0のままです。
Openの前に、
inf = FreeFile
を入れてください。

いな 2004-12-28 21:43:22 No: 118557

既に、LESIAさんが回答していますが、

使用可能なファイル番号を取得するために FreeFile 関数を使用します。既に使われているファイル番号を重複して使うのを防ぐことができます。
--
サンプルは、ココを参考に
http://www.bcap.co.jp/hanafusa/index.html

'使用可能なファイル番号を取得
intFileNo = FreeFile

さ 2005-01-11 21:38:09 No: 118558

すみませんでした
長い間見れなっかたもので
FreeFileすることで出来ました
ありがとうございました