Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1940 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  recherche de fichier

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

recherche de fichier

n°1276882
anthony000​0
Posté le 04-01-2006 à 14:47:03  profilanswer
 

hello tous le monde!
 
 
je cherche à créer un script qui cherche un certain fichier, dans tous les disques durs d'un ordinateur, pour le supprimer.
 
mais je ne sais pas comment faire une telle recherche !
 
 
 
merci de vos réponses !!

mood
Publicité
Posté le 04-01-2006 à 14:47:03  profilanswer
 

n°1277373
olivthill
Posté le 05-01-2006 à 00:13:55  profilanswer
 

:hello:  
Voir http://forum.hardware.fr/hardwaref [...] 8287-1.htm pour une solution en VBS. Il faut sans doute un peu l'adapter si c'est pour du VBA ou du VB.

n°1277388
Arjuna
Aircraft Ident.: F-MBSD
Posté le 05-01-2006 à 00:31:27  profilanswer
 

http://support.microsoft.com/defau [...] US;q185601
 
C'est du VB, mais y'a pas grand chose à changer pour que ça marche avec VBS.
 
A noter que FSO s'appelle en VBS comme ça :
 

Code :
  1. Dim fso
  2. Set fso = CreateObject("Scripting.FileSystemObject" )

n°1277389
Arjuna
Aircraft Ident.: F-MBSD
Posté le 05-01-2006 à 00:32:03  profilanswer
 

Grossomodo la même chose ici :
 
http://www.freevbcode.com/ShowCode.asp?ID=3103

n°1277477
anthony000​0
Posté le 05-01-2006 à 11:27:18  profilanswer
 

Merci pour vos réponse, j'ai regardé un peu, mais entre temps j'ai réussi à faire de mon coté, il y a tout de même quelques thermes que je n'ai pas compris :
 
 
Dim chListe, champ, i
 
i = 0
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2" )
 
Set colFiles = objWMIService.ExecQuery _  
("Select * from CIM_DataFile where FileName = 'vie paradisiaque.zip' and Extension = 'exe'" )
 
For Each objFile in colFiles
 'objFile.delete
 i = i + 1
 'wscript.echo objfile.Name
 champ = objFile.Name
 chListe = "Le ou les fichier(s) suivant(s) ont bien été supprimé." & VbCrLf & VbCrLf
 chListe = chListe & champ & VbCrLf
 objFile.delete
Next
 
if i = 0 then
 MsgBox("Aucun fichier trouvé" )
 else
 if i = 1 then
  Wscript.Echo "Un seul fichier a été trouvé et va être effacé"
  Wscript.Echo chListe
  else
  if i > 1 then
   Wscript.Echo i & " fichiers ont été trouvé et vont être effacé."
   Wscript.Echo chListe
  end if
 end if
end if
 
 
 
ça marche, efface même les fichiers en lecture seule et les fichiers cachés.
Bref il a l'air de bien marché, mais certaines lignes m'échappent :
 
"{impersonationLevel=impersonate}!\\"  
 
Set colFiles = objWMIService.ExecQuery _    (le _ ici je ne sais pas à quoi il sert)
 
 
pour faire ce script, je me suis inspiré un peu partout.

n°1277511
Arjuna
Aircraft Ident.: F-MBSD
Posté le 05-01-2006 à 12:22:39  profilanswer
 

Pour le premier, c'est juste un truc que tu copies comme ça, ça marche que comme ça :D
 
Au lieu de passer par FSO, ce script passe par WMI. Je sais pas ce que c'est par contre, m'enfin du moment que ça marche :D (WMI c'est un truc interne à Windows, c'est tout ce que je sais)
 
Le "_" en fin de ligne, ça indique que la ligne suivante est en fait la fin de cette ligne.
 
Genre :
 
a = 1
 
Peut d'écrire comme ça :
a _
= _
1
 
(pas testé, mais normalement ça doit marcher :D

n°1277597
anthony000​0
Posté le 05-01-2006 à 14:21:23  profilanswer
 

ok dac !
 
merci pour ta réponse !
 
je regarde ça  
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  recherche de fichier

 

Sujets relatifs
Recherche dans un fichier xmlAller à la derniere ligne d'un fichier texte et recherche chaine
recherche de fichier sur ftplogiciels de recherche de fichier
recherche de fichier en java[EXCEL] Recherche d'un fichier fermé
[batch] Recherche de fichier[PHP] recherche nom d'un fichier dans une arborescence
Je recherche le fichier powrprof.hrecherche et remplacement dans le fichier meme
Plus de sujets relatifs à : recherche de fichier


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR