2 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
13 juin 2009 à 08:11
13 juin 2009 à 08:11
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)
