Microsoft Windows Vista Community Forums - Vistaheads
Recommended Download



Welcome to the Microsoft Windows Vista Community Forums - Vistaheads, YOUR Largest Resource for Windows Vista related information.

You are currently viewing our boards as a guest which gives you limited access to view most discussions and access our other features. By joining our free community you will have access to post topics, communicate privately with other members (PM), respond to polls, upload content and access many other special features. Registration is fast, simple and absolutely free so , join our community today!

If you have any problems with the registration process or your account login, please contact us.

Driver Scanner

Fonction VBScript

microsoft.public.fr.windows.vista.programmation






Speedup My PC
Reply
  #1 (permalink)  
Old 04-16-2007
ProgiCL
 

Posts: n/a
Fonction VBScript
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.
Reply With Quote
Sponsored Links
  #2 (permalink)  
Old 04-18-2007
David Sebban [MS]
 

Posts: n/a
Re: Fonction VBScript
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.


Reply With Quote
  #3 (permalink)  
Old 04-18-2007
ProgiCL
 

Posts: n/a
Re: Fonction VBScript
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.

>

Reply With Quote
Reply


Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off

Similar Threads
Thread Thread Starter Forum Replies Last Post
Fonction télécopie dans Vista bonepome microsoft.public.fr.windows.vista.installation 3 06-11-2007 18:58
Re: L'uac en fonction mais sans les popup, une astuce P@py.Net [MS-MVP] microsoft.public.fr.windows.vista.general 1 05-27-2007 16:36
Re: L'uac en fonction mais sans les popup, une astuce Pierre TORRIS microsoft.public.fr.windows.vista.general 0 05-27-2007 14:30
Re: L'uac en fonction mais sans les popup, une astuce P@py.Net [MS-MVP] microsoft.public.fr.windows.vista.general 0 05-27-2007 13:30
Vbscript ! J. K. microsoft.public.fr.windows.vista.installation 3 04-08-2007 21:57




All times are GMT +1. The time now is 22:27.




Driver Scanner - Free Scan Now

Vistaheads.com is part of the Heads Network. See also XPHeads.com , Win7Heads.com and Win8Heads.com.


Design by Vjacheslav Trushkin for phpBBStyles.com.
Powered by vBulletin® Version 3.6.7
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
Search Engine Optimization by vBSEO 3.6.0 RC 2

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120