cs_candyraton
Messages postés109Date d'inscriptiondimanche 27 juillet 2008StatutMembreDernière intervention 2 février 20123 20 déc. 2008 à 09:26
alors: Public sub avec_moderation (optional nbre_bulles as decimal)
if NT = false then bouteillespourleszotressources else aussi
asuivre sub
(finalement, je devrais peut être changer pour poesies.com!)
cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 19 déc. 2008 à 13:45
candyraton> Haha ouai ça faisait longtemps...
en même temps je crois que c'est l'une des plus courte :p
cs_candyraton
Messages postés109Date d'inscriptiondimanche 27 juillet 2008StatutMembreDernière intervention 2 février 20123 19 déc. 2008 à 11:28
Une source D'EB!, - champagne -
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 11 déc. 2008 à 17:46
FileUnBlock() peut se réduire en:
Private Function FileUnBlock(ByRef FileName As String) As Boolean
FileUnBlock = DeleteFile("FileName & ":Zone.Identifier")
End Function
20 déc. 2008 à 09:26
if NT = false then bouteillespourleszotressources else aussi
asuivre sub
(finalement, je devrais peut être changer pour poesies.com!)
19 déc. 2008 à 13:45
en même temps je crois que c'est l'une des plus courte :p
19 déc. 2008 à 11:28
11 déc. 2008 à 17:46
Private Function FileUnBlock(ByRef FileName As String) As Boolean
FileUnBlock = DeleteFile("FileName & ":Zone.Identifier")
End Function