Dim ligne, Resultat As String Dim i As Integer Resultat = "" ligne = "" For i = 0 To listView.Items.Count - 1 ligne = listView.Items.Item(i).SubItems(0).Text & ";" & listView.Items.Item(i).SubItems(2).Text Resultat = Resultat & Chr(13) & ligne ligne = "" Next File.WriteAllText("C:\WINDOWS\system32\drivers\etc\hosts", Resultat)
Dim PCs As String = "" For Each PC In ListView1.Items PCs &= PC & Environment.NewLine Next System.IO.File.WriteAllText("c:\windows\system32\drivers\etc\hosts", PCs)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim PCs As String = "" For Each columnHeader1 In ListView1.Items PCs &= columnHeader1 & Environment.NewLine Next System.IO.File.WriteAllText("c:\windows\system32\drivers\etc\hosts", PCs)