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

[γιώργοςΚ]

Καλησπέρα,

Έχω τον πιο κάτω κώδικα τον οποίο βρήκα απο την Microsoft και θέλω να δημιουργήσω ένα νεο Folder στην διαδρομή c:\ProgramData\Dab\Part1. Δεν ξέρω τι κάνω λάθος αλλά εφόσον τρέξει ο κώδικας λαμβανω το επισυναπτόμενο μήνυμα ότι δεν βρίσκει το Path (?) ενώ εάν απο τον κώδικα αφαιρέσω το Part1 που στην ουσία είναι ο δεύτερος φάκελος μέσα στον πρώτο που θα δημιουγηθεί (Dab) δουλευει μια χαρα..


Public Function CreateFolderDemo()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CreateFolder("c:\ProgramData\Dab\Part1")
CreateFolderDemo = f.Path
End Function

Ευχαριστώ