Δημιουργία Φακέλου με VBA

[Χρήστος]

Καλησπέρα στην Κοινότητα.
Ζητώ την βοήθειά σας στο εξής:
Σε μια Φόρμα, βασισμένη σε Πίνακα, έχουμε το πεδίο ΕΠΩΝΥΜΟ.
Σ' ένα κουμπί, με το ΚΛΙΚ, θέλω να δημιουργώ τον φάκελο: C\Orders\ΕΠΩΝΥΜΟ
(1. δηλαδή θέλω να δημιουργώ φάκελο και υποφάκελο και 2. ο φάκελος ΕΠΩΝΥΜΟ να παίρνει την τρέχουσα τιμή του πεδίου ΕΠΩΝΥΜΟ)

Με το παρακάτω δημιουργώ τον φάκελο Orders αλλά ...ΟΧΙ τον υποφάκελο....

If Dir("C:\Orders", vbDirectory) = "" Then
MkDir ("C:\Orders")
Else
'do nothing ... the directory already exists
End If

[Χρήστος]

Το παρακάτω Θέμα
http://www.ms-office.gr/forum/visual...pofakeloy.html

ήταν ιδιαίτερα κατατοπιστικό.
Ευχαριστώ πολύ για άλλη μια φορά.

If Dir("C:" & "\" & "Orders" & "\" & ΕΠΩΝΥΜΟ, vbDirectory) = "" Then
MkDir ("C:" & "\" & "Orders" & "\" & ΕΠΩΝΥΜΟ)

Else
'do nothing ... the directory already exists
End If