[VBS] ouverture boite de dialogue selection fichier win7

ouverture boite de dialogue selection fichier win7 [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 06-10-2011 à 13:12:28    

bonjour a tous,
 
j'ai un soucis depuis une migration en Win7
 
dans un script je selectionne un fichier via  
 

Code :
  1. Set objDialog = CreateObject("UserAccounts.CommonDialog" )
  2. objDialog.Filter = "Application|*.bat|All Files|*.*"
  3. objDialog.FilterIndex = 1
  4. objDialog.InitialDir = "c:\softwares\"
  5. intResult = objDialog.ShowOpen


 
mais ca ne fonctionne plus sur windows 7
 
j'ai trouver ca
 

Code :
  1. Set objDialog = CreateObject( "SAFRCFileDlg.FileOpen" )
  2. If objDialog.OpenFileOpenDlg Then
  3.     WScript.Echo "objDialog.FileName = " & objDialog.FileName
  4. End If


 
mais impossible de filtrer et de définir l'emplacement initial
 
pour info j'ai du enregistrer une DLL windows pour que ca fonctionne
 
merci d'avance a ceux qui aurait une solution


---------------
tu te rends compte si on avé pas perdu 1h15 on seré la depuis 1h15 (c) jojo national Paris Dakar 2002...
Reply

Marsh Posté le 06-10-2011 à 13:12:28   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed