[gianniskar]

Βρηκα την μιση λυση .Εχω τον κωδικα αυτον

Option Explicit


Const strParentFolder As String = "C:\"
Public Function MakeNameFolder() As String
    Dim strName As String
    
    If Len(Me.ΟΝΟΜΑ) * Len(Me.ΕΠΙΘΕΤΟ) Then
        strName = Replace(Me.ΟΝΟΜΑ, " ", "_") & "_" & _
                  Replace(Me.ΕΠΙΘΕΤΟ, " ", "_")

        MakeNameFolder = strParentFolder & strName
    End If
End Function
Private Sub cmdCreateFolder_Click()
     Dim strNewFolder As String

    On Error GoTo err_Hander

    strNewFolder = MakeNameFolder
    If strNewFolder <> "" Then
        If Dir(strNewFolder, vbDirectory) = "" Then
            MkDir strNewFolder
            MsgBox "Δημιουργήθηκε φάκελος" & vbCrLf & strNewFolder
        Else
            MsgBox "Ο φάκελος υπάρχει" & vbCrLf & strNewFolder
        End If
    Else
        MsgBox "Υπάρχουν κενά πεδία"
    End If
    Exit Sub
err_Hander:
    MsgBox "Error #" & Err.Number & vbCrLf & Err.Description
End Sub
Private Sub cmdMyButton_Click()
    Dim strFolder As String
    
    strFolder = MakeNameFolder
    If strFolder <> "" Then
        If Dir(strFolder, vbDirectory) = "" Then
            MsgBox "Ο φάκελος δεν υπάρχει" & vbCrLf & strFolder
        Else
            Shell "EXPLORER.EXE" & " " & Chr(34) & strFolder & Chr(34), vbNormalFocus
        End If
    Else
        MsgBox "Υπάρχουν κενά πεδία"
    End If
End Sub

Mε βαση τον κωδικα αυτον μπορει να δημιουργειται και ενας φακελος στον C:\ και μετα να δημιουργειται ο φακελος με ΟΝΟΜΑ-ΕΠΙΘΕΤΟ .Το αποτελεσμα δηλαδη να ειναι c:\test\ΟΝΟΜΑ_ΕΠΙΘΕΤΟ