Private Sub Command1_Click()
Dim vsFilePath$, Sg1$
Dim hFile As Integer
vsFilePath = "E:\3r Programmation\VB6 EXEMPLES\Fichier Repertoire Programme\Lire, ecrire\Lire\CHARGER UN FICHIER.txt"
hFile = FreeFile 'On demande un descripteur de fichier libre
Open vsFilePath For Input As #hFile 'On ouvre le fichier en lecture
Sg1 = Input$(LOF(hFile), #hFile) 'Le contenu du fichier est chargé dans 'Sg1'
Close #hFile 'Fermeture du fichier
If InStrB(Sg1, vbCrLf) = 0 Then 'Si notre text ne contient pas de VbCrLf ...
If InStrB(Sg1, vbLf) > 0 Then 'On remplace les VbLf en VbCrLf
Sg1 = Replace(Sg1, vbLf, vbCrLf)
End If
End If
Text1.text = Sg1