[Tasos]

Καλησπέρα Θοδωρή!
Θα σου πρότεινα να χρησιμοποιήσεις το παρακάτω:

Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
ByVal lpPath As String) As Long

Sub test()
    MakeSureDirectoryPathExists "C:\Διαδρομή αρχείου ή φακέλου\" 
' Αν πρόκειται για διαδρομή φακέλου, η συμβολοσειρά του ορίσματος πρέπει να καταλήγει πάντα σε "\"
' δηλαδή: C:\Διαδρομή αρχείου ή φακέλου και ο χαρακτήρας "\"
' Για να καλύψουμε το ενδεχόμενο συντακτικού λάθους,
'που ίσως προκληθεί με την ενοποίηση μεταβλητών , κατά το χτίσιμο της διαδρομής,
' μπορούμε να χρησιμοποιήσουμε κάτι όπως το παρακάτω:
'  xArgument = Replace("C:\" & VarΔιαδρομή &  "\","\\", "\")
End Sub

Ελέγχει αν υπάρχει διαδρομή ενός φακέλου.
Αν δεν υπάρχει ή διαδρομή, η παραπάνω συνάρτηση θα την δημιουργήσει
εφ όσον βέβαια το επιτρέπουν οι ρυθμίσεις δικαιώματων πρόσβασης του τρέχοντος λογαριασμού Windows.

Φιλικά

Τάσος