PROBLEMA COM BROWSEFORFOLDER

USUARIO.EXCLUIDOS 12/08/2007 14:32:05
#230576
Bem pessoal, eu to tentando pegar o caminho da pasta que o usuário escolheu, para abrir os arquivos que estão dentro desta pasta, mas não ta dando, pq a variável 'pasta' ta ficando vazia. Já referenciei no meu projeto o Microsoft Scripting Runtime e O Microsoft Shell and Automotion.

O código está aí:
Private Sub menu_file_Click()
  Dim dir As Shell
  Dim pasta as Folder
  Set dir = New Shell
  Set pasta = dir.BrowseForFolder(0, "Selecione uma Pasta", 0)
  'Depois do comnado acima o conteúdo variável pasta é "Notinhig", pq
  'Isso que está dando errado
End Sub



Obrigado
USUARIO.EXCLUIDOS 12/08/2007 15:03:13
#230578
vc tem que escrever

dim pasta as new folder

ou

Set pasta = new folder

testa ai



USUARIO.EXCLUIDOS 12/08/2007 17:39:55
#230581
Citação:

vc tem que escrever

dim pasta as new folder

ou

Set pasta = new folder

testa ai



O VB não aceita, dá a mensagem:

Compile Error:
Invalid Use of New keyword
WEBMASTER 12/08/2007 22:13:08
#230599
Não é mais facil voce simplesmente copiar o codigo de browse for folder aqui do site do que ficar referenciando objeto ?
USUARIO.EXCLUIDOS 13/08/2007 00:39:53
#230602
Esse codigo q eu passei é igualzinho a um q eu peguei aki no site, mas o q eu peguei funciona, e o meu nao ta dando certo.
USUARIO.EXCLUIDOS 13/08/2007 09:30:24
#230617 Resposta escolhida
Amigo, fiz da forma abaixo e funcionou!!!

    Dim dir As Shell
    Dim pasta As Folder
    Dim arq As FolderItem
    
    Set dir = New Shell
    Set pasta = dir.BrowseForFolder(Me.hWnd, "Teste", 0)
    
    For Each arq In pasta.Items
        MsgBox arq.Path
    Next



Porém ressalto que apenas referenciei o "Microsoft Shell And automation........", creio que não precisa da outra referência que vc criou, e pode ser exatamente isto que está causando o problema.


Se continuar não funcionando, posto o projeto de exemplo aqui pra vc dar uma olhada.
USUARIO.EXCLUIDOS 13/08/2007 11:55:11
#230672
Muito obrigado!

Funcionou perfeitamente e não precisava da outra referencia mesmo!
USUARIO.EXCLUIDOS 13/08/2007 13:15:26
#230693
Então tá blza... qualquer coisa posta aí...

E se já estiver tudo resolvido, só não esquece de encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas
Voltar