Function CountLines(sFile)
REM =====================================
REM = Compte le nb de lignes d'un fichier
REM =====================================
On Error Resume Next
Dim t
t = Split(FileReadAll(sFile))
CountLines = UBound(Split(t, vbCrLf))+1
End Function
Function FileSize(sFile)
REM =====================
REM = Taille d'un fichier
REM =====================
On Error Resume Next
FileSize = CreateObject("Scripting.FileSystemObject").GetFile(sFile).Size
End Function
Function FileReadAll(sFile)
REM ========================================
REM = Renvoie le contenu complet d'un fichier texte
REM ========================================
On Error Resume Next
Dim f, oFSOstf
Set oFSOstf = CreateObject("Scripting.FileSystemObject")
Set f = oFSOstf.OpenTextFile(sFile)
If Err Then
Msgbox "Erreur de lecture du fichier " & sFile & vbCrLf & "Fin du programme."
WScript.Quit(0)
End If
FileReadAll = f.ReadAll
Set f = Nothing
Set oFSOstf = Nothing
End Function
Sub SaveToFile (sTexte, sFile)
REM ========================================
REM = Sauvegarde un texte dans un fichier
REM ========================================
Dim oFSO, f1
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set f1 = oFSO.CreateTextFile(sFile)
f1.Write sTexte
f1.Close
Set f1 = Nothing
Set oFSO = Nothing
End Sub