ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment forcer "Open with" (ouvrir avec) avec Windows Scripting   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Windows Scripting

Comment forcer "Open with" (ouvrir avec) avec Windows Scripting
# 0000000182
ajouté le 29/04/2005 17:09:51 et modifié le 29/04/2005
consulté 5058 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0
VFP 6.0
VFP 5.0

Description

Cette fonction n'a pas été tester avec la version francaise de windows.

Code source :
lcfile='test.bak'

oShell = CreateObject("WScript.Shell")
oShell.Run("rundll32.exe shell32.dll, OpenAs_RunDLL " +lcfile)
WAIT WINDOW TIMEOUT 1.0 ""
IF oShell.AppActivate("Windows")
  oShell.Sendkeys("S~")  && force to open the List
  WAIT WINDOW TIMEOUT 1.0 ""
  IF oShell.AppActivate("Open With")
    ?"OK"
  endif
endif


Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3