OVH Cloud OVH Cloud

kill Thumbs.db

6 réponses
Avatar
DAN
Bonjour a tous.
impossible d'appliquer l'instruction kill sur le fichier:
Thumbs.db,il me répond :fichier introuvable alors que ce fichier est bien
présent dans mon repertoir.
coment procéder?
d'avance merci de votre aide.
Dan

6 réponses

Avatar
Picalausa François
Hello,

Apparement, tu n'as pas pu lire ma réponse à ton précédent post:
Pour les fichiers masqués, il faut enlever cet attribut préalablement.
Voici un (autre) exemple:
Const FileName = "c:tototest.txt"
SetAttr FileName, vbHidden Or vbSystem
Kill FileName 'Erreur
SetAttr FileName, vbNormal
Kill FileName 'OK


--
Picalausa François

"DAN" a écrit dans le message de news:
432d86e5$0$12992$
Bonjour a tous.
impossible d'appliquer l'instruction kill sur le fichier:
Thumbs.db,il me répond :fichier introuvable alors que ce fichier est bien
présent dans mon repertoir.
coment procéder?
d'avance merci de votre aide.
Dan



Avatar
Jacques93
Bonjour DAN,
DAN a écrit :
Bonjour a tous.
impossible d'appliquer l'instruction kill sur le fichier:
Thumbs.db,il me répond :fichier introuvable alors que ce fichier est bien
présent dans mon repertoir.
coment procéder?
d'avance merci de votre aide.
Dan





Le fichier Thumbs.db est un fichier système utilisé par l'explorateur
pour afficher les images en miniature. Si tu as fait ce qu'a indiqué
François Picalausa dans son post d'hier :

SetAttr NomDeFichier, vbNormal

et que Kill ne fonctionne pas, tu n'as peut être pas les droits d'accès
nécessaires sur ce fichier pour en changer les attributs
(H = Hidden, S = System)

--
Cordialement,

Jacques.
Avatar
DAN
effectivement je ne vois pas ton message dans outlook d'ou je consulte les
forums.
Je vais essayer ce que tu m'as indiqué dés demain.
Je te remercie bien sincérement.
Dan

"Picalausa François" a écrit dans le message de news:

Hello,

Apparement, tu n'as pas pu lire ma réponse à ton précédent post:
Pour les fichiers masqués, il faut enlever cet attribut préalablement.
Voici un (autre) exemple:
Const FileName = "c:tototest.txt"
SetAttr FileName, vbHidden Or vbSystem
Kill FileName 'Erreur
SetAttr FileName, vbNormal
Kill FileName 'OK


--
Picalausa François

"DAN" a écrit dans le message de news:
432d86e5$0$12992$
Bonjour a tous.
impossible d'appliquer l'instruction kill sur le fichier:
Thumbs.db,il me répond :fichier introuvable alors que ce fichier est bien
présent dans mon repertoir.
coment procéder?
d'avance merci de votre aide.
Dan







Avatar
Kiriasse
Vous voulez sans doute dire Outlook Express.
Kiriasse

Répondant à :
"DAN"
effectivement je ne vois pas ton message dans outlook d'ou je consulte
les forums.


Avatar
Dan
Bonjour.
j'ai récupéré une erreur en utilisant ton code ,je suis loin d'etre top en
vb.
j'ai par contre trouvé ce code qui fonctionne parfaitement et suprime tous
les fichiers de mon repertoir y compris
Thumbs.db mais je ne sais pas exactement ce que cela signifi:Set objFSO =
CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile (Répertoire & "*.*")


"Picalausa François" a écrit dans le message de news:

Hello,

Apparement, tu n'as pas pu lire ma réponse à ton précédent post:
Pour les fichiers masqués, il faut enlever cet attribut préalablement.
Voici un (autre) exemple:
Const FileName = "c:tototest.txt"
SetAttr FileName, vbHidden Or vbSystem
Kill FileName 'Erreur
SetAttr FileName, vbNormal
Kill FileName 'OK


--
Picalausa François

"DAN" a écrit dans le message de news:
432d86e5$0$12992$
Bonjour a tous.
impossible d'appliquer l'instruction kill sur le fichier:
Thumbs.db,il me répond :fichier introuvable alors que ce fichier est bien
présent dans mon repertoir.
coment procéder?
d'avance merci de votre aide.
Dan







Avatar
Picalausa François
Hello,

Peut-on savoir de quel erreur il s'agit et sur quelle ligne?
Sinon, pour Set objFSO = CreateObject("Scripting.FileSystemObject"), il
s'agit d'emploi du modèle objet FSO, avant tout destiné au scripting.
S'il est souvent plus intuitif à l'utilisation, il pose d'autres problèmes
(voir http://faq.vb.free.fr/index.php?question6)

--
Picalausa François
"Dan" a écrit dans le message de news:
432f18bd$0$303$
Bonjour.
j'ai récupéré une erreur en utilisant ton code ,je suis loin d'etre top en
vb.
j'ai par contre trouvé ce code qui fonctionne parfaitement et suprime tous
les fichiers de mon repertoir y compris
Thumbs.db mais je ne sais pas exactement ce que cela signifi:Set objFSO =
CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile (Répertoire & "*.*")


"Picalausa François" a écrit dans le message de
news:
Const FileName = "c:tototest.txt"
SetAttr FileName, vbHidden Or vbSystem
Kill FileName 'Erreur
SetAttr FileName, vbNormal
Kill FileName 'OK

--
Picalausa François