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

Liste des fichiers en cours d'utilisation sur un serveur de fichiers   



L'auteur

Thierry
France France
Membre Simple
# 0000000016
enregistré le 13/10/2004

53 ans
PERRETIER Thierry
92800 PUTEAUX
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation

Liste des fichiers en cours d'utilisation sur un serveur de fichiers
# 0000000262
ajouté le 30/11/2005 20:31:02 et modifié le 07/12/2005
consulté 9992 fois
Niveau débutant

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

Description

Pour plus d'informations : http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adsi/adsi/iadsresource.asp

Pour fermer un fichier : oServer.resources.remove(oRes.Name)
(NB : ne semble fonctionner que sur Windows Server)

Code source :
cServerName = GetEnv("COMPUTERNAME")
oServer = GetObject("WinNT://"+cServerName+"/LanmanServer")
CREATE CURSOR Fichiers_ouverts (utilisateur c(30), fichier c(100))
FOR EACH oRes In oServer.resources
     INSERT INTO Fichiers_ouverts VALUES (oRes.user ,oRes.path)
ENDFOR
GO TOP
BROWSE nowait
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