A voir également:
- Vb6 freefile
- Vb6 - Télécharger - Divers Utilitaires
- Split vb6 - Forum VB / VBA
- Vb6 listbox ✓ - Forum VB / VBA
- Msflexgrid vb6 - Forum VB / VBA
- Timer vb6 - Forum VB / VBA
2 réponses
Bonjour,
La fonction freefile attribut un numéro libre pour l'ouverture d'un fichier.
;o)
La fonction freefile attribut un numéro libre pour l'ouverture d'un fichier.
Function WriteFile(Byval pFullPath As String, Byval chaine As String) As Boolean
Dim fp As Interger
On Error Resume Next
fp = FreeFile
Open pFullPath For Input As #fp
Print #fp, chaine
Close #fp
If Err.Number <> 0 Then
WriteFile = False
Else
WriteFile = True
End If
End Function
;o)