Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 10:36:41

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : ENREGISTRER UN LISTVIEW POUR TOUJOURS par jack

LIRE DANS UN FICHIER CSV DE 170MO AVEC ACCESS par mmmxtina

VBA EXCEL : GéNéRER UN TABLEAU VIERGE SOUS WORD par johan3240

RE : [DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par jack

+ de logiciels à télécharger

1 465 080 membres
93 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 069 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UN FICHIER EST-IL OUVERT ?

Information sur la source

Catégorie :Fichier / Disque Niveau : Débutant Date de création : 15/10/2002 Date de mise à jour : 15/10/2002 06:12:20 Vu : 2 343

Auteur : Hobby

Site perso

Ecrire un message privé

Note :

10,00 / 10

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

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

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

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