inverse de la fonction dir

Question

bonjour a tous

je cherche une fonction qui aurait l'effet inverse de Dir(). Je cherche a recuperer le chemin d'acces du repertoire contenant mon fichier...

merci d'avance

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler

jmfmarques · Answer

Bonjour,
Pardon ?
Si tu sais où est ton fichier (chemin complet) instrrev avec "" t'en extraiera le répertoire
Si tu ne sais pas : il va te falloir rechercher sur toutes tes partitions, dans tous les répertoires et dans tous les sous-répertoires (en espérant que tu n'aies pas plusiieurs fichiers du même nom !!!.. et pour ramer, ça va ramer....)
Peux-tu être plus précis dans ta question, s'ul te plait ?

cs_casy · Answer

"...Je cherche a récupérer le chemin d'accès du répertoire contenant mon fichier..."

Ca veut dire quoi exactement ??????

Faut-il comprendre qu'il faut faire une recherche sur tout le(s) disque(s) dur(s) de la machine dans l'espoir de retrouver quelque part dans un des répertoires, ton fichier ????? 

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

dam278 · Answer

désolé c'etait pas clair..

si je recupere "D:\Mes documents\monfichier.doc"
dir renvoie "monfichier.doc"
moi je cherche la fonction qui me renverrai "D:\Mes documents"

merci
Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler

cs_casy · Answer

Si je me souvient bien, à la fonction Dir, à la première utilisation, il faut lui passer le chemin pour quelle renvoie la liste des fichiers.

Donc le chemin tu le connais déjà, non ? pas besoin d'essayer de le retrouver.

---- Sevyc64  (alias Casy) ---- # LE PARTAGE EST NOTRE FORCE #

dam278 · Answer

je te donne le code sans ca on va pas s'en sortir

dlgcommon est un commondialog, cheminBDD et repertoire des Strings

    dlgCommon.Filter = "Base de données (*.mdb)|*.mdb"
    dlgCommon.ShowOpen
    CheminBDD = dlgCommon.FileName
    Repertoire = ????

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler

jmfmarques · Answer

Plus rien à voir avec Dir !

Utilisation de InstrRev (déjà dit) ...

dam278 · Answer

ca a a voir avec dir que l'effet est quasi le meme, si dir existe je me suis dit il doit exister une fonction equivalente pour obtenir l'autre partie de la string. Mais je suis en trein d'esssayer de contourner le probleme en recuperant directement le chemin du repertoire (j'ai d'ailleurs posté un autre sujet... ^^)

merci a vous 2 en tt cas

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler

PCPT · Answer

salut,

c'est bien INSTRREV comme indiqué
http://www.codyx.org/snippet_recuperer-chemin-fichier_280.aspx#900

et çà n'est en effet en aucun cas l'inverse de DIR
DIR sert à LISTER
que tu l'utilises autrement n'en change pas son utilité

merci d'être plus précis lors de tes prochaines questions, pour moi l'inverse de lister, c'est .. délister :)

alors on déliste comment, on kill *.* ?
ou on fait juste un msgbox vbnullstring ?

http://www.codyx.org/snippet_recuperer-chemin-fichier_280.aspx#900
 Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

dedenet2 · Answer

Bonsoir ,
Un exemple pour récuperer le répertoire d'un fichier:

   'Code VB6
   'Charger Reference "Microsoft Scripting Runtime"
   'dans menu Projet\Références...
    
    Dim fs As New FileSystemObject
    Dim f As File
    Dim Repertoire
    Dim CheminBDD
    ----------------------------------------
    'Adapter ton code du commondialog quant du clique
    'sur annuler ou ouvrir
    ----------------------------------------
 
    Set f =  fs.GetFile(CheminBDD)

    Repertoire = UCase(f.ParentFolder)
     ou 
    Repertoire  = UCase(f.ParentFolder)& "" (suivant ce que tu fais avec ce répertoire)

 
    J'espère avoir repondu correctement
    A++

dam278 · Answer

merci beaucoup pour ta réponse mais en fait j'ai switché pour une solution de parcours qui renvoie direct le repertoire

merci en tt cas c'etait parfait sinon

Le chameau peut travailler 8 jours sans boire. Je peux boire 8 jours sans travailler

Inverse de la fonction dir

10 réponses

Votre réponse

Discussions similaires