begin process at 2008 05 18 00:35:49
1 174 462 membres
13 nouveaux aujourd'hui
13 975 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UTILITAIRE DE DE-PROTECTION EN ÉCRITURE DE FICHIERS


Information sur la source

Catégorie :Divers Classé sous : utilitaire Niveau : Débutant Date de création : 14/08/2006 Date de mise à jour : 19/08/2006 19:48:32 Vu / téléchargé: 7 615 / 636

Note :
Aucune note

Commentaire sur cette source (8)
Ajouter un commentaire et/ou une note

Description

Utilitaire pour enlevevr la protection en écriture de fichiers contenant des sous-fichiers et de tout leurs documents.
Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

18 août 2006 01:01:18 :
Modifé pour restaurer l'attribut "archive". Découvert que la fonction Dir ne liste pas les documents avec l'attribut "HDDEN".
18 août 2006 18:53:00 :
Comment ne pas détruire les autres attributs en changeant un seul, selon les commntaires de Gobillot.
19 août 2006 19:48:32 :
' Pour receullir tout les documents, ' il suffit de passer en option les flags désirés que ceux-ci pourraient avoir ' soit Dir( [répertoire] , vbArchive + vbHidden + vbReadOnly + vbSystem). ' Personnelement, j'aime mieux ne pas inclure les 'vbSystem': ' assez de problèmes comme ca. strContent = Dir$(strPath & "*.*", vbDirectory + vbArchive + vbHidden + vbReadOnly)
  • signaler à un administrateur
    Commentaire de Gobillot le 17/08/2006 02:02:11

    si le but est d'enlever seulement l'attribut ReadOnly, alors pourquoi enlever les autres aussi ?
    l'attribut Archive par exemple
    et plus grave encore, Système et Hidden seront supprimés par ton programme.

    attention SetAttr ne gère pas les attributs étendus,
    par contre il les enlève (attribut indexation sera supprimé également)
    il faut utiliser GetFileAttributes et SetFileAttributes beaucoup plus performant.

  • signaler à un administrateur
    Commentaire de bitshifter le 17/08/2006 02:35:46

    C'est vrai.
    Ce code fait il y a quelques années avait pour but de rendre "writable" des tonnes de dossiers copiés à partir de CD.
    Je vais modifier et recharger demain.

  • signaler à un administrateur
    Commentaire de bitshifter le 18/08/2006 00:58:29

    Code corrigé.

    Note d'intérêt public: Dir ne liste pas les dossiers avec l'attribut FILE_ATTRIBUTE_HIDDEN

  • signaler à un administrateur
    Commentaire de Gobillot le 18/08/2006 03:29:04

    non non c'est pas bon
    faut pas faire plusieurs SetFileAttributes, sinon seul le dernier sera pris en compte
    il faut faire un masque avec l'attribut qu'on veut enlever et c'est tout

    lngFileAttr = GetFileAttributes(strPath & strContent)
    If lngFileAttr And vbReadOnly Then
       SetFileAttributes strPath & strContent, lngFileAttr And (Not vbReadOnly)
       End If

    ok pour le Hidden, mais vaut mieux prendre de bonnes habitudes,
    si on modifie un attribut, il faut laisser les autres intacts

  • signaler à un administrateur
    Commentaire de bitshifter le 18/08/2006 18:49:59

    ...ick...
    Merci.

  • signaler à un administrateur
    Commentaire de us_30 le 19/08/2006 12:49:07

    Bonjour,

    Je pense que tu te trompes en disant que DIR ne liste pas les attributs cachés. IL suffit de passer en option, "vbhidden" pour les voir... soit Dir( [répertoire] , vbarchive + vbhidden ). Cette liste peut d'ailleurs s'agrandir avec : vbReadOnly + vbSystem...

    Amicalement,
    Us.

  • signaler à un administrateur
    Commentaire de us_30 le 19/08/2006 12:57:41

    Complément,

    Pour les dossiers spécifiquement, il faut utiliser : vbDirectory + vbHidden + vbSystem ...

    Us.

  • signaler à un administrateur
    Commentaire de bitshifter le 19/08/2006 19:45:42

    J'ai remodifié mon code dans ce sens mais cette option ne s'était jamais présentée à date puis que ce programme ne changait que des masses de copies provenant de sources protégées en écriture.
    Mais je ne touche pas au vbSystem. Ah non alors: assez de problèmes comme ca.

Ajouter un commentaire

Appels d'offres

Pub



CalendriCode

Mai 2008
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

VS Express FR Gratuit !

VS Express en français et 100% gratuit !

Téléchargements

Logiciels à télécharger sur le même thème :

Boutique

Boutique de goodies CodeS-SourceS