BLOQUER/DEBLOQUER UN FICHIER NTFS

BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 août 2019 - 11 déc. 2008 à 17:46
cs_candyraton Messages postés 109 Date d'inscription dimanche 27 juillet 2008 Statut Membre Dernière intervention 2 février 2012 - 20 déc. 2008 à 09:26
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/48687-bloquer-debloquer-un-fichier-ntfs

cs_candyraton Messages postés 109 Date d'inscription dimanche 27 juillet 2008 Statut Membre Dernière intervention 2 février 2012 3
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és 4525 Date d'inscription dimanche 29 septembre 2002 Statut Modérateur Dernière intervention 22 avril 2019 9
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és 109 Date d'inscription dimanche 27 juillet 2008 Statut Membre Dernière intervention 2 février 2012 3
19 déc. 2008 à 11:28
Une source D'EB!, - champagne -
BruNews Messages postés 21040 Date d'inscription jeudi 23 janvier 2003 Statut Modérateur Dernière intervention 21 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
Rejoignez-nous