Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le Kill
puis le recréer???
Cordialement
--
Guy
Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le Kill
puis le recréer???
Cordialement
--
Guy
Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le Kill
puis le recréer???
Cordialement
--
Guy
Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le
Kill puis le recréer???
Cordialement
Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le
Kill puis le recréer???
Cordialement
Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le
Kill puis le recréer???
Cordialement
Guitougui wrote:Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le
Kill puis le recréer???
Cordialement
Hello,
tu peux utiliser cette fonction:
' ----------------------------------------------------------
Function razFile(ByVal szFile As String, _
ByRef errCode As Long, _
ByRef errDescription As String) As Boolean
Dim f As Integer
Dim ret As Boolean
On Error GoTo razFile_err
f = FreeFile
Open szFile For Output As #f
Close #f
ret = True
razFile_end:
razFile = ret
Exit Function
razFile_err:
ret = False
errCode = Err.Number
errDescription = Err.Description
Resume razFile_end
End Function
' ----------------------------------------------------------
Et pour l'utiliser:
Dim szFile As String
Dim errCode As Long, errDesc As String
szFile = "c:truc.ini"
ret = razFile(szFile, errCode, errDesc)
If ret Then
MsgBox "fichier remis à zéro"
Else
MsgBox "erreur lors de l'appel. Raison = " & errCode & _
" Erreur description = " & errDesc
End If
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Guitougui wrote:
Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le
Kill puis le recréer???
Cordialement
Hello,
tu peux utiliser cette fonction:
' ----------------------------------------------------------
Function razFile(ByVal szFile As String, _
ByRef errCode As Long, _
ByRef errDescription As String) As Boolean
Dim f As Integer
Dim ret As Boolean
On Error GoTo razFile_err
f = FreeFile
Open szFile For Output As #f
Close #f
ret = True
razFile_end:
razFile = ret
Exit Function
razFile_err:
ret = False
errCode = Err.Number
errDescription = Err.Description
Resume razFile_end
End Function
' ----------------------------------------------------------
Et pour l'utiliser:
Dim szFile As String
Dim errCode As Long, errDesc As String
szFile = "c:truc.ini"
ret = razFile(szFile, errCode, errDesc)
If ret Then
MsgBox "fichier remis à zéro"
Else
MsgBox "erreur lors de l'appel. Raison = " & errCode & _
" Erreur description = " & errDesc
End If
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
FAQ VB: http://faq.vb.free.fr/
Guitougui wrote:Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le
Kill puis le recréer???
Cordialement
Hello,
tu peux utiliser cette fonction:
' ----------------------------------------------------------
Function razFile(ByVal szFile As String, _
ByRef errCode As Long, _
ByRef errDescription As String) As Boolean
Dim f As Integer
Dim ret As Boolean
On Error GoTo razFile_err
f = FreeFile
Open szFile For Output As #f
Close #f
ret = True
razFile_end:
razFile = ret
Exit Function
razFile_err:
ret = False
errCode = Err.Number
errDescription = Err.Description
Resume razFile_end
End Function
' ----------------------------------------------------------
Et pour l'utiliser:
Dim szFile As String
Dim errCode As Long, errDesc As String
szFile = "c:truc.ini"
ret = razFile(szFile, errCode, errDesc)
If ret Then
MsgBox "fichier remis à zéro"
Else
MsgBox "erreur lors de l'appel. Raison = " & errCode & _
" Erreur description = " & errDesc
End If
Cordialement;
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
mailto: remove '_no_spam_' ;
FAQ VB: http://faq.vb.free.fr/
Eh, on ne copie pas, j'ai déjà indiqué de faire un output à vide... Si tu
trouves rien d'autre de plus compliqué, merci de laisser ma réponse sans
copier l'idée...
Que je sache, quand tu réponds, je ne réponds pas en dessous en reprenant
ton idée avec variante, merci de faire pareil...
Tu gères les erreurs, quelles erreurs, t'a déjà vu une erreur sur un
toi? L'output écrase si existe, et créé si inexistant, pour avoir une
faut ne pas avoir de droit (ben là on n'a pas à faire un tel programme
ce cas), ou encore enlever le disque dur, ou couper le courant, enfin,
les chances d'erreurs sont proche de 0 !
Sub efface()
Dim p As long
ChDrive App.Path
ChDir App.Path
p = FreeFile
Open "nomFichier" For Output As p
Close p
End Sub
Ça c'est du basic, ce que tu as écrit c'est du "C", il n'y a pas de
dans le Basic (vois Qbasic, GWbasic et autres), si le Basic (visuel ici),
reconnaît et accepte la rédaction du C, c'est uniquement pour ne pas
dérouter ceux qui viendraient d'un autre langage, mais le standard c'est
"BASIC", on doit écrire en BASIC si on peut !
Pourquoi faire compliqué, quand on peut faire simple...
--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
--------------------------------------------------------------------------
"Jean-marc" a écrit dans le
de news: 4648b919$0$13866$
> Guitougui wrote:
>> Bonjour
>>
>> Comment pourrait-on supprimer le contenu d'un fichier INI sans le
>> Kill puis le recréer???
>>
>> Cordialement
>
> Hello,
>
> tu peux utiliser cette fonction:
>
> ' ----------------------------------------------------------
>
> Function razFile(ByVal szFile As String, _
> ByRef errCode As Long, _
> ByRef errDescription As String) As Boolean
> Dim f As Integer
> Dim ret As Boolean
>
> On Error GoTo razFile_err
>
> f = FreeFile
> Open szFile For Output As #f
> Close #f
> ret = True
>
> razFile_end:
> razFile = ret
> Exit Function
>
> razFile_err:
> ret = False
> errCode = Err.Number
> errDescription = Err.Description
> Resume razFile_end
> End Function
>
> ' ----------------------------------------------------------
>
> Et pour l'utiliser:
>
> Dim szFile As String
> Dim errCode As Long, errDesc As String
>
> szFile = "c:truc.ini"
> ret = razFile(szFile, errCode, errDesc)
> If ret Then
> MsgBox "fichier remis à zéro"
> Else
> MsgBox "erreur lors de l'appel. Raison = " & errCode & _
> " Erreur description = " & errDesc
> End If
>
> Cordialement;
>
>
> --
> Jean-marc Noury (jean_marc_n2)
> Microsoft MVP - Visual Basic
> mailto: remove '_no_spam_' ;
> FAQ VB: http://faq.vb.free.fr/
>
>
Eh, on ne copie pas, j'ai déjà indiqué de faire un output à vide... Si tu
trouves rien d'autre de plus compliqué, merci de laisser ma réponse sans
copier l'idée...
Que je sache, quand tu réponds, je ne réponds pas en dessous en reprenant
ton idée avec variante, merci de faire pareil...
Tu gères les erreurs, quelles erreurs, t'a déjà vu une erreur sur un
toi? L'output écrase si existe, et créé si inexistant, pour avoir une
faut ne pas avoir de droit (ben là on n'a pas à faire un tel programme
ce cas), ou encore enlever le disque dur, ou couper le courant, enfin,
les chances d'erreurs sont proche de 0 !
Sub efface()
Dim p As long
ChDrive App.Path
ChDir App.Path
p = FreeFile
Open "nomFichier" For Output As p
Close p
End Sub
Ça c'est du basic, ce que tu as écrit c'est du "C", il n'y a pas de
dans le Basic (vois Qbasic, GWbasic et autres), si le Basic (visuel ici),
reconnaît et accepte la rédaction du C, c'est uniquement pour ne pas
dérouter ceux qui viendraient d'un autre langage, mais le standard c'est
"BASIC", on doit écrire en BASIC si on peut !
Pourquoi faire compliqué, quand on peut faire simple...
--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
--------------------------------------------------------------------------
"Jean-marc" <NO_SPAM_jean_marc_n2@yahoo.fr.invalid> a écrit dans le
de news: 4648b919$0$13866$ba620e4c@news.skynet.be...
> Guitougui wrote:
>> Bonjour
>>
>> Comment pourrait-on supprimer le contenu d'un fichier INI sans le
>> Kill puis le recréer???
>>
>> Cordialement
>
> Hello,
>
> tu peux utiliser cette fonction:
>
> ' ----------------------------------------------------------
>
> Function razFile(ByVal szFile As String, _
> ByRef errCode As Long, _
> ByRef errDescription As String) As Boolean
> Dim f As Integer
> Dim ret As Boolean
>
> On Error GoTo razFile_err
>
> f = FreeFile
> Open szFile For Output As #f
> Close #f
> ret = True
>
> razFile_end:
> razFile = ret
> Exit Function
>
> razFile_err:
> ret = False
> errCode = Err.Number
> errDescription = Err.Description
> Resume razFile_end
> End Function
>
> ' ----------------------------------------------------------
>
> Et pour l'utiliser:
>
> Dim szFile As String
> Dim errCode As Long, errDesc As String
>
> szFile = "c:truc.ini"
> ret = razFile(szFile, errCode, errDesc)
> If ret Then
> MsgBox "fichier remis à zéro"
> Else
> MsgBox "erreur lors de l'appel. Raison = " & errCode & _
> " Erreur description = " & errDesc
> End If
>
> Cordialement;
>
>
> --
> Jean-marc Noury (jean_marc_n2)
> Microsoft MVP - Visual Basic
> mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
> FAQ VB: http://faq.vb.free.fr/
>
>
Eh, on ne copie pas, j'ai déjà indiqué de faire un output à vide... Si tu
trouves rien d'autre de plus compliqué, merci de laisser ma réponse sans
copier l'idée...
Que je sache, quand tu réponds, je ne réponds pas en dessous en reprenant
ton idée avec variante, merci de faire pareil...
Tu gères les erreurs, quelles erreurs, t'a déjà vu une erreur sur un
toi? L'output écrase si existe, et créé si inexistant, pour avoir une
faut ne pas avoir de droit (ben là on n'a pas à faire un tel programme
ce cas), ou encore enlever le disque dur, ou couper le courant, enfin,
les chances d'erreurs sont proche de 0 !
Sub efface()
Dim p As long
ChDrive App.Path
ChDir App.Path
p = FreeFile
Open "nomFichier" For Output As p
Close p
End Sub
Ça c'est du basic, ce que tu as écrit c'est du "C", il n'y a pas de
dans le Basic (vois Qbasic, GWbasic et autres), si le Basic (visuel ici),
reconnaît et accepte la rédaction du C, c'est uniquement pour ne pas
dérouter ceux qui viendraient d'un autre langage, mais le standard c'est
"BASIC", on doit écrire en BASIC si on peut !
Pourquoi faire compliqué, quand on peut faire simple...
--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
--------------------------------------------------------------------------
"Jean-marc" a écrit dans le
de news: 4648b919$0$13866$
> Guitougui wrote:
>> Bonjour
>>
>> Comment pourrait-on supprimer le contenu d'un fichier INI sans le
>> Kill puis le recréer???
>>
>> Cordialement
>
> Hello,
>
> tu peux utiliser cette fonction:
>
> ' ----------------------------------------------------------
>
> Function razFile(ByVal szFile As String, _
> ByRef errCode As Long, _
> ByRef errDescription As String) As Boolean
> Dim f As Integer
> Dim ret As Boolean
>
> On Error GoTo razFile_err
>
> f = FreeFile
> Open szFile For Output As #f
> Close #f
> ret = True
>
> razFile_end:
> razFile = ret
> Exit Function
>
> razFile_err:
> ret = False
> errCode = Err.Number
> errDescription = Err.Description
> Resume razFile_end
> End Function
>
> ' ----------------------------------------------------------
>
> Et pour l'utiliser:
>
> Dim szFile As String
> Dim errCode As Long, errDesc As String
>
> szFile = "c:truc.ini"
> ret = razFile(szFile, errCode, errDesc)
> If ret Then
> MsgBox "fichier remis à zéro"
> Else
> MsgBox "erreur lors de l'appel. Raison = " & errCode & _
> " Erreur description = " & errDesc
> End If
>
> Cordialement;
>
>
> --
> Jean-marc Noury (jean_marc_n2)
> Microsoft MVP - Visual Basic
> mailto: remove '_no_spam_' ;
> FAQ VB: http://faq.vb.free.fr/
>
>
Tu ne devais plus me parler, si tu pouvais t'y
tenir !
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Driss HANIB" a écrit
dans le message de news:
| En fait ici on a un exemple concret qui fait
avancer Guitougui..
|
|
| "LE TROLL" <le a écrit dans le
message de
| news:
| > Eh, on ne copie pas, j'ai déjà indiqué de
faire un output à vide... Si tu
| ne
| > trouves rien d'autre de plus compliqué, merci
de laisser ma réponse sans
| en
| > copier l'idée...
| > Que je sache, quand tu réponds, je ne réponds
pas en dessous en reprenant
| > ton idée avec variante, merci de faire
pareil...
| >
| > Tu gères les erreurs, quelles erreurs, t'a
déjà vu une erreur sur un
| output
| > toi? L'output écrase si existe, et créé si
inexistant, pour avoir une
| erreur
| > faut ne pas avoir de droit (ben là on n'a pas
à faire un tel programme
| dans
| > ce cas), ou encore enlever le disque dur, ou
couper le courant, enfin,
| bref,
| > les chances d'erreurs sont proche de 0 !
| >
| >
| > Sub efface()
| > Dim p As long
| > ChDrive App.Path
| > ChDir App.Path
| > p = FreeFile
| > Open "nomFichier" For Output As p
| > Close p
| > End Sub
| >
| >
| > Ça c'est du basic, ce que tu as écrit c'est du
"C", il n'y a pas de
| fonction
| > dans le Basic (vois Qbasic, GWbasic et
autres), si le Basic (visuel ici),
| > reconnaît et accepte la rédaction du C, c'est
uniquement pour ne pas
| > dérouter ceux qui viendraient d'un autre
langage, mais le standard c'est
| > "BASIC", on doit écrire en BASIC si on peut !
| > Pourquoi faire compliqué, quand on peut faire
simple...
| >
| > --
| > Romans, logiciels, email, site personnel
| > http://irolog.free.fr/joe.htm
|
> --------------------------------------------------------------------------
| ----------
| >
| >
| >
| > "Jean-marc"
a écrit
dans le
| message
| > de news:
4648b919$0$13866$
| > > Guitougui wrote:
| > >> Bonjour
| > >>
| > >> Comment pourrait-on supprimer le contenu
d'un fichier INI sans le
| > >> Kill puis le recréer???
| > >>
| > >> Cordialement
| > >
| > > Hello,
| > >
| > > tu peux utiliser cette fonction:
| > >
| > >
' ----------------------------------------------------------
| > >
| > > Function razFile(ByVal szFile As String, _
| > > ByRef errCode As Long, _
| > > ByRef errDescription As
String) As Boolean
| > > Dim f As Integer
| > > Dim ret As Boolean
| > >
| > > On Error GoTo razFile_err
| > >
| > > f = FreeFile
| > > Open szFile For Output As #f
| > > Close #f
| > > ret = True
| > >
| > > razFile_end:
| > > razFile = ret
| > > Exit Function
| > >
| > > razFile_err:
| > > ret = False
| > > errCode = Err.Number
| > > errDescription = Err.Description
| > > Resume razFile_end
| > > End Function
| > >
| > >
' ----------------------------------------------------------
| > >
| > > Et pour l'utiliser:
| > >
| > > Dim szFile As String
| > > Dim errCode As Long, errDesc As String
| > >
| > > szFile = "c:truc.ini"
| > > ret = razFile(szFile, errCode, errDesc)
| > > If ret Then
| > > MsgBox "fichier remis à zéro"
| > > Else
| > > MsgBox "erreur lors de l'appel.
Raison = " & errCode & _
| > > " Erreur description = " &
errDesc
| > > End If
| > >
| > > Cordialement;
| > >
| > >
| > > --
| > > Jean-marc Noury (jean_marc_n2)
| > > Microsoft MVP - Visual Basic
| > > mailto: remove '_no_spam_' ;
| > > FAQ VB: http://faq.vb.free.fr/
| > >
| > >
| >
| >
|
|
Tu ne devais plus me parler, si tu pouvais t'y
tenir !
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Driss HANIB" <dhanib@club-internet.fr> a écrit
dans le message de news:
OCln2i9lHHA.4960@TK2MSFTNGP02.phx.gbl...
| En fait ici on a un exemple concret qui fait
avancer Guitougui..
|
|
| "LE TROLL" <le troll@enfer.fr> a écrit dans le
message de
| news:OhyuhKmlHHA.4900@TK2MSFTNGP05.phx.gbl...
| > Eh, on ne copie pas, j'ai déjà indiqué de
faire un output à vide... Si tu
| ne
| > trouves rien d'autre de plus compliqué, merci
de laisser ma réponse sans
| en
| > copier l'idée...
| > Que je sache, quand tu réponds, je ne réponds
pas en dessous en reprenant
| > ton idée avec variante, merci de faire
pareil...
| >
| > Tu gères les erreurs, quelles erreurs, t'a
déjà vu une erreur sur un
| output
| > toi? L'output écrase si existe, et créé si
inexistant, pour avoir une
| erreur
| > faut ne pas avoir de droit (ben là on n'a pas
à faire un tel programme
| dans
| > ce cas), ou encore enlever le disque dur, ou
couper le courant, enfin,
| bref,
| > les chances d'erreurs sont proche de 0 !
| >
| >
| > Sub efface()
| > Dim p As long
| > ChDrive App.Path
| > ChDir App.Path
| > p = FreeFile
| > Open "nomFichier" For Output As p
| > Close p
| > End Sub
| >
| >
| > Ça c'est du basic, ce que tu as écrit c'est du
"C", il n'y a pas de
| fonction
| > dans le Basic (vois Qbasic, GWbasic et
autres), si le Basic (visuel ici),
| > reconnaît et accepte la rédaction du C, c'est
uniquement pour ne pas
| > dérouter ceux qui viendraient d'un autre
langage, mais le standard c'est
| > "BASIC", on doit écrire en BASIC si on peut !
| > Pourquoi faire compliqué, quand on peut faire
simple...
| >
| > --
| > Romans, logiciels, email, site personnel
| > http://irolog.free.fr/joe.htm
|
> --------------------------------------------------------------------------
| ----------
| >
| >
| >
| > "Jean-marc"
<NO_SPAM_jean_marc_n2@yahoo.fr.invalid> a écrit
dans le
| message
| > de news:
4648b919$0$13866$ba620e4c@news.skynet.be...
| > > Guitougui wrote:
| > >> Bonjour
| > >>
| > >> Comment pourrait-on supprimer le contenu
d'un fichier INI sans le
| > >> Kill puis le recréer???
| > >>
| > >> Cordialement
| > >
| > > Hello,
| > >
| > > tu peux utiliser cette fonction:
| > >
| > >
' ----------------------------------------------------------
| > >
| > > Function razFile(ByVal szFile As String, _
| > > ByRef errCode As Long, _
| > > ByRef errDescription As
String) As Boolean
| > > Dim f As Integer
| > > Dim ret As Boolean
| > >
| > > On Error GoTo razFile_err
| > >
| > > f = FreeFile
| > > Open szFile For Output As #f
| > > Close #f
| > > ret = True
| > >
| > > razFile_end:
| > > razFile = ret
| > > Exit Function
| > >
| > > razFile_err:
| > > ret = False
| > > errCode = Err.Number
| > > errDescription = Err.Description
| > > Resume razFile_end
| > > End Function
| > >
| > >
' ----------------------------------------------------------
| > >
| > > Et pour l'utiliser:
| > >
| > > Dim szFile As String
| > > Dim errCode As Long, errDesc As String
| > >
| > > szFile = "c:truc.ini"
| > > ret = razFile(szFile, errCode, errDesc)
| > > If ret Then
| > > MsgBox "fichier remis à zéro"
| > > Else
| > > MsgBox "erreur lors de l'appel.
Raison = " & errCode & _
| > > " Erreur description = " &
errDesc
| > > End If
| > >
| > > Cordialement;
| > >
| > >
| > > --
| > > Jean-marc Noury (jean_marc_n2)
| > > Microsoft MVP - Visual Basic
| > > mailto: remove '_no_spam_' ;
_no_spam_jean_marc_n2@yahoo.fr
| > > FAQ VB: http://faq.vb.free.fr/
| > >
| > >
| >
| >
|
|
Tu ne devais plus me parler, si tu pouvais t'y
tenir !
--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"Driss HANIB" a écrit
dans le message de news:
| En fait ici on a un exemple concret qui fait
avancer Guitougui..
|
|
| "LE TROLL" <le a écrit dans le
message de
| news:
| > Eh, on ne copie pas, j'ai déjà indiqué de
faire un output à vide... Si tu
| ne
| > trouves rien d'autre de plus compliqué, merci
de laisser ma réponse sans
| en
| > copier l'idée...
| > Que je sache, quand tu réponds, je ne réponds
pas en dessous en reprenant
| > ton idée avec variante, merci de faire
pareil...
| >
| > Tu gères les erreurs, quelles erreurs, t'a
déjà vu une erreur sur un
| output
| > toi? L'output écrase si existe, et créé si
inexistant, pour avoir une
| erreur
| > faut ne pas avoir de droit (ben là on n'a pas
à faire un tel programme
| dans
| > ce cas), ou encore enlever le disque dur, ou
couper le courant, enfin,
| bref,
| > les chances d'erreurs sont proche de 0 !
| >
| >
| > Sub efface()
| > Dim p As long
| > ChDrive App.Path
| > ChDir App.Path
| > p = FreeFile
| > Open "nomFichier" For Output As p
| > Close p
| > End Sub
| >
| >
| > Ça c'est du basic, ce que tu as écrit c'est du
"C", il n'y a pas de
| fonction
| > dans le Basic (vois Qbasic, GWbasic et
autres), si le Basic (visuel ici),
| > reconnaît et accepte la rédaction du C, c'est
uniquement pour ne pas
| > dérouter ceux qui viendraient d'un autre
langage, mais le standard c'est
| > "BASIC", on doit écrire en BASIC si on peut !
| > Pourquoi faire compliqué, quand on peut faire
simple...
| >
| > --
| > Romans, logiciels, email, site personnel
| > http://irolog.free.fr/joe.htm
|
> --------------------------------------------------------------------------
| ----------
| >
| >
| >
| > "Jean-marc"
a écrit
dans le
| message
| > de news:
4648b919$0$13866$
| > > Guitougui wrote:
| > >> Bonjour
| > >>
| > >> Comment pourrait-on supprimer le contenu
d'un fichier INI sans le
| > >> Kill puis le recréer???
| > >>
| > >> Cordialement
| > >
| > > Hello,
| > >
| > > tu peux utiliser cette fonction:
| > >
| > >
' ----------------------------------------------------------
| > >
| > > Function razFile(ByVal szFile As String, _
| > > ByRef errCode As Long, _
| > > ByRef errDescription As
String) As Boolean
| > > Dim f As Integer
| > > Dim ret As Boolean
| > >
| > > On Error GoTo razFile_err
| > >
| > > f = FreeFile
| > > Open szFile For Output As #f
| > > Close #f
| > > ret = True
| > >
| > > razFile_end:
| > > razFile = ret
| > > Exit Function
| > >
| > > razFile_err:
| > > ret = False
| > > errCode = Err.Number
| > > errDescription = Err.Description
| > > Resume razFile_end
| > > End Function
| > >
| > >
' ----------------------------------------------------------
| > >
| > > Et pour l'utiliser:
| > >
| > > Dim szFile As String
| > > Dim errCode As Long, errDesc As String
| > >
| > > szFile = "c:truc.ini"
| > > ret = razFile(szFile, errCode, errDesc)
| > > If ret Then
| > > MsgBox "fichier remis à zéro"
| > > Else
| > > MsgBox "erreur lors de l'appel.
Raison = " & errCode & _
| > > " Erreur description = " &
errDesc
| > > End If
| > >
| > > Cordialement;
| > >
| > >
| > > --
| > > Jean-marc Noury (jean_marc_n2)
| > > Microsoft MVP - Visual Basic
| > > mailto: remove '_no_spam_' ;
| > > FAQ VB: http://faq.vb.free.fr/
| > >
| > >
| >
| >
|
|
Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le Kill
puis le recréer???
Cordialement
--
Guy
Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le Kill
puis le recréer???
Cordialement
--
Guy
Bonjour
Comment pourrait-on supprimer le contenu d'un fichier INI sans le Kill
puis le recréer???
Cordialement
--
Guy