cs_Tropic
Messages postés90Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention 1 février 2011
-
6 avril 2005 à 08:27
mbodjsystem
Messages postés26Date d'inscriptionjeudi 17 novembre 2005StatutMembreDernière intervention 9 juillet 2008
-
8 déc. 2008 à 20:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
mbodjsystem
Messages postés26Date d'inscriptionjeudi 17 novembre 2005StatutMembreDernière intervention 9 juillet 2008 8 déc. 2008 à 20:29
Private Declare Function CloseHandle Lib "Kernel32.dll" (ByVal Handle As Long) As Long
mbodjsystem
Messages postés26Date d'inscriptionjeudi 17 novembre 2005StatutMembreDernière intervention 9 juillet 2008 8 déc. 2008 à 20:19
Bonsoir,
la fonction CloseHandle(hFile) n'a pas été définie !
raymondub
Messages postés8Date d'inscriptionmercredi 18 décembre 2002StatutMembreDernière intervention21 janvier 2023 13 sept. 2006 à 14:50
super Cool
mais comment faire pour savoir QUEL utilisateur utilise actuellement ce fichier ?
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 11 nov. 2005 à 09:58
ATTENTION, certains progs utilisant un mdb dont le format est plus ancient que le Mdac présent sur le système laisseront le ldb sur le disque à la fermeture, on ne peut donc pas se fier à cette méthode.
Tenter l'obtention d'un handle exclusif par CreateFile est de loin plus sure.
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 11 nov. 2005 à 08:54
Comme ceci par exemple :
Public Function IsFileOpen(ByVal NomFichier As String)
8 déc. 2008 à 20:29
8 déc. 2008 à 20:19
la fonction CloseHandle(hFile) n'a pas été définie !
13 sept. 2006 à 14:50
mais comment faire pour savoir QUEL utilisateur utilise actuellement ce fichier ?
11 nov. 2005 à 09:58
Tenter l'obtention d'un handle exclusif par CreateFile est de loin plus sure.
11 nov. 2005 à 08:54
Public Function IsFileOpen(ByVal NomFichier As String)
NomFichier = Left$(NomFichier,Len(NomFichier)-3) & "ldb"
IsFileOpen=(Dir(NomFichier)<>"")
End Function
7 avril 2005 à 09:49
6 avril 2005 à 08:27
;-)