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)
