Estou usando a solução deste post (http://maximoaccess.forumeiros.com/t11467-resolvidoanexar-arquivos-para-determinada-pasta-criando-a-pasta-com-o-cod-de-identificacao-e-criando-hiperlink-para-a-pasta). Porém, quando executo ele não abre a caixa de diálogo e já pula direto para a mensagem:
MsgBox "Voce não selecionou nenhum arquivo!", vbInformation, _
"UpLoad Cancelado"
Ele não abre a caixa de diálogo. Fiz a alteração no início do código para:
Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Mas, mesmo assim não dá certo.
Como adaptar para funcionar?
Agradeço desde já.
MsgBox "Voce não selecionou nenhum arquivo!", vbInformation, _
"UpLoad Cancelado"
Ele não abre a caixa de diálogo. Fiz a alteração no início do código para:
Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Mas, mesmo assim não dá certo.
Como adaptar para funcionar?
Agradeço desde já.