フォルダの中に本日付けのフォルダが存在するか確認し、

質問

フォルダの中に本日付けのフォルダが存在するか確認し、
存在した場合メッセージをだしたいのですが、実際存在するのに
もかかわらずメッセージが表示されません。

ちなみにシートのD1にDATE関数が入っています。
If (fFso.FolderExists(DirPathad) = True)のTrueをFalseにすると
メッセージが表示されます。
・・ですが実行させてDirPathadにカーソルをもってくると2010612のように
フォルダ名が表示されます。

何がおかしいのでしょうか？

Dim fFso As Object
Dim DirPathad As String

DirPathad = Year(Range("D1")) & Month(Range("D1")) & Day(Range("D1"))

Set fFso = CreateObject("Scripting.FileSystemObject")
If (fFso.FolderExists(DirPathad) = True) Then

MsgBox "本日付けのフォルダが存在します。"

Set fFso = Nothing

　　　　　End IF

回答No.2

kmetu · ベストアンサー

カレントフォルダにそのフォルダが存在するでしょうか
カレントフォルダでないのでしたら

ChDrive "d"
ChDir "\"

と言った感じでカレントフォルダを移動するか

DirPathad = "d:\" & Year(Range("D1")) & Month(Range("D1")) & Day(Range("D1"))

と言った感じでフルパス指定しましょう。

また、フォルダ名は　2010612　なんですよね　20100612 とかになっていませんか。

お礼

kmetuさん、ちゃんとフルパスを
指定したらメッセージが表示されました！
ありがとうございました！

回答No.1

muunoy

パス指定がフォルダのみなので、カレントディレクトリに見にいっているのでは？
カレントディレクトリにはありますか？

お礼

muunoyさん、仰る通りでした。
パスまで指定したらちゃんとメッセージが表示されるように
なりまました。
ありがとうございます！