Discussion :

[f_abibi]

Bonjour,
Je cherche à tester si un fichier est utilisé dans mon code en VB.net :

[abelman]

Bonjour,

Il faut chercher à l'ouvrir en mode exclusif. Si il est en cours d'utilisation, il y aura une exception??

[f_abibi]

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

[karami]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[f_abibi]

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

[karami]

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

C'est quoi le msg d'erreure?

[neguib]

tu fais comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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

[f_abibi]

Merci pour l'aide.

[karami]

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

Je préfère le C#

[neguib]

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...