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 :

Compter le nombre de fichier dans un repertoire.


Sujet :

VB 6 et antérieur

  1. #1
    Membre éclairé
    Avatar de parp1
    Profil pro
    Inscrit en
    Mai 2005
    Messages
    829
    Détails du profil
    Informations personnelles :
    Âge : 40
    Localisation : France, Calvados (Basse Normandie)

    Informations forums :
    Inscription : Mai 2005
    Messages : 829
    Points : 872
    Points
    872
    Par défaut Compter le nombre de fichier dans un repertoire.
    Bonjour a toutes et tous.

    J'utilise un OpenFile venant du control Microsoft Common Dialog 6, et enfait je dois ouvrir une serie d'image, (pile d'image formant un volume).

    Ce que je souhaite faire c'est :

    • A l'aide de l'OpenFile obtenir le chemin de la premiere image
    • Ensuite compter le nombre d'image dans le repertoire


    Pour créer un volume les parametre sont du type.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Ouverture ( Chemin, nb Pixel X, nb Pixel Y, Nb couche)
    Ensuite la bibliotheque s'occupe du reste.
    Voila j'ai taper exactement le titre de ce post sur avec les mots clé Visual basic -.net en plus... Je vais chercher ...

    J'ai bien une idée... mais il y a peut etre quelque chose de plus rapide....

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    définir un FileSystemObject.
     
    si le fichier path & 1 existe alors
               incrementation d'une variable
    Sinon 
               sinon retourne la variable
    Fin si
    Voila je vous demande si c'est la facon le plus rapide. (pour dire je faisait jusque la mes openfile dialog a la main c-a-d avec les dirlistbox,drivelistbox...


    Merci de votre attention.

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Mai 2006
    Messages
    730
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mai 2006
    Messages : 730
    Points : 876
    Points
    876
    Par défaut
    Salut,

    perso, j'utilise Dir pour ce genre de balayage

  3. #3
    Membre éclairé
    Avatar de parp1
    Profil pro
    Inscrit en
    Mai 2005
    Messages
    829
    Détails du profil
    Informations personnelles :
    Âge : 40
    Localisation : France, Calvados (Basse Normandie)

    Informations forums :
    Inscription : Mai 2005
    Messages : 829
    Points : 872
    Points
    872
    Par défaut
    La methode que j'ai cité plus haut fonctionne

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
     
    dim flag as boolean
    flag=true
    dim root as new filesystemobject
    increment=0
     
     
    While Flag=true
          if  Root.fileexists(Chemin & increment & ".bmp")=true then 
                   increment=increment+1
          else
                  flag=false
                  increment=increment-1
         endif
    wend
    msgbox increment
    J'aurais pu utiliser une boucle Do While ...

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

Discussions similaires

  1. Réponses: 0
    Dernier message: 08/03/2011, 19h41
  2. Réponses: 1
    Dernier message: 19/06/2008, 18h28
  3. compter le nombre de fichiers dans un répertoire !
    Par lehic dans le forum API, COM et SDKs
    Réponses: 1
    Dernier message: 20/11/2005, 18h59
  4. Nombre de fichiers dans un répertoire
    Par berry dans le forum Shell et commandes GNU
    Réponses: 3
    Dernier message: 12/11/2005, 18h48
  5. Réponses: 6
    Dernier message: 11/02/2005, 07h41

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