IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Recherche Fichier dans arbo d'un disque


Sujet :

VBScript

  1. #1
    Nouveau candidat au Club
    Inscrit en
    Mai 2009
    Messages
    1
    Détails du profil
    Informations forums :
    Inscription : Mai 2009
    Messages : 1
    Par défaut Recherche Fichier dans arbo d'un disque
    Bonjour,

    J'aimerai trouver un script qui permet de rechercher un fichier "ex: toto.exe" dans l'arborescence complète d'une partition "ex : C:\", pour pouvoir ensuite le supprimer ou le modifier.
    J'ai essayé avec la fonction "FileSystemObject" mais je n'arrive qu'a effectuer une recherche sur un chemin specifique "ex : C:\WINNT\..."
    Donc j'attends votre aide.

    Merci d'avance.

  2. #2
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Peux tu poster le script qui ne fonctionne pas comme tu le souhaites ?

  3. #3
    Membre chevronné Avatar de pitchalov
    Homme Profil pro
    Inscrit en
    Avril 2007
    Messages
    340
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 340
    Par défaut
    homemac, si tu veux faire toi-même recherche en VBScript, il faut que tu crée une fonction récursive qui parcourra l'ensemble des répertoires enfants à ton répertoire de base.

    en gros, ta fonction devrait ressembler à ça :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub Search(strFile, objFolder)
      For each objFile in objFolder.Files
        If objFile.Name = strFile Then WScript.Echo "Foud : " & objFile.Path
      Next
      For each objSubFolder in objFolder.SubFolders
        Search(strFile, objSubFolder)
      Next
    End Sub
     
    'Utilisation : 
    Set objFso = CreateObject("Scripting.FileSystemObject")
    Set objFolderBase = objFso.GetFoler("C:\") 'Par exemple
    Search("toto.txt", objFolderBase)

Discussions similaires

  1. [Débutant] Rechercher fichier dans repertoire avec le début du nom
    Par Netpasnet dans le forum VB.NET
    Réponses: 3
    Dernier message: 27/03/2015, 13h21
  2. [XL-2002] Recherche fichier dans dossier et sous dossier
    Par thomasdu40 dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 29/02/2012, 12h09
  3. [XL-2007] recherche fichiers dans sous-dossier
    Par casefayere dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 16/03/2010, 09h19
  4. recherche fichier dans un répertoire
    Par nemonemo dans le forum VBA Access
    Réponses: 2
    Dernier message: 23/09/2008, 15h22
  5. Ajouter des fichiers dans une image de disque .tib
    Par koKoTis dans le forum Autres Logiciels
    Réponses: 22
    Dernier message: 30/08/2006, 22h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo