Bonjour,
Le but est d'utiliser la fonction qui permet d'ouvrir la boîte de dialogue
"Ouvrir un fichier" pour que je puisse basculer ce dernier sur le serveur de
mon client.
Si vous connaissez la DLL Vista qui permet de le faire je suis preneuse.
Sinon, j'ai détourné le problème en inscrivant la dll "safrcdlg.dll" de XP,
sous Vista.
Mon code VBScript est le suivant :
***********************************************
Set objDialog = CreateObject("SAFRCFileDlg.FileOpen")
Ret = objDialog.OpenFileOpenDlg
WScript.Echo Ret, objDialog.FileName
***********************************************
Et ça marche nickel !
"David Sebban [MS]" a écrit :
> http://blogs.msdn.com/gstemp/archive.../17/74868.aspx
> This dialog box is actually used in the User Accounts control panel
> (Nusrmgr.cpl) found in Windows XP (and if you’re wondering, yes, that means
> that it only works under Windows XP)
>
> Donc ce n'est pas que cette fonction ne marche plus, c'est qu'elle n'existe
> pas dans Windows Vista.
>
> Quel est le but de votre script ?
>
> --
> David [MS]
>
> "ProgiCL" <ProgiCL@discussions.microsoft.com> a écrit dans le message de
> news:966604E1-D3EB-4384-95A2-F3474D6039CB@microsoft.com...
> > Bonjour,
> > j'utilise ce code dans un de mes projets pour un intranet :
> > *************************************************
> > Set objDialog = CreateObject("UserAccounts.CommonDialog")
> >
> > objDialog.Filter = "All Files|*.*"
> > objDialog.InitialDir = "C:\"
> > intResult = objDialog.ShowOpen
> >
> > If intResult = 0 Then
> > Wscript.Quit
> > Else
> > Wscript.Echo objDialog.FileName
> > End If
> > ********************************************
> >
> > Nous projetons de basculer sur Vista, mais sur Vista, ça ne fonctionne
> > plus... Auriez vous une alternative car il me paraît difficile de dire au
> > client que leur Intranet n'est pas évolutif....
> > Par avance, merci.
>
Linear Mode
