Ca ne sera pas forcément utile a beaucoup de monde mais j'en ai eu besoin et je n'ai rein trouvé de mieux. cette fonction transforme un chemin exotique en chemin correct et vérifie au passage si le fichier existe bien. exemple
GetRealPath("c:\windows\..\a.txt")
renverra "c:\a.txt" si le fichier existe ou une chaine vide si ce n'est pas le cas.
Source / Exemple :
Public Function GetRealPath(Chaine As String) As String
'transforme un chemin bizaroïde en chemin correct et vérifie au passage si le fichier existe
'exemple GetRealPath("c:\windows\..\a.txt")
' renvoi "c:\a.txt" si le fichier existe
' renvoi une chaine vide si ce fichier n'existe pas
Dim fs As Object
Dim f As Object
Set fs = CreateObject("Scripting.FileSystemObject")
On Error GoTo fin 'pour la gestion de l'erreur si le fichier n'existe pas
Set f = fs.GetFile(Chaine)
On Error GoTo 0
GetRealPath = f.Path
Exit Function
fin:
GetRealPath = ""
End Function
Conclusion :
voila, si vous avez une meilleur idée pour faire la même chose je suis prenneur ! alors laissez vos commentaire ! pour d'autres et logiciels vennez faire un tour sur
http://www.rature.com
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.