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

解決

yopito 2003-04-10 02:59:07 No: 106628

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

nanashi 2003-04-10 03:20:20 No: 106629

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

yopito 2003-04-10 03:33:04 No: 106630

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

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

とろ 2003-04-10 03:48:48 No: 106631

？

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

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

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

通りすがりの方 2003-04-10 03:54:49 No: 106632

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-10 04:03:03 No: 106633

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

とろ 2003-04-10 04:31:00 No: 106634

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