Set oArgs=WScript.Arguments
Dim i,repSource,RepDesti,fso
'msgbox "parcours"
For i=0 To oArgs.Count-1
	repSource = oArgs(i)
Next
RepDesti = SelectFolder("")
set fso = wscript.CreateObject("Scripting.FileSystemObject") 
if RepSource <> "" and len(RepDesti)>4 then fso.copyfolder repSource,RepDesti




Function SelectFolder( myStartFolder )
'https://www.robvanderwoude.com/vbstech_ui_selectfolder.php
' This function opens a "Select Folder" dialog and will
' return the fully qualified path of the selected folder
' Argument:
'     myStartFolder    [string]    the root folder where you can start browsing;
'                                  if an empty string is used, browsing starts
'                                  on the local computer
' Returns:
' A string containing the fully qualified path of the selected folder


    ' Standard housekeeping
    Dim objFolder, objItem, objShell
    
    ' Custom error handling
    On Error Resume Next
    SelectFolder = vbNull

    ' Create a dialog object
    Set objShell  = CreateObject( "Shell.Application" )
    Set objFolder = objShell.BrowseForFolder( 0, "Selection du Dossier de Destination", 0, myStartFolder )

    ' Return the path of the selected folder
    If IsObject( objfolder ) Then SelectFolder = objFolder.Self.Path

    ' Standard housekeeping
    Set objFolder = Nothing
    Set objshell  = Nothing
    On Error Goto 0
End Function