>前回のマクロではすべてのメモを一つのディレクトリに作成するので、
>メモが増えてくると検索に不便かもしれません。
>次のように変更すると月ごとにサブディレクトリを作成します。
>下はおまけですが、常駐リストのファイル一覧に今月のメモを表示します。
>
>const memo_dir$ = "D:\home\memo"  '※メモディレクトリ
>
>proc main
>	dim d$,f$,new
>	if dir$(memo_dir$,&h10) = "" then exit proc
>	d$ = memo_dir$+"\"+left$(date0$,4)
>	if dir$(d$,&h10) = "" then mkdir d$
>	d$ = d$+"\"+mid$(date0$,6,2)
>	if dir$(d$,&h10) = "" then mkdir d$
>	f$ = d$+"\"+cformat$("%s.txt",date0$)
>	new = @@QOpenNew:@@QOpenNew = FALSE
>	call @@OpenFile(f$)
>	@@QOpenNew = new
>end proc
>
>proc open_dir
>	dim d$
>	if dir$(memo_dir$,&h10) = "" then exit proc
>	d$ = memo_dir$+"\"+left$(date0$,4)+"\"+mid$(date0$,6,2)
>	if dir$(d$,&h10) = "" then d$ = memo_dir$
>	@@PrintToolList = TRUE
>	@@ToolListType = 3
>	@@ToolListFile$ = d$+"\*.*"
>end proc

やってみました。便利そうなのでしばらく使ってみます♪ありがとうございました。