Re: [prog] Emplacement d'un fichier

[François Breizh]

c c a écrit :

Bonjour,

La variable ThisComponent.location contient le chemin et le nom du fichier 
ouvert.

En existe-t-il une qui ne contienne que le chemin ?

Pour ma part j'utilise cette fonction pour avoir le chemin :

Function RepertFich(StrFich As String) As String

Dim PosSlash As Integer

PosSlash = Len(StrFich) - 1
While Mid(StrFich,PosSlash,1) <> "/" And PosSlash >= 1
   PosSlash = PosSlash - 1
Wend
If PosSlash = 0 Then
   RepertFich() = ""
Else
   RepertFich() = Left(StrFich, PosSlash - 1)
End If
End Function

Merci

Claude

_________________________________________________________________

Discutez en direct avec vos amis sur Messenger !
http://www.windowslive.fr/messenger

---------------------------------------------------------------------
To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org
For additional commands, e-mail: prog-h...@fr.openoffice.org