Dim sFolder As String
 
With sevText1.FolderDlg
  .InitDir = "d:\temp"
  .NewFolderButton = False
  .Prompt = "Test"
  sFolder = .Show
  If Len(sFolder) > 0 Then
    MsgBox "Ordner: " & sFolder
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de