J'ai récupéré sur le site de Misange un petit classeur qui permet de
lister un répertoire et ses sous-dossiers. Petit problème, il ne gère
pas les droits ni les attributs, donc il plante si on n'a pas les droits
sur un répertoire ou fichier, et il liste même les fichiers cachés...ce
qui n'est pas top !!
Comment récupérer les attributs d'un fichier ou répertoire pour les
tester ??
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal vbReadOnly 1 Lecture seule vbHidden 2 Caché vbSystem 4 Système. Non disponible sur le Macintosh. vbDirectory 16 Répertoire ou dossier vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de lister un répertoire et ses sous-dossiers. Petit problème, il ne gère pas les droits ni les attributs, donc il plante si on n'a pas les droits sur un répertoire ou fichier, et il liste même les fichiers cachés...ce qui n'est pas top !! Comment récupérer les attributs d'un fichier ou répertoire pour les tester ??
D'avance merci
thierryp
-- Cordialement,
Jacques.
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal
vbReadOnly 1 Lecture seule
vbHidden 2 Caché
vbSystem 4 Système. Non disponible sur le Macintosh.
vbDirectory 16 Répertoire ou dossier
vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu
gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de
lister un répertoire et ses sous-dossiers. Petit problème, il ne gère
pas les droits ni les attributs, donc il plante si on n'a pas les droits
sur un répertoire ou fichier, et il liste même les fichiers cachés...ce
qui n'est pas top !!
Comment récupérer les attributs d'un fichier ou répertoire pour les
tester ??
vbNormal 0 Normal vbReadOnly 1 Lecture seule vbHidden 2 Caché vbSystem 4 Système. Non disponible sur le Macintosh. vbDirectory 16 Répertoire ou dossier vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de lister un répertoire et ses sous-dossiers. Petit problème, il ne gère pas les droits ni les attributs, donc il plante si on n'a pas les droits sur un répertoire ou fichier, et il liste même les fichiers cachés...ce qui n'est pas top !! Comment récupérer les attributs d'un fichier ou répertoire pour les tester ??
D'avance merci
thierryp
-- Cordialement,
Jacques.
ThierryP
Merci pour la réponse....qui amène une autre question !! En regardant dans l'aiden j'ai vu qu'il fallait tester avec : GetAttr(FName) And vbHidden <> 0 pour controler le bit renvoyé; avec ce test, aucun fichier n'est répertorié ??? J'ai essayé également de faire getattr(FName)=2 (vbhidden) mais ça ne marche pas plus.
Encore besoin d'un expert !!!
D'avance merci
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal vbReadOnly 1 Lecture seule vbHidden 2 Caché vbSystem 4 Système. Non disponible sur le Macintosh. vbDirectory 16 Répertoire ou dossier vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de lister un répertoire et ses sous-dossiers. Petit problème, il ne gère pas les droits ni les attributs, donc il plante si on n'a pas les droits sur un répertoire ou fichier, et il liste même les fichiers cachés...ce qui n'est pas top !! Comment récupérer les attributs d'un fichier ou répertoire pour les tester ??
D'avance merci
thierryp
Merci pour la réponse....qui amène une autre question !!
En regardant dans l'aiden j'ai vu qu'il fallait tester avec :
GetAttr(FName) And vbHidden <> 0 pour controler le bit renvoyé; avec ce
test, aucun fichier n'est répertorié ???
J'ai essayé également de faire getattr(FName)=2 (vbhidden) mais ça ne
marche pas plus.
Encore besoin d'un expert !!!
D'avance merci
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal
vbReadOnly 1 Lecture seule
vbHidden 2 Caché
vbSystem 4 Système. Non disponible sur le Macintosh.
vbDirectory 16 Répertoire ou dossier
vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu
gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de
lister un répertoire et ses sous-dossiers. Petit problème, il ne gère
pas les droits ni les attributs, donc il plante si on n'a pas les
droits sur un répertoire ou fichier, et il liste même les fichiers
cachés...ce qui n'est pas top !!
Comment récupérer les attributs d'un fichier ou répertoire pour les
tester ??
Merci pour la réponse....qui amène une autre question !! En regardant dans l'aiden j'ai vu qu'il fallait tester avec : GetAttr(FName) And vbHidden <> 0 pour controler le bit renvoyé; avec ce test, aucun fichier n'est répertorié ??? J'ai essayé également de faire getattr(FName)=2 (vbhidden) mais ça ne marche pas plus.
Encore besoin d'un expert !!!
D'avance merci
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal vbReadOnly 1 Lecture seule vbHidden 2 Caché vbSystem 4 Système. Non disponible sur le Macintosh. vbDirectory 16 Répertoire ou dossier vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de lister un répertoire et ses sous-dossiers. Petit problème, il ne gère pas les droits ni les attributs, donc il plante si on n'a pas les droits sur un répertoire ou fichier, et il liste même les fichiers cachés...ce qui n'est pas top !! Comment récupérer les attributs d'un fichier ou répertoire pour les tester ??
D'avance merci
thierryp
michdenis
Bonjour ThierryP,
Tu devrais donner le code complet de ta procédure...ici !
Salutations!
"ThierryP" a écrit dans le message de news: % Merci pour la réponse....qui amène une autre question !! En regardant dans l'aiden j'ai vu qu'il fallait tester avec : GetAttr(FName) And vbHidden <> 0 pour controler le bit renvoyé; avec ce test, aucun fichier n'est répertorié ??? J'ai essayé également de faire getattr(FName)=2 (vbhidden) mais ça ne marche pas plus.
Encore besoin d'un expert !!!
D'avance merci
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal vbReadOnly 1 Lecture seule vbHidden 2 Caché vbSystem 4 Système. Non disponible sur le Macintosh. vbDirectory 16 Répertoire ou dossier vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de lister un répertoire et ses sous-dossiers. Petit problème, il ne gère pas les droits ni les attributs, donc il plante si on n'a pas les droits sur un répertoire ou fichier, et il liste même les fichiers cachés...ce qui n'est pas top !! Comment récupérer les attributs d'un fichier ou répertoire pour les tester ??
D'avance merci
thierryp
Bonjour ThierryP,
Tu devrais donner le code complet de ta procédure...ici !
Salutations!
"ThierryP" <thierryp_NO_SPAM@club-internet.fr> a écrit dans le message de news: %231Y32dW2FHA.1188@TK2MSFTNGP12.phx.gbl...
Merci pour la réponse....qui amène une autre question !!
En regardant dans l'aiden j'ai vu qu'il fallait tester avec :
GetAttr(FName) And vbHidden <> 0 pour controler le bit renvoyé; avec ce
test, aucun fichier n'est répertorié ???
J'ai essayé également de faire getattr(FName)=2 (vbhidden) mais ça ne
marche pas plus.
Encore besoin d'un expert !!!
D'avance merci
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal
vbReadOnly 1 Lecture seule
vbHidden 2 Caché
vbSystem 4 Système. Non disponible sur le Macintosh.
vbDirectory 16 Répertoire ou dossier
vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu
gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de
lister un répertoire et ses sous-dossiers. Petit problème, il ne gère
pas les droits ni les attributs, donc il plante si on n'a pas les
droits sur un répertoire ou fichier, et il liste même les fichiers
cachés...ce qui n'est pas top !!
Comment récupérer les attributs d'un fichier ou répertoire pour les
tester ??
Tu devrais donner le code complet de ta procédure...ici !
Salutations!
"ThierryP" a écrit dans le message de news: % Merci pour la réponse....qui amène une autre question !! En regardant dans l'aiden j'ai vu qu'il fallait tester avec : GetAttr(FName) And vbHidden <> 0 pour controler le bit renvoyé; avec ce test, aucun fichier n'est répertorié ??? J'ai essayé également de faire getattr(FName)=2 (vbhidden) mais ça ne marche pas plus.
Encore besoin d'un expert !!!
D'avance merci
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal vbReadOnly 1 Lecture seule vbHidden 2 Caché vbSystem 4 Système. Non disponible sur le Macintosh. vbDirectory 16 Répertoire ou dossier vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de lister un répertoire et ses sous-dossiers. Petit problème, il ne gère pas les droits ni les attributs, donc il plante si on n'a pas les droits sur un répertoire ou fichier, et il liste même les fichiers cachés...ce qui n'est pas top !! Comment récupérer les attributs d'un fichier ou répertoire pour les tester ??
D'avance merci
thierryp
ThierryP
Encore une journée où je me coucherais moins bête !!! Merci pour cette info !
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal vbReadOnly 1 Lecture seule vbHidden 2 Caché vbSystem 4 Système. Non disponible sur le Macintosh. vbDirectory 16 Répertoire ou dossier vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de lister un répertoire et ses sous-dossiers. Petit problème, il ne gère pas les droits ni les attributs, donc il plante si on n'a pas les droits sur un répertoire ou fichier, et il liste même les fichiers cachés...ce qui n'est pas top !! Comment récupérer les attributs d'un fichier ou répertoire pour les tester ??
D'avance merci
thierryp
Encore une journée où je me coucherais moins bête !!!
Merci pour cette info !
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal
vbReadOnly 1 Lecture seule
vbHidden 2 Caché
vbSystem 4 Système. Non disponible sur le Macintosh.
vbDirectory 16 Répertoire ou dossier
vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu
gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de
lister un répertoire et ses sous-dossiers. Petit problème, il ne gère
pas les droits ni les attributs, donc il plante si on n'a pas les
droits sur un répertoire ou fichier, et il liste même les fichiers
cachés...ce qui n'est pas top !!
Comment récupérer les attributs d'un fichier ou répertoire pour les
tester ??
Encore une journée où je me coucherais moins bête !!! Merci pour cette info !
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal vbReadOnly 1 Lecture seule vbHidden 2 Caché vbSystem 4 Système. Non disponible sur le Macintosh. vbDirectory 16 Répertoire ou dossier vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de lister un répertoire et ses sous-dossiers. Petit problème, il ne gère pas les droits ni les attributs, donc il plante si on n'a pas les droits sur un répertoire ou fichier, et il liste même les fichiers cachés...ce qui n'est pas top !! Comment récupérer les attributs d'un fichier ou répertoire pour les tester ??
D'avance merci
thierryp
ThierryP
Merci d'avoir répondu aussi vite. Si vite que d'ailleurs je n'ai pas eu le temps d'annuler mon message. En fait, en bon profane qui se respecte, je n'avais pas pensé que mes fichiers pouvaient avoir d'autres attributs, comme archive et que par conséquent la valeur n'était pas 2 mais 34 comme je m'en suis aperçu avec un msgbox getattr(fname)....J'ai résolu mon problème presque tout seul :-))
Merci
Thierryp
Bonjour ThierryP,
Tu devrais donner le code complet de ta procédure...ici !
Salutations!
"ThierryP" a écrit dans le message de news: % Merci pour la réponse....qui amène une autre question !! En regardant dans l'aiden j'ai vu qu'il fallait tester avec : GetAttr(FName) And vbHidden <> 0 pour controler le bit renvoyé; avec ce test, aucun fichier n'est répertorié ??? J'ai essayé également de faire getattr(FName)=2 (vbhidden) mais ça ne marche pas plus.
Encore besoin d'un expert !!!
D'avance merci
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal vbReadOnly 1 Lecture seule vbHidden 2 Caché vbSystem 4 Système. Non disponible sur le Macintosh. vbDirectory 16 Répertoire ou dossier vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de lister un répertoire et ses sous-dossiers. Petit problème, il ne gère pas les droits ni les attributs, donc il plante si on n'a pas les droits sur un répertoire ou fichier, et il liste même les fichiers cachés...ce qui n'est pas top !! Comment récupérer les attributs d'un fichier ou répertoire pour les tester ??
D'avance merci
thierryp
Merci d'avoir répondu aussi vite. Si vite que d'ailleurs je n'ai pas eu
le temps d'annuler mon message.
En fait, en bon profane qui se respecte, je n'avais pas pensé que mes
fichiers pouvaient avoir d'autres attributs, comme archive et que par
conséquent la valeur n'était pas 2 mais 34 comme je m'en suis aperçu
avec un msgbox getattr(fname)....J'ai résolu mon problème presque tout
seul :-))
Merci
Thierryp
Bonjour ThierryP,
Tu devrais donner le code complet de ta procédure...ici !
Salutations!
"ThierryP" <thierryp_NO_SPAM@club-internet.fr> a écrit dans le message de news: %231Y32dW2FHA.1188@TK2MSFTNGP12.phx.gbl...
Merci pour la réponse....qui amène une autre question !!
En regardant dans l'aiden j'ai vu qu'il fallait tester avec :
GetAttr(FName) And vbHidden <> 0 pour controler le bit renvoyé; avec ce
test, aucun fichier n'est répertorié ???
J'ai essayé également de faire getattr(FName)=2 (vbhidden) mais ça ne
marche pas plus.
Encore besoin d'un expert !!!
D'avance merci
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal
vbReadOnly 1 Lecture seule
vbHidden 2 Caché
vbSystem 4 Système. Non disponible sur le Macintosh.
vbDirectory 16 Répertoire ou dossier
vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu
gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de
lister un répertoire et ses sous-dossiers. Petit problème, il ne gère
pas les droits ni les attributs, donc il plante si on n'a pas les
droits sur un répertoire ou fichier, et il liste même les fichiers
cachés...ce qui n'est pas top !!
Comment récupérer les attributs d'un fichier ou répertoire pour les
tester ??
Merci d'avoir répondu aussi vite. Si vite que d'ailleurs je n'ai pas eu le temps d'annuler mon message. En fait, en bon profane qui se respecte, je n'avais pas pensé que mes fichiers pouvaient avoir d'autres attributs, comme archive et que par conséquent la valeur n'était pas 2 mais 34 comme je m'en suis aperçu avec un msgbox getattr(fname)....J'ai résolu mon problème presque tout seul :-))
Merci
Thierryp
Bonjour ThierryP,
Tu devrais donner le code complet de ta procédure...ici !
Salutations!
"ThierryP" a écrit dans le message de news: % Merci pour la réponse....qui amène une autre question !! En regardant dans l'aiden j'ai vu qu'il fallait tester avec : GetAttr(FName) And vbHidden <> 0 pour controler le bit renvoyé; avec ce test, aucun fichier n'est répertorié ??? J'ai essayé également de faire getattr(FName)=2 (vbhidden) mais ça ne marche pas plus.
Encore besoin d'un expert !!!
D'avance merci
thierryp
Bonjour ThierryP,
Pour les attributs, voit la fonction :
Attr = GetAttr (NomFichier)
vbNormal 0 Normal vbReadOnly 1 Lecture seule vbHidden 2 Caché vbSystem 4 Système. Non disponible sur le Macintosh. vbDirectory 16 Répertoire ou dossier vbArchive 32 Fichier modifié depuis la dernière sauvegarde.
Par contre pour les problèmes de droit, je prense qu'il faut que tu gères l'erreur avec :
On Error Resume Next
Bonjour à tou(te)s !!
J'ai récupéré sur le site de Misange un petit classeur qui permet de lister un répertoire et ses sous-dossiers. Petit problème, il ne gère pas les droits ni les attributs, donc il plante si on n'a pas les droits sur un répertoire ou fichier, et il liste même les fichiers cachés...ce qui n'est pas top !! Comment récupérer les attributs d'un fichier ou répertoire pour les tester ??
D'avance merci
thierryp
jb
ActiveCell.Offset(0, 3) = f.Attributes If f.Attributes And vbHidden Then ActiveCell.Offset(0, 4) = "Caché"
JB
ActiveCell.Offset(0, 3) = f.Attributes
If f.Attributes And vbHidden Then ActiveCell.Offset(0, 4) = "Caché"
