Function BrowseAndCreate() As String
Dim myDialog As System.Windows.Forms.FolderBrowserDialog = New System.Windows.Forms.FolderBrowserDialog()
myDialog.ShowNewFolderButton = True
myDialog.Description = "Choisir un chemin"
myDialog.RootFolder = Environment.SpecialFolder.DesktopDirectory
If myDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then Return myDialog.SelectedPath
End Function