Bonjour à tous,
J’ai un script qui fonctionne parfaitement bien, mais je voudrai l’améliorer. Le résultat s’affiche dans une message box. Moi je voudrai savoir s’il est possible que le résultat s’inscrive dans fichier Txt

exemple il y a 62 lignes

Merci par avance au forum DVP


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
Dim oFso, oReg, sData, lCount
Const ForReading = 1, sPath = "C:\Users\Windows\Downloads\liste.txt"
Set oReg = New RegExp
Set oFso = CreateObject("Scripting.FileSystemObject")
sData = oFso.OpenTextFile(sPath, ForReading).ReadAll
With oReg
    .Global = True
    .Pattern = "\r\n" 'vbCrLf
    '.Pattern = "\n" ' vbLf, Unix style line-endings
    lCount = .Execute(sData).Count + 1
 
End With
WScript.Echo lCount
Set oFso = Nothing
Set oReg = Nothing