Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
private sub MiseAjour
Listbox1.Items.Clear()
Dim sFiles() As String
Dim nbfiles As Integer
Dim i As Integer
sFiles = Directory.GetFiles(Chemin)
nbfiles = Directory.GetFiles(Chemin).Length()
For i = 0 To nbfiles - 1
Dim pathfile As String = sFiles(i)
Dim NomFichier As String = pathfile.Remove(0, InStrRev(pathfile, "\", -1))
Dim x As Integer = NomFichier.Length - 4
Dim fichier As String = NomFichier.Remove(x, 4)
Listbox1.Items.Add(fichier)
Next
Dim Chaine As String
Dim Ar(15) As String
Dim ligne As String
Dim i As Integer
Dim selection As String
selection = Listbox1.SelectedItem
Dim sr As New StreamReader(Chemin & "\" & selection & ".txt")
'Do Until sr.Peek = -1
i = 1
Do Until i = 15
ligne = sr.ReadLine()
Ar(i) = ligne
i = i + 1
Loop
sr.Close()
bo = UCase(Ar(2))
bi = StrConv(Ar(3), vbProperCase)
bu = Ar(7)
My.Computer.FileSystem.RenameFile(Chemin & "\" & Listbox1.SelectedItem & ".txt",
bo & " " & bi & " " & bu & ".txt")
My.Computer.FileSystem.RenameFile("C:\test.txt", "éèàôï.txt")
Dim sr As New StreamReader(CheminHprim & "\" & selection & ".txt", System.Text.Encoding.Default)