VBで一時保存の場所

質問

VB6.0です。

データーベースの保存で、「保存ボタン」
を押すと勝手にtest.txtに保存されます。
そこまでは良いのですがそのtest.txtが
ディスクトップに出来るので見栄えが悪いです。

作ったら友達にあげるので、test.txtがなるべく
見えない感じにしたいです、こういう場合はなんか特別な方法があるのでしょうか？

Open "test.txt" For Output As #1

この書き方でやるとディスクトップにtest.txtが出来てしまいます。
なんかのコードを付け足すと他の場所にいくのかな・・・？？？

回答No.1

noname#5584 · ベストアンサー

> なんかのコードを付け足すと他の場所にいくのかな・・・？？？

パスを指定すればよい。

Dim nFile As Long

nFile = FreeFile()
Open "C:\a12b12\test.txt" For Output As nFile

テンポラリフォルダを使用する場合は下記のAPIを使用すること。

Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long

お礼

ありがとうございました。