当日日付のフォルダーを作成するには？

解決

yopito  2003-04-09 17:59:07  No: 106628  IP: [192.*.*.*]

フォルダーをMkDirで作成するときに当日の日付を入れたフォルダーを作成したのですがどうしたらいいでしょう？
教えてください。

編集 削除
nanashi  2003-04-09 18:20:20  No: 106629  IP: [192.*.*.*]

Now関数とかDate関数はご存知ですか？

編集 削除
yopito  2003-04-09 18:33:04  No: 106630  IP: [192.*.*.*]

はい、知っています。
現在は、
Dim tDate As Date
tDate = Format(Date,"yymmdd")
MkDir "C:\usr"

でusrフォルダーはできます。
このusrの後にtDateをくっつける方法がわかりません。
Accessのときに、& tDateとかこんな感じだったと思い
それでやったのですが、エラーになりました。
よろしくお願いします。

編集 削除
とろ  2003-04-09 18:48:48  No: 106631  IP: [192.*.*.*]

？

Dim tDate As String
tDate = Format(Date,"yymmdd")
MkDir "C:\usr" & tDate

で今日ならば、
"C:\usr030409" というフォルダが作成されます。

tDate を Date 型で宣言すると、
tDate = Format(Date,"yymmdd")
でエラーになると思いますけど。

編集 削除
通りすがりの方  2003-04-09 18:54:49  No: 106632  IP: [192.*.*.*]

dim tDate as string
tDate=left(Date,2)+left(mid(Date,4),2)+left(mid(Date,7),2)
MkDir "C:\usr" & tDate

こんな感じじゃだめですか？
ちなみにフォルダ名に/はつけれなかったと思います。

編集 削除
yopito  2003-04-09 19:03:03  No: 106633  IP: [192.*.*.*]

わかりました。変数の宣言が違ってたのですね！
テストしたところうまく作成できました。
ありがとうございました。

編集 削除
とろ  2003-04-09 19:31:00  No: 106634  IP: [192.*.*.*]

tDate=left(Date,2)+left(mid(Date,4),2)+left(mid(Date,7),2)
は避けた方が良いです。
コンパネの日付の設定が "yy/mm/dd" になっている場合は大丈夫ですが、
仮に "yyyy/mm/dd" となっている場合、
tDate には "203/4/" という値が入ってしまいます。

編集 削除