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

Découvrez les noms at le chemin des dossiers spéciaux de votre ordinateur   



L'auteur

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

Gagnon Mike
Pointe Cla H9R 3K8
de la société Carver Technologies Inc.
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Windows Scripting

Découvrez les noms at le chemin des dossiers spéciaux de votre ordinateur
# 0000000141
ajouté le 03/02/2005 14:45:08 et modifié le 03/02/2005
consulté 7535 fois
Niveau initié

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

Description

Voici 2 techniques pour décourvrir le chemin des dossiers spéciaux sur un ordinateur. Ceux-ci requiert Windows Scripting 5.x.

Code source :
&& Solutions plus complète avec Shell.application

On Error *
Clear
Create Cursor moncurseur (dossier c(200))
loShell = Createobject("Shell.Application")
For i = 1 To 59
  loFolder = loShell.Namespace(i)
  loFolderItem = loFolder.Self
  Insert Into moncurseur (dossier) Values (loFolderItem.Name + ": " + loFolderItem.Path)
Endfor
Browse Norm

&& Solution plus restreinte avec WScript.Shell

Clear
On Error
CREATE CURSOR moncurseur (dossier c(80))
oShell = Createobject('WScript.Shell')
For i = 1 To 17
  INSERT INTO moncurseur (dossier) VALUES (oShell.SpecialFolders(i))
ENDFOR
BROWSE norm

Commentaires
Aucun commentaire enregistré ...

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