Code : Tout sélectionner
Fichier.s = "C:\Test.pb"
Debug GetFilePart(Fichier)
Debug "." + GetExtensionPart(Fichier)
Debug ""
Debug RemoveString(GetFilePart(Fichier), "." + GetExtensionPart(Fichier))
Nom.s = GetFilePart(Fichier)
Extension.s = "." + GetExtensionPart(Fichier)
Debug RemoveString(Nom, Extension)
Un petit soucis j'espère, la fonction removestring ne supporte pas du tout en paramètre les fonction GetFilePart et GetExtensionPart
le debugger me retourne ceci
Code : Tout sélectionner
Test.pb
.pb
Test.pb
Test
Code : Tout sélectionner
RemoveString(GetFilePart(Fichier), "." + GetExtensionPart(Fichier))

En tout cas, j'ai cherché un moment avec de comprendre pourquoi mon nom de fichier gardait l'extension depuis la V4