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

解決

---

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

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

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

編集 削除

---

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

編集 削除

---

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

編集 削除

---

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

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

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

編集 削除

---

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。