Δημιουργία Folder μέσω Vba

[γιώργοςΚ]

Καλημέρα φιλε μου Γιώργο, όπως πάντα εύστοχος.!!

Εάν κατάλαβα καλά (και συγχώρεσε με διότι είμαι άπειρος σε vba) πρέπει πρώτα να δημιουργήσω τον πρώτο φάκελο και μετά να επαναλάβω τον ίδιο κωδικα αλλά με την μετατροπή του και για τον δεύτερο φάκελο?

Εννοώ δήλαδή αυτό:

1. Πατάω το κουμπί και τρέχει ο κώδικας
Public Function CreateFolderDemo()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\ProgramData\Dab")
CreateFolderDemo = f.Path
End Function

και ας πούμε πως

2. Μέσω του ίδιου ή νέου κουμπιού πατάω και τρέχει ο κώδικας
Public Function CreateFolderDemo()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\ProgramData\Dab\Part1")
CreateFolderDemo = f.Path
End Function

Εάν η λύση ειναι η πιο πανω, μπορεί ο κώδικας να προσαρμοσθεί έτσι ώστε:

1. αφενος μέν να ψάχνει πρώτα εάν υπάρχει ο πρώτος φάκελος (Dab)
2.Στην περίπτωση που δεν υπάρχει να τον δημιουργεί

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

Αυτό για μένα θα είναι το ιδανικότερο σενάριο φίλε μου..

Σε ευχιστώ πολύ για όλη την πρόθεση να βοηθάς,..