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

VB 6 et antérieur Discussion :

Find folder vb6


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 19
    Par défaut Find folder vb6
    Bonjour,
    Je cherche à faire un prog qui permet de rechercher des folders.

    J'ai essayé avec :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Set fs = CreateObject("Scripting.FileSystemObject")
            Set f = fs.GetFolder(folderspec)
            Set fc = f.SubFolders
    Ca marche bien mais c trop lourd car ma base à scanner est trop grosse. Donc ca plante.

    Avez vous une solution?
    Merci d'avance.

  2. #2
    Membre confirmé
    Avatar de nabil
    Inscrit en
    Avril 2002
    Messages
    223
    Détails du profil
    Informations forums :
    Inscription : Avril 2002
    Messages : 223
    Par défaut
    essaye ce code
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim fso As New FileSystemObject
    MsgBox fso.FolderExists(App.path + "\nom")

  3. #3
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    Re bonsoir, Nabil,

    Deux remarques :

    1) à nouveau avec cette utilisation (alourdissante de FSO)
    2) Relis la question : il s'agit de scanner la totalité afin de localiser un (ou plusieurs, d'ailleurs, car plusieurs folders peuvent porter le même nom) alors que l'on n'en connait pas le chemin principal ...

  4. #4
    Membre confirmé
    Avatar de nabil
    Inscrit en
    Avril 2002
    Messages
    223
    Détails du profil
    Informations forums :
    Inscription : Avril 2002
    Messages : 223
    Par défaut
    on se croise à nouveau ucfoutu
    concernant fso c'es ok mais concernant
    il s'agit de scanner la totalité afin de localiser un (ou plusieurs, d'ailleurs, car plusieurs folders peuvent porter le même nom) alors que l'on n'en connait pas le chemin principal ...
    dkoneeee n'a pas spécifié qu'il ne connait pas le chemin ni que les dossiers peuvent avoir le même nom.

    Bon ce n'ai qu'une proposition qui peux impérativement être amélioré

  5. #5
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    Citation Envoyé par dkoneeee Voir le message
    Bonjour,
    Je cherche à faire un prog qui permet de rechercher des folders.

    J'ai essayé avec :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Set fs = CreateObject("Scripting.FileSystemObject")
            Set f = fs.GetFolder(folderspec)
            Set fc = f.SubFolders
    Ca marche bien mais c trop lourd car ma base à scanner est trop grosse
    .


    Si tel n'était pas le cas : un simple Dir ( de pur VB) suffirait, avec les bons attributs...

  6. #6
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 19
    Par défaut
    merci.

    il s'agit de retourner le path d'un ou plusieurs dossiers dans une base connue.

    La fonction dir s'applique pour les fichiers et non les dossiers.


    est ce que la fonction sfo peut le faire?

  7. #7
    Inactif  

    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    4 555
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 4 555
    Par défaut
    Citation Envoyé par dkoneeee Voir le message
    merci.

    il s'agit de retourner le path d'un ou plusieurs dossiers dans une base connue.

    La fonction dir s'applique pour les fichiers et non les dossiers.


    est ce que la fonction sfo peut le faire?
    Non !

    1) La fonction dir sert de la même façon, qu'il s'agisse de dossier ou de fichiers ... seule change la définition de l'attribut ....
    2) qu'entends-tu donc par "une base connue" ?

    Sois très précis sur ce point fondamental, s'il te plait !

  8. #8
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 19
    Par défaut
    La base c juste un dossier contenant des sous-dossiers dont je veux comparer leur nom.

  9. #9
    Membre averti
    Profil pro
    Inscrit en
    Juillet 2007
    Messages
    19
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2007
    Messages : 19
    Par défaut
    merci ucfoutu,

    Mias la fonction dir retourne le nom du dossier mais pas le path et date created.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Recherche la fonction équivalente à Find de VBA en VB6
    Par VBAG38 dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 21/12/2012, 09h54
  2. [OL-2010] Utiliation de Items.Find infructueux avec le Folders("COMPTES")
    Par JeanB_Can dans le forum VBA Outlook
    Réponses: 0
    Dernier message: 23/07/2011, 15h51
  3. Méthode .Find en VB6
    Par Khalou8 dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 31/03/2010, 10h23
  4. [VB6] pb avec critère sur find avec rs ADODB
    Par Mymi dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 14/08/2006, 15h45
  5. [VB6]Compil error: can't find project or library
    Par riesseg dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 03/05/2006, 22h28

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