Instruction Dir("c\*.*", vbDirectory)
Bonjour.
J'ai besoin de connaître le contenu d'un répertoire.
J'ai trouvé la solution dans la Faq avec l'instruction Dir("c\*.*", vbDirectory)qui fonctionne avec le chemin absolu mais que je n'arrive pas à faire fonctionner avec CurrentProject.path.
Voici le code que j'utilise :
Code:
rep = Dir("CurrentProject.Path & " \ " & RepSauv1 \ *.*", vbDirectory)
dans lequel Repsauv1 est le résultat d'une Fonction Dlook'up qui contient le nom du répertoire Sauvegarde (voir ci dessous)
Ce code renvoie rep=" " Erreur Fichier inexistant.
Voici le code avec le chemin absolu :
rep = Dir("d:\mic\documents\mes bases\Rigel\compta\compta test\sauvegarde\*.*", vbDirectory) qui fonctionne très bien mais je ne suis pas maître de l'adresse où la frontale est installée chez mes utilisateurs
Je n'ai pas réussi à trouver la bonne syntaxe avec CurrentProject.PathMerci à qui pourra me donner la solution.
Cordialement.
Mic352
Instruction Dir("c\*.*", vbDirectory)
Bonjour User.
Merci pour votre réponse.
Vous avez raison j'ai des espaces en trop.
Votre 1ère solution
Code:
rep = Dir(CurrentProject.Path & "\" & RepSauv1 & "\*.*", vbDirectory)
fonctionne parfaitement.
merci et désolé j'aurais dû trouver tout seul !
Cordialement
Je clique résolu.
