作成者	カテゴリ	返答の対象		公開
Vit 02/03/2010 08:58 AM		Dir関数でエラー

当方6.5にてやってみましたが同じエラーでした。

以下のように変更したら出来ましたがいかがでしょうか?

Const sDefaultPath = "C:\Documents and Settings\All Users\デスクトップ\DIGITAL"
If Dir(sDefaultPath, 16) = "" Then
Mkdir sDefaultPath
End If

If Dir(sDefaultPath & "\" & doc.Categories(0), 16) = "" Then
Mkdir sDefaultPath & "\" & doc.Categories(0)
End If

If Dir(sDefaultPath & "\" & doc.Categories(0) & "\" & doc.Year(0), 16) = "" Then
Mkdir sDefaultPath & "\" & doc.Categories(0) & "\" & doc.Year(0)
End If