Un fichier est-il ouvert ?

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 810 fois - Téléchargée 41 fois

Contenu du snippet

Une méthode comme une autre.
Peut être pas très nickel, mais cela fonctionne.
Vos commentaires sont les bienvenues. (Constructif, les autres s'abstenir)

Source / Exemple :


Public Function FileInUse(NomdeFichier as String) As Boolean
    Dim FF As Integer
    On Error GoTo FileOKError
    FileInUse = False
    FF = FreeFile
        Open NomdeFichier For Input Lock Read Write As #FF
        Close #FF
    Exit Function
FileOKError:
  FileInUse = True
End Function

A voir également

Ajouter un commentaire

Commentaires

JeffdeStSEb
Messages postés
4
Date d'inscription
lundi 16 septembre 2002
Statut
Membre
Dernière intervention
14 novembre 2002
-
Grand merci pour cette fonction courte mais efficace !
Bricomix
Messages postés
340
Date d'inscription
vendredi 11 octobre 2002
Statut
Membre
Dernière intervention
14 février 2005
-
Perso j'utilise la commande DIR$ (c'est plus simple, et ca marche).
Cyberdevil
Messages postés
483
Date d'inscription
mardi 10 juillet 2001
Statut
Membre
Dernière intervention
12 juillet 2006
-
Alors la tu m'apprend qqu chose ! Je savais pas que l'on pouvait faire un lock sur un fichier en vb !
Merci bcp et bravo !
cyberdevil

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.