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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (leptidev)