Selection d'un repertoirRésolu

Question

Bonjour à tous,

J'ai utilisé le code ci-dessous pour selectionner un repertoir. Et comme erreur obtenu lorsque je lance mon application: "Can't find project or library" en selectionnant la variables "Space$".

Aidez-moi SVP.

Merci
code:
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long



Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type



Function GetFolderName(Msg As String) As String
' Retourne le nom du repertoire selectionner
Dim bInfo As BROWSEINFO, path As String, r As Long, x As Long, pos As Integer
bInfo.pidlRoot = 0&
If IsMissing(Msg) Then
bInfo.lpszTitle = "Selectionner un répertoire de travail" ' the dialog title
Else
bInfo.lpszTitle = Msg
End If
bInfo.ulFlags = &H1
'Ouvre le dialog
x = SHBrowseForFolder(bInfo)
path = Space$(512)
r = SHGetPathFromIDList(ByVal x, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
GetFolderName = Left(path, pos - 1)
Else
GetFolderName = ""
End If
End Function
'===========================






-Calito

mortalino · Accepted Answer

salut,

si c'est le bug auquel je pense, rajoute devant ton Space la librairie :
path = Strings.Space$(512)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA

calitoli · Answer

Okey, c'est bon maintenant. Je l'ai ajouté egalement pour Chr$.


Merci infiniment Mortalino.



-Calito

Selection d'un repertoir

2 réponses

Votre réponse

Discussions similaires