[Tasos]

Καλημέρα Χρήστο!

Σε μια λειτουργική μονάδα πέρασε τον παρακάτω κώδικα:

Option Explicit

Private Const MyPC = 16&
Private Const ShOptions = 65&

Public Function FolderBrowserDialog() As String
    Dim oShell As Object
    Dim oFolder As Object
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder( _
            0, "Επιλέξτε φάκελο ..." & vbLf, ShOptions, MyPC)
    If Not oFolder Is Nothing Then
        FolderBrowserDialog = oFolder.Self.Path
    End If
    Set oFolder = Nothing
    Set oShell = Nothing
End Function

Και στη φόρμα:

Private Sub Test()
    Dim thePath As String
StartHere:
    thePath = FolderBrowserDialog
    If thePath <> vbNullString Then
        If Left(thePath, 2) = "::" Then
            MsgBox "Παρακαλώ επιλέξτε μια έγκυρη διαδρομή!", vbExclamation, "Προσοχή!"
            GoTo StartHere
        End If
        If Right(thePath, 1) <> "\" Then thePath = thePath & "\"
        MsgBox thePath
    End If
End Sub

Καλή συνέχεια!

Τάσος