[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2005/08/08(Mon) 14:47
投稿者名:Nao
Eメール:
URL :
タイトル:
ファイル名に変数を使いたいのですが
すいません。色々調べたみたんですがわからないので教えて下さい。

VB6でカレンダーを作っています。
例えば2005年8月8日が選ばれてたら
20050805.txtというテキストファイルを作成したいのですが…

today = gYear & gMonth & gDay
todayには20050808が代入されているのですが、
today.txtとすると、うまくいきませんお願いします。

投稿時間:2005/08/08(Mon) 14:56
投稿者名:いな
Eメール:
URL :
タイトル:
Re: ファイル名に変数を使いたいのですが
> today.txtとすると、うまくいきませんお願いします。

today & ".txt"っというオチでは?

投稿時間:2005/08/08(Mon) 15:23
投稿者名:Nao
Eメール:
URL :
タイトル:
Re^2: ファイル名に変数を使いたいのですが
いなさん、ありがとうございます!

やってみたら、変数名ファイルになりました!!
ただ、作ったファイルをそのまま保存したいのですが

Open "C:\calender\Schedule" \ today & ".txt" For Append As #1
    Write #1, Memo
Close #1

このように書くと、型が一致しませんになります。

投稿時間:2005/08/08(Mon) 15:29
投稿者名:いな
Eメール:
URL :
タイトル:
Re^3: ファイル名に変数を使いたいのですが
> いなさん、ありがとうございます!
>
> やってみたら、変数名ファイルになりました!!
> ただ、作ったファイルをそのまま保存したいのですが
>
> Open "C:\calender\Schedule" \ today & ".txt" For Append As #1
>     Write #1, Memo
> Close #1
>
> このように書くと、型が一致しませんになります。

× Open "C:\calender\Schedule" \ today & ".txt" For Append As #1
○ Open "C:\calender\Schedule\" & today & ".txt" For Append As #1

では?

"\"は"+"や"-"、"*"、"/"と同様に、意味のある
記号なので、
文字列にするために、ダブルクオートでくくりましょう、

あと気になったのですが、
>For Append As #1
の部分の、#1は固定で書くと、
既にファイルが開かれているなどのエラーの原因となるので、

--
dim intFileNo As Integer
'使用可能なファイル番号を取得
intFileNo = FreeFile
Open "C:\calender\Schedule\" & today & ".txt" For Append As #intFileNo
Write #intFileNo, Memo
Close #intFileNo

というように使ったほうが、ヨサゲです
#この辺は、左のサンプル"ファイル操作関係"に詳しく書かれています。

投稿時間:2005/08/08(Mon) 15:39
投稿者名:Nao
Eメール:
URL :
タイトル:
ありがとうございました。
いなさん、ありがとうございました!!
無事変数名ファイルが保存されました。