Position d'un fichier par rapport à un autre dans des dossier différents

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 507 fois - Téléchargée 39 fois

Contenu du snippet

Cette fonction retourne le nouveau chemin du fichier ficEnd par rapport au fichier ficInit qui se trouve dans un dossier différent ou même le même d'ailleur, par exemple :

getPathDos("C:\TOM\TOM\diane.txt", "C:\TOM\DIANE\TOM\tom.txt")

Vous retourne :

...\DIANE\TOM\tom.txt

Assez utilie parfois

Source / Exemple :


Public Function getPathDos(FicInit As String, FicEnd As String) As String
Dim temp As String, tempFichier As String
Dim i As Long, o As Long
Dim tabInit() As String, tabEnd() As String
tempFichier = trouver_fichier(FicEnd)
FicInit = retourne_chemin(Right(FicInit, Len(FicInit) - 2))
FicEnd = retourne_chemin(Right(FicEnd, Len(FicEnd) - 2))
tabInit = Split(FicInit, "\")
tabEnd = Split(FicEnd, "\")
i = 0
Do Until tabInit(i) <> tabEnd(i)
i = i + 1
If i >= size(tabInit) Then Exit Do
If i >= size(tabEnd) Then Exit Do
Loop
For o = i To size(tabInit) - 1
temp = temp & "...\"
Next
For o = i To size(tabEnd) - 1
temp = temp & tabEnd(o) & "\"
Next
getPathDos = temp & tempFichier
End Function

Conclusion :


Personne n'a remarqué que j'ai oublié les fonctions trouver_fichier et retourne_chemin, je rajouterai ces 2 fonctions ce weekend.

A voir également

Ajouter un commentaire

Commentaires

cs_Stephane
Messages postés
551
Date d'inscription
vendredi 5 janvier 2001
Statut
Membre
Dernière intervention
23 septembre 2006
-
salut

j'ai pas testé si ca marche mais en tout cas c'est tres pratique

merci
a+
Sylfurd
Messages postés
9
Date d'inscription
samedi 8 septembre 2001
Statut
Membre
Dernière intervention
6 décembre 2003
-
C vrai qu'il fallait y penser mais c vrai que le code peut etre plus optimisé!!
En out cas très bone idée! 7/10
neojoce
Messages postés
134
Date d'inscription
jeudi 7 février 2002
Statut
Membre
Dernière intervention
16 juin 2002
-
Je catch rien, trop pour mon intelligence lol, nice, continu !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.