VBA Excel создание папок

Question

Прошу помощи!! ! 
Имеется код создание папки с текущей датой:

Sub NFDate()
strDate = Format(Now(), "dd.mm.yyyy")
 If Dir("E:\123\" & strDate, vbDirectory) <> "" Then
 MsgBox "файл существует"
 Else: MkDir ("E:\123\" & strDate)
 End If
End Sub

Подскажите, как сделать, так, что бы папки продолжались номероваться, например:
31.05.2014
31.05.2014(1)
31.05.2014(2)
и т. д.

Александр · Accepted Answer

Sub NFDate()
strDate = Format(Now(), "dd.mm.yyyy")
t = "e:\123\" & strDate
 If Dir(t, vbDirectory) <> "" Then
 For i = 1 To 3500
 p = t & "(" & i & ")"
 If Dir(p, vbDirectory) = "" Then
 MkDir (p): Exit For
 End If
 Next i
 Else: MkDir ("e:\123\" & strDate)
End If
End Sub

Apalon · Answer

Ну там где файл существует просто создай папку с номером 2