cs_moustachu
Messages postés1079Date d'inscriptionjeudi 14 novembre 2002StatutMembreDernière intervention 1 janvier 2012 27 juil. 2004 à 09:44
Bonjour,
Le gros problème de cette méthode est que si tu n'as pas un répertoire de l'arborescence que tu cherches à retrouver est caché, Dir ne la verra pas.
Utilise plutot GetLongPathName
Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" _
(ByVal lpszShortPath As String, ByVal lpszLongPath As String, _
ByVal cchBuffer As Long) As Long
Private Sub Form_Load()
Dim sBuf As String * 260
Dim i As Long
i = GetLongPathName("c:\progra~1", sBuf, Len(sBuf))
MsgBox Left$(sBuf, i)
29 juil. 2004 à 00:04
Visual Basic Research Center
http://docvb.free.fr/codedetail.php?idc=54&p=21|
27 juil. 2004 à 09:44
Le gros problème de cette méthode est que si tu n'as pas un répertoire de l'arborescence que tu cherches à retrouver est caché, Dir ne la verra pas.
Utilise plutot GetLongPathName
Private Declare Function GetLongPathName Lib "kernel32" Alias "GetLongPathNameA" _
(ByVal lpszShortPath As String, ByVal lpszLongPath As String, _
ByVal cchBuffer As Long) As Long
Private Sub Form_Load()
Dim sBuf As String * 260
Dim i As Long
i = GetLongPathName("c:\progra~1", sBuf, Len(sBuf))
MsgBox Left$(sBuf, i)
End Sub
++
Moustachu