Thierry The Best !

Set objDialog = CreateObject("UserAccounts.CommonDialog")    
objDialog.Filter = "VBScript Scripts|*.vbs|All Files|*.*"  
objDialog.FilterIndex = 1  
objDialog.InitialDir = "C:Scripts"  
intResult = objDialog.ShowOpen     
If intResult = 0 Then      
Wscript.Quit  Else      
Wscript.Echo objDialog.FileName  
End If  

Save un fichier avec DialogBox :

Set objDialog = CreateObject("SAFRCFileDlg.FileSave")    
objDialog.FileName = "C:ScriptsScript1.vbs"  
objDialog.FileType = "VBScript Script"  
intReturn = objDialog.OpenFileSaveDlg    
If intReturn Then      
Set objFSO = CreateObject("Scripting.FileSystemObject")      
Set objFile = objFSO.CreateTextFile(objDialog.FileName)      
objFile.WriteLine Date      
objFile.Close  Else      
Wscript.Quit  End If