api getshortpathname ne marche pas, grr

bonjour,
je suis en VB.net, j'ai un probleme avec l'API GetShortPathName

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long

Public Function GetShortPath(ByVal strFileName As String) As String
   Dim lngRes As Long, strPath As String
   strPath = String$(165, 0)
   lngRes = GetShortPathName(strFileName, strPath, 164)
   GetShortPath = Left$(strPath, lngRes)
End Function

c'est cette methode que je trouve partout,
mais il ne veut pas de String$(165, 0) ni de Left$(strPath, lngRes)

jai essayé en remplacant String$(165, 0) par space$(165) et  Left$(strPath, lngRes) par mid(strpath,1,ingres)
mais la fonction me renvoie une erreur


help please
merci

poum :-)

Salut, je n'ai pas vb.net sous la main mais il me semble que :

strPath = String$(165, 0)
doit être remplacé par
strPath = NewString("0", 165)

pour le left$, tu as vu juste ça n'existe plus et il faut bien le remplacer par
mid(strpath,1,ingres)


-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Oups, je crois qu'un espace a sauté entre new et string.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

Bonjour,

Avec ça, ca marche

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
Public Function GetShortPath(ByVal StrFileName As String) As String
  Dim strPath As String = Microsoft.VisualBasic.Strings.Space(165)
  Call GetShortPathName(strFileName, strPath, 164)
  Return strPath
End Function

ChRB

---

la nouvelle syntaxe de dexlaration de cet api est:
Private Declare Function GetShortPathName Lib "kernel32.dll" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Int32) As Int32

---

Life is short...Learn more
Copy Rights <> Rights to Copy

merci pour votre aide, mais rien n'y fait ...

canislupus : ta methode ne change rien, jai un message d'erreur : loperation arithmetique a provoqué un depassement de capacité patati patata

charles:ta fonction retourne strpath, donc "                                "
jai essayé avec return GetShortPathName(strFileName, strPath, 164)
mais bon, ça me renvoi "0"

masterhack: long ou int32, ça na aucun effet non plus


je comprend pas, pourtant a partir de vba, ça fonctionne
pourquoi il faut que strpath="        ..." ? a quoi ça sert?

poum :-)

si ça peut vous eclairer,

GetShortPathName(strFileName, strPath, 164) me renvoi 2814749767106560

poum :-)

 je conforme la methode de superchinois, elle marche tres bien

---

Life is short...Learn more
Copy Rights <> Rights to Copy

ops dsl le clipboard etais plein,
je disais que je confirmais la methode de  Charles Racaud,ça marche tres bien

---

Life is short...Learn more
Copy Rights <> Rights to Copy