[kapetang]

Καλησπέρα

Γιώργο, θα μπορούσες να χρησιμοποιήσεις τον παρακάτω κώδικα:

Private Sub cmdCreateFolder_Click()
    Dim strBasicFolder As String
    Dim strNewFolder As String

    On Error GoTo err_Hander
    
    'Εδώ ορίζεται ο βασικός φάκελος, όπου θα δημιουργούνται οι νέοι
    strBasicFolder = "C:\Users\Admin\Desktop\"
    
    strNewFolder = Replace(Me.ΟΝΟΜΑΤΕΠΩΝΥΜΟ, " ", "_") & "_" & _
                   Replace(Me.ΕΤΑΙΡΙΑ, " ", "_") & "_" & Me.ΑΦΜ

    strNewFolder = strBasicFolder + strNewFolder
    If Dir(strNewFolder, vbDirectory) = "" Then
        MkDir strNewFolder
        MsgBox "Ο φάκελος Δημιουργήθηκε"
    Else
        MsgBox "Ο φάκελος Υπάρχει"
    End If
    Exit Sub
err_Hander:
    MsgBox "Error #" & Err.Number & vbCrLf & Err.Description
End Sub

Ο κώδικας δεν ελέγχει, αν στα πεδία, που θα αποτελέσουν το όνομα του νέου φακέλου, υπάρχουν μη έγκυροι χαρακτήρες (πχ #, %, &, *, \ ?, |, :, “).

Αν υπάρχουν, θα προκληθεί λάθος και θα εμφανιστεί σχετικό μήνυμα.

Φιλικά/Γιώργος