Problème de création de flux FileStream

Version imprimable

Bonjour,

Voici mon problème. Je dois créer un flux FileStream sur un fichier. Je n'ai eu aucun problème jusqu'ici
Code:

1 2 3 myFileStream = New FileStream(completeFilePath, FileMode.Open, FileAccess.ReadWrite, FileShare.None, 1, True)
Ensuite, on m'a demandé la possibilité de créer le fichier au lancement de l'application si il n'existait pas. Donc ici pas de souci non plus :
Code:

1 2 3 4 5 6 7 8 9 10 If Not System.IO.File.Exists(completeFilePath) Then ' Si il n'existe pas, on le créé Try File.CreateText(completeFilePath) Catch ex As IO.IOException Throw End Try myFileStream = New FileStream(completeFilePath, FileMode.Open, FileAccess.ReadWrite, FileShare.None, 1, True)
Mais voila, maintenant le flux ne veut plus se créer ! J'ai utilisé une MsgBox pour afficher l'erreur et voila ce qui est écrit :

Citation:

Le processus ne peut pas accéder au fichier car celui-ci est en cours d'utilisation par un autre processus

Donc je ne vois pas trop ce que je peux faire, et j'aimerais bien avoir vos avis.

Merci pour votre aide

Bonjour,

Il faut penser à fermer le flux de donnée une fois que tu t'en es servit.

Sinon il restera ouvert entre 2 tests, et la deuxième fois il ne pourra pas y accéder car tu ne l'as pas correctement fermer la première fois.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Sub LogErreur(ByVal paramMessage As String)
        'création du répertoire de stockage en fonction de la date du jour
        Dim TraceLogTest As FileStream
        Dim myListener As StreamWriter
        Dim DateErreur As DateTime
 
        Dim current_user As String = Environment.UserName
        Dim repErreur As String = completeFilePath
        Dim fichErreur As String = completeFilePath
        DateErreur = Date.Now
 
        If My.Computer.FileSystem.DirectoryExists(repErreur) Then
            If My.Computer.FileSystem.FileExists(fichErreur) Then
                TraceLogTest = New System.IO.FileStream(fichErreur, IO.FileMode.Append)
            Else
                TraceLogTest = New System.IO.FileStream(fichErreur, IO.FileMode.Create)
            End If
        Else
            My.Computer.FileSystem.CreateDirectory(repErreur)
            TraceLogTest = New System.IO.FileStream(fichErreur, IO.FileMode.OpenOrCreate)
        End If
 
        myListener = New StreamWriter(TraceLogTest)
        myListener.WriteLine(vbCrLf & DateErreur.ToString & vbCrLf)
        myListener.WriteLine(paramMessage)
        myListener.WriteLine(vbCrLf & "--------------------------------------------------------------------------")
 
        'écriture dans le fichier texte
        myListener.Flush()
        'fermeture des flux
        myListener.Close()
        TraceLogTest.Close()
    End Sub

voilà voilà

++

03/02/2010, 16h03
Redouane

Bonjour,

En principe sous Windows, un même fichier ne peut pas être ouvert par deux applications différentes. Les valeurs de FileShare nous permettent de modifier ce partage de fichier :
T'as mentionné FileShare.None qui veut dire qu'il refuse tout partage du fichier avec les autres applications, c'est pourquoi t'a reçu ce genre d'erreur.
Essaye de faire FileShare.Read (Autorise la lecture du fichier par une application tiers.)

Code:

myFileStream = New FileStream(completeFilePath, FileMode.Open, FileAccess.ReadWrite, FileShare.Read, 1, True)

Bonne courage
04/02/2010, 08h59
Jitoubi

Merci pour ces renseignements !
Je vais pouvoir régler mon problème grâce à vous :ccool:

Merci encore !