POSITION D'UN FICHIER PAR RAPPORT À UN AUTRE DANS DES DOSSIER DIFFÉRENTS

---

Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

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  

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   

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

• SAVOIR SI UNE FEUILLE EST CHARGÉ (CORRECTION)
• SIMULATION DE LA BARRE DE TITRE
• DÉPLACER UN CONTROLE EN DRAGDROP
• EXPLOREUR LOCAL + SERVEUR
• EXPLOREUR SIMPLE ET RAPIDE (F.S.O.)

• AFFICHAGE DES LIGNES D'UN RICHTEXTBOX
• TRI BOYERMOORE
• CONVERTION PS EN NOIR ET BLANC
• MINI TRAITEMENT DE TEXTE
• REPLACE IN FILE - REMPLACEMENTS MULTIPLES DES FICHIERS D'UN RÉPERTOIRE