Vérifier l'existence d'un Fichier avec *.*

Bonjour tout le monde !!!


peut on rechercher un fichier sans connaître le début ni la fin du nom ?

Exemple, je souhaite savoir si le fichier 'visualbas*' est présent dans un répertoire !

Malheureusement, je n'arrive pas à gérer l'étoile dans le FileExists ni dans le Dir() ... snif ...


Auriez vous une réponse à m'apporter ???


Merci d'avance pour votre aide très très très précieuse !!!!!!


TuLeSais

Bonjour,

je n'arrive pas à gérer l'étoile dans le FileExists ni dans le Dir()

Que racontes-tu là ?
La fonction Dir accepte les caractères génériques ("jokers") !
Relis-la (dans ton aide en ligne) ainsi que les exemples qui l'accompagne puis montre-nous comment tu as tenté de l'utiliser !

Ceci étant dit, une recherche avec caractères génériques et Dir te conduira à la découverte du premier fichier en "harmonie" (et donc pas forcément un fichier précis), à moins d'utiliser une boucle (exemple dans ton aide en ligne) et d'envoyer dans uyne listbox tous les résultats "en harmonie" 

oups ... je me suis trompé ! ce n'est pas avec dir mais getattr !


Etant déjà dans une boucle dir, puis je en utilisé un autre ???

Fichier = Dir(RepOne)
Do While Fichier <> ""

   vérifier ici la présence du fichier (avec *) dans un RepTwo

   Fichier = dir()
loop

Il va falloir être plus clair si tu veux une réponse précise !
Tu cherches finalement dans deux répertoires ?
Le 2ème est-il un sous-répertoire du 1er ou un répertoire à part entière totalement distinct ?
Etc... etc...
Et cherches-tu un seul fichier (dont tu connais alors le nom exact) ou tous les fichiers dont le nom comporte une chaîne de caractères spécifiée ?
etc... etc...
Une solution te sera proposée, certes, mais encore faut-t-il (comme toujours en développement) que ton problème soit clair et que ta question n'en soulève pas d'autres !

Bonjour,

>>Etant déjà dans une boucle dir, puis je en utilisé un autre : non, donc il faut lire tout le répertoire :

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(repertoire)
    Set fc = f.Files
    For Each f in fc
        if Instr(1,f.name, "visualbas") > 0 Then Msgbox "gagné !"
    Next

Amicalement

salut,

Orohena -> pas testé mais en VB6 (et VBA aussi d'ailleurs) on évitera au possible (et c'est TOUJOURS POSSIBLE) FSO ; qui est conçu pour le SCRIPT et qui consomme des mille et des cents..

  tulesais -> en effet pas de dir pendant un dir. en même temps je ne comprends pas ton utilisation.
forcément ce n'est pas une fonction récursive
et d'après ton utilisation, tu connais apparemment le nom du dossier

alors juste
sFile = dir(chemin_complet_avec_antislash & "visualbas*",vbsystem or vbhidden)

sans boucle ni autre...
non?

---

Prenez un instant pour répondre à ce sondage svp 

Bonjour tout le monde et merci beaucoup pour votre investissement dans mon problème !

je vais essayer d'être clair ...

j'ai un premier répertoire contenant des Fichiers et je souhaiterais savoir si le corps de ces Fichiers est présent dans un second répertoire.

j'ai donc la boucle suivante :

Fichier = Dir(RepOne)
Do While Fichier <> ""

   ' ici je dois tester si le corps du fichier est présent dans le second répertoire !!!

   Fichier = dir()
loop


Merci d'avance pour votre aide et vraiment désolé de ne pas avoir été assez clair !

pas bête !

dommage qu'il n'y ait pas d'autre solution plus rapide !

En tout cas merci à tous pour votre aide et merci beaucoup PCPT pour cette réponse 'de contournement' :-)


Merci !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Bonjour

on évitera au possible (et c'est TOUJOURS POSSIBLE) FSO ; qui est conçu pour le SCRIPT et qui consomme des mille et des cents.. ok sur le principe d'éviter FSO en VBA, mais comment s'en passer ? en natif, je ne vois pas trop ; tu penses aux api ?

Amicalement