Discussion :

[vijeo]

Bonjour,
j'ai un petit soucis avec le code ci dessous. Si mon fichier n'existe pas je le crée mais des que je tente d'ecrire quelque chose dedans j'ai le message suivant

Message "The process cannot access the file 'C:\mulu.csv' because it is being used by another process."

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
18
19
20
21
22
23
24
25
26
27
Try
            'Test si le fichier existe
            If Not File.Exists(FileName.NomFichierComplet) Then
                File.Create(FileName.NomFichierComplet)
                Header = FileName.NomFichier & vbCrLf
                Header = Header & Format(Now, "dd-mm-yyyy").ToString & vbCrLf
                newFile = True
            End If
            Sw = New StreamWriter(FileName.NomFichierComplet, True)
            If newFile Then Sw.WriteLine(Header)
            Dim NumBit As Integer = AdrBase
            Dim BitValue As Byte = 0
            For i As Integer = 0 To DataBits.Length - 1
                BitValue = DataBits(i)
                For BitPos As Integer = 0 To 7
                    LigneCSV = "%M" & NumBit & ";" & Str(BitValue And 1)
                    BitValue = BitValue >> 1
                    Sw.WriteLine(LigneCSV)
                         NumBit = NumBit + 1
                    If NumBit >= NbrBits Then Exit For
                Next
            Next
        Catch ex As Exception
            'Gestion des erreurs
        Finally
            Sw.Close()
        End Try

je pense que ce probleme est connu , mais je trouve pas la solution
Pouvez me dire ou trouver la solution ?
@+ Vijeo

[neptune]

Oui, c'est nomal. File.Create te retourne un FileStream pour lire ou écrire dans le fichier, donc il est déjà ouvert.

[vijeo]

merci pour la reponse, je viens de trouver une solution

Code :

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

1
2
3
4
5
6
7
8
If Not File.Exists(FileName.NomFichierComplet) Then
                Dim FileStream As Stream = Nothing
                FileStream = File.Create(FileName.NomFichierComplet)
                FileStream.Close()
                Header = "Nom du fichier : " & FileName.NomFichier & vbCrLf
                Header = Header & "Date : " & Format(Now, "dd-mm-yyyy").ToString & vbCrLf
                newFile = True
            End If

ça marche , mais sur que cela soit la meilleur des methodes

@+ Vijeo

[neptune]

Tu devrais remanier la logique de ton programme, ne trouves tu pas idiot d'ouvrir le fichier pour le créer s'il n'existe pas, de le fermer et de le réouvrir plus tard?

[vijeo]

bah si tu as une autre solution je suis preneur car j'ai certainement moins de competence que toi la dessus.
@ Vijeo.

[vijeo]

ne voyant pas de réponse venir, j'ai trouvé cette solution qui est plus 'inteligente'

Code :

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

1
2
3
4
5
6
7
8
9
10
Try
            'Test si le fichier existe
            If Not File.Exists(FileName.NomFichierComplet) Then
                Sw = File.CreateText(FileName.NomFichierComplet)
                Header = "Nom du fichier : " & FileName.NomFichier & vbCrLf
                Header = Header & "Date : " & Format(Now, "dd-mm-yyyy").ToString & vbCrLf
                newFile = True
            Else
                Sw = New StreamWriter(FileName.NomFichierComplet, True)
            End If

@+ Vijeo