Extraire l'adresse du dossier a partir de l'adresse du fichier

Extraire l'adresse du dossier a partir de l'adresse du fichier - VB/VBA/VBS - Programmation

Marsh Posté le 30-10-2008 à 09:04:36    

Salut,
 
J'ai une petite question stupide (c'est les seules que je maitrise!) :  
 
Dans une macro VBA sous Excel, je recupere l'adresse d'un fichier (ex C:\Utilitaires\MacrosVBA\toto.output) et je souhaiterais en extraire l'emplacement, ie l'adresse du dossier (ici C:\Utilitaires\MacrosVBA\).
 
J'ai bien pense a faire supprimer les derniers caracteres, mais vu que mon nom de fichier est variable, c'est plus tordu. Existe-t-il une commande qui me ferait ca tout seul ou bien dois-je faire une petite boucle qui supprime le caractere tant que ce n'est pas "\"? (un peu lourd non?) :??:  
 
Merci d'avance


Message édité par malaka le 30-10-2008 à 09:06:08
Reply

Marsh Posté le 30-10-2008 à 09:04:36   

Reply

Marsh Posté le 30-10-2008 à 11:25:06    

C'est plus la peine de chercher, j'ai trouve!
 
Dim chaine As String
Dim Emplacement As String
chaine = "c:\troud\ieyo jeoh\thee_nhno\jhneljhelhj.test"
Emplacement = Mid(chaine, 1, InStrRev(chaine, "\", -1, 1))
 
 :sol:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed