[VB.Net] Comment tester si un fichier est en cours d'utilisation ?

Version imprimable

07/07/2006, 11h59
f_abibi

[VB.Net] Comment tester si un fichier est en cours d'utilisation ?

Bonjour,
Je cherche à tester si un fichier est utilisé dans mon code en VB.net8O :
07/07/2006, 12h25
abelman

Bonjour,

Il faut chercher à l'ouvrir en mode exclusif. Si il est en cours d'utilisation, il y aura une exception??
07/07/2006, 13h29
f_abibi

Justement je ne veux pas d'exception
Je veux savoir si le fichier est déjà ouvert avant de l'ouvrir.

Citation:

Envoyé par f_abibi

Justement je ne veux pas d'exception
Je veux savoir si le fichier est déjà ouvert avant de l'ouvrir.

tu fais comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function IsFileOpen(ByVal strFic As String) As Boolean
    Dim fic As Integer
    On Error Resume Next
 
    fic = FreeFile()
    Open strFic For Input Access Read Lock Read Write As fic
 
    If Err.Number = 0 Then
        IsFileOpen = False
        Close fic
    Else
        IsFileOpen = True
    End If
End Function

le "resume next" ignore l'exception.

07/07/2006, 13h47
f_abibi

Cette ligne me pose problème :
Open strFic For Input Access Read Lock Read Write As fic
07/07/2006, 13h51
karami

Citation:

Envoyé par f_abibi

Cette ligne me pose problème :
Open strFic For Input Access Read Lock Read Write As fic

C'est quoi le msg d'erreure?
07/07/2006, 13h53
f_abibi

Elle n'est pas reconnu dans l'éditeur Visual Basic 2005

Citation:

Envoyé par f_abibi

Justement je ne veux pas d'exception
Je veux savoir si le fichier est déjà ouvert avant de l'ouvrir.

Ben justement c'est l'exception qui te permettra de savoir si le fichier est en cours d'utilisation, ceci en utilisant un bloc Try/Catch :roll:
A ma connaissance, il n'y a pas d'autres moyens de gérer celà.

Donc pour ton cas de figure, il suffit de te créer une méthode type
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Imports System Imports System.IO '... Public Shared Function IsOpen(ByVal Filepath As String) As Boolean Dim result As Boolean = False Try 'tenter l'ouverture du fichier en mode exclusif 'fermer le fichier Catch ex As IOException result = True End Try Return result End Function
Bien sûr ici je n'ai pas traité toutes les autres exceptions possibles comme le fichier inexistant etc...

07/07/2006, 14h00
f_abibi

Le message c'est "Open n'est pas déclaré. La fonction d'E/S de fichier est disponible dans l'espace de noms 'Microsoft Visual Basic' "

Citation:

Envoyé par karami

tu fais comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Function IsFileOpen(ByVal strFic As String) As Boolean
    Dim fic As Integer
    On Error Resume Next
 
    fic = FreeFile()
    Open strFic For Input Access Read Lock Read Write As fic
 
    If Err.Number = 0 Then
        IsFileOpen = False
        Close fic
    Else
        IsFileOpen = True
    End If
End Function

le "resume next" ignore l'exception.

:lol: heu karami, il est temps de te mettre au VB.Net :lol:

07/07/2006, 14h04
f_abibi

Merci pour l'aide.
07/07/2006, 14h04
karami

Citation:

Envoyé par neguib

:lol: heu karami, il est temps de te mettre au VB.Net :lol:

Je préfère le C#:mouarf:
07/07/2006, 14h06
neguib

Citation:

Envoyé par karami

Je préfère le C#:mouarf:

ok mais comme tu le vois mon exemple de code est facilement compréhensible pour traduire en C#, éviter au max d'utiliser inutilement la librairie spécifique Microsoft.VisualBasic ;)
07/07/2006, 14h11
karami

Entendu:pingoin2:
07/07/2006, 16h27
abelman

Re,

je suis un peu perdu là :lol: Tu as pris quoi comme code f_alibi alors?

Car le code de Karimi lui aussi génère une exception, sauf qu'il nécrit pas le try catch. En plus c'est beaucoup plus couteux en performance la gestion des erreurs façon VB6 (on error ...)