C_TIME(vhDoc)
C_TEXT(mDocPathname)
vhDoc:=Create document("")  `保存先を指定させるために新規作成ダイアログを表示
If (OK=1)
	mDocPathname:=Document  `システム変数 Document よりパス名を取得
	CLOSE DOCUMENT(vhDoc)  `ファイルを閉じる
End if