Function Combine(ByVal sDirectory As String, ByVal sFileName As String) As String
' enlève slash chemin
If RightB$(sDirectory, 2) = "\" Then sDirectory = LeftB$(sDirectory, LenB(sDirectory) - 2)
' ajoute slash fichier
If Not (LeftB$(sFileName, 2) = "\") Then sFileName = "\" & sFileName
' retour
Combine = sDirectory & sFileName
End Function
Remarque :
Debug.Print Combine("C:\MonRep", "monFichier.txt")
Debug.Print Combine("C:\MonRep\", "monFichier.txt")
Debug.Print Combine("C:\MonRep", "\monFichier.txt")
Debug.Print Combine("C:\MonRep\", "\monFichier.txt")