[Resolvido]Erro ao abrir Formulário

Bom dia,

Quando abro um form de um exemplo que peguei aqui no Fórum, está dando o erro:

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

Diz que o código deste projeto deve ser atualizado para uso em sistema de 64 bits.


Como posso resolver isso?


Obrigado.

bom dia Ismael,

Em plataforma 64 bits, é necessário incluir a palavra-chave "PtrSafe" nas declarações.


Segue:

Código:



Private Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" Alias _
"SHGetPathFromIDListA" (ByVal pidl As Long, _
ByVal pszPath As String) As Long

Private Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" Alias _
"SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) _
As LongOption



Boa sorte

[]'s

Obrigado Alexandre.

Resolvido!

Valeu Ismael
O fórum agradece.

Abraços