BLOQUER/DEBLOQUER UN FICHIER NTFS

Signaler
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
-
Messages postés
109
Date d'inscription
dimanche 27 juillet 2008
Statut
Membre
Dernière intervention
2 février 2012
-
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

Messages postés
109
Date d'inscription
dimanche 27 juillet 2008
Statut
Membre
Dernière intervention
2 février 2012
3
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!)
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
candyraton> Haha ouai ça faisait longtemps...
en même temps je crois que c'est l'une des plus courte :p
Messages postés
109
Date d'inscription
dimanche 27 juillet 2008
Statut
Membre
Dernière intervention
2 février 2012
3
Une source D'EB!, - champagne -
Messages postés
21041
Date d'inscription
jeudi 23 janvier 2003
Statut
Modérateur
Dernière intervention
21 août 2019
26
FileUnBlock() peut se réduire en:

Private Function FileUnBlock(ByRef FileName As String) As Boolean
FileUnBlock = DeleteFile("FileName & ":Zone.Identifier")
End Function