NOM DOSSIER DOS

[polpoye]

bonjour,
je cherche a recupérer le nom 'DOS' de mon repertoire du classeur dans lequel je suis.

=info('repertoire') me donne le nom 'Windows' de ce répertoire...

une idée??

merci

 

[2passage]

Bonjour,

Quel est ton problème exactement ? Le Dos gère les noms longs depuis.. un moment maintenant... Que ce soit dir, Environ ou Application.path, seul les noms 'windows' sont utilisés par excel à ma connaissance, par contre la règle est simple et donc tronquer les noms et ajouter '~1' est faisable.. mais à quoi bon ?

A+

 

[polpoye]

je dois communiquer avec un appli qui prend encore des chemins 'tronqués'

l'idée de tronquer m'avez effleurer mais je ne sais plus a partir de quand (nombre de caracteres) on tronque pour retomber sur le nom DOS

ex: Program Files >>> Pr...~(?)

merci

 

[Creepy]

Hello all,

J'ai un bout de code qui fait ca très bien, qui marche très bien !!

Par contre je ne l'ai pas sous le coude, je suis au boulot.

Je te le posterais ce soir !

++

Creepy

 

[Creepy]

RE all,

Voici comme promis le code :

Private Declare Function GetShortPathName Lib 'kernel32' Alias 'GetShortPathNameA' (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Const MAX_PATH_LENGHT = 255
Public RepLong As String
Sub RepCourt()
    Dim tmpShortPath As String
    Dim RC As Long
    tmpShortPath = Space(MAX_PATH_LENGHT + 1)
    RC = GetShortPathName(RepLong, tmpShortPath, MAX_PATH_LENGHT + 1)
    RepLong = Left(tmpShortPath, InStr(tmpShortPath, Chr$(0)) - 1)

End Sub

++

Creepy