ABRIR DIRETORIO DENTRO DO VB E SELECIONAR ARQUIVO
Boa Noite Amigos
Atualmente eu gravo o caminho de arquivos dentro do VB (PDF,DOC,XLS etc), gravo o caminho completo, incluindo o nome do arquivo.Dai quando quero abrir esse arquivo, clico em um botao que pega todo o caminho do arquivo e o mesmo e aberto.
Agora eu preciso salvar apenas o diretorio e nao mais os nomes dos arquivos e isso nao devera ser problema.
Eu preciso abrir um diretorio dentro do VB, atraves do caminho gravado e a partir dai, clicar em um arquivo e abri-lo.
Sera que isso e facil.
Obrigado e um Abraço
Atualmente eu gravo o caminho de arquivos dentro do VB (PDF,DOC,XLS etc), gravo o caminho completo, incluindo o nome do arquivo.Dai quando quero abrir esse arquivo, clico em um botao que pega todo o caminho do arquivo e o mesmo e aberto.
Agora eu preciso salvar apenas o diretorio e nao mais os nomes dos arquivos e isso nao devera ser problema.
Eu preciso abrir um diretorio dentro do VB, atraves do caminho gravado e a partir dai, clicar em um arquivo e abri-lo.
Sera que isso e facil.
Obrigado e um Abraço
Amigo
Veja se esta procedure lhe ajuda
Troque a variavel UsuCaminhoDocs pelo seu caminho.. tipo: [Ô]c:\arquivos\[Ô]
Public Sub LerDiretorioLEModelos()
Dim MyFile, MyPath, MyName
MyPath = UsuCaminhoDocs & [Ô]*.doc[Ô] [ô] Setando o caminho
MyName = Dir(MyPath, vbDirectory)
FrmProcuracoes.ListVDocs.ListItems.Clear
Do While MyName <> [Ô][Ô]
If MyName <> [Ô].[Ô] And MyName <> [Ô]..[Ô] Then
Set itemlst = FrmProcuracoes.ListVDocs.ListItems.Add
itemlst = MyName
End If
MyName = Dir
Loop
End Sub
qualquer coisa, é so postar!
Emanuel
Veja se esta procedure lhe ajuda
Troque a variavel UsuCaminhoDocs pelo seu caminho.. tipo: [Ô]c:\arquivos\[Ô]
Public Sub LerDiretorioLEModelos()
Dim MyFile, MyPath, MyName
MyPath = UsuCaminhoDocs & [Ô]*.doc[Ô] [ô] Setando o caminho
MyName = Dir(MyPath, vbDirectory)
FrmProcuracoes.ListVDocs.ListItems.Clear
Do While MyName <> [Ô][Ô]
If MyName <> [Ô].[Ô] And MyName <> [Ô]..[Ô] Then
Set itemlst = FrmProcuracoes.ListVDocs.ListItems.Add
itemlst = MyName
End If
MyName = Dir
Loop
End Sub
qualquer coisa, é so postar!
Emanuel
Tópico encerrado , respostas não são mais permitidas