- 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
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