|
|
|
|
Bonjour,
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) «Ce que l'on conçoit bien s'énonce clairement, Et les mots pour le dire arrivent aisément.» Nicolas Boileau |