[VBS ou C] Boite de dialogue Liste de fichier/dossier

Option Explicit

WScript.Echo BrowseFolder^( "My Computer", False ^)

Function BrowseFolder^( myStartLocation, blnSimpleDialog ^)
   Const MY_COMPUTER  = ^&H11^&
   Const WINDOW_HANDLE = 0

   Dim numOptions, objFolder, objFolderItem
   Dim objPath, objShell, strPath, strPrompt

   strPrompt = "Où voulez vous enregistrer le fichier:"
   If blnSimpleDialog = True Then
      numOptions = 0
   Else
      numOptions = ^&H10^&
   End If
   
   Set objShell = CreateObject^( "Shell.Application" ^)

   If UCase^( myStartLocation ^) = "%userprofile%" Then
      Set objFolder = objShell.Namespace^( MY_COMPUTER ^)
      Set objFolderItem = objFolder.Self
      strPath = objFolderItem.Path
   Else
      strPath = myStartLocation
   End If

   Set objFolder = objShell.BrowseForFolder^( WINDOW_HANDLE, strPrompt, _
                                             numOptions, strPath ^)
   If objFolder Is Nothing Then
      BrowseFolder = ""
      Exit Function
   End If

   Set objFolderItem = objFolder.Self
   objPath = objFolderItem.Path

   BrowseFolder = objPath
End Function