Início
![[Resolvido]Variavel toma o valor de caminho (diretorio) Empty](https://2img.net/i/empty.gif)
RFPS Sex 02 maio 2014, 12:32Preciso de guardar o caminho numa variavel, mas nao estou a conseguir, o codigo abaixo deixa escolher o diretorio/pasta, sem selecionar os arquivos texto.
Dim objFld As Object, objShl As Object
Dim getdir As String
Set objShl = CreateObject("Shell.Application")
Set objFld = objShl.BrowseForFolder(0, TextToTitle, 0)
If Not objShl Is Nothing Then
getdir = objFld.self.Path
End If
Set objShl = Nothing
Set objFld = Nothing
Tentei executar esta linha, mas nao esta funcionando --> DiretorioArquivo = getdir
preciso de atribuir o caminho para a variavel DiretorioArquivo, de maneira a que consiga executar o seguinte codigo:
dim DiretorioArquivo as string
ArquivoTexto = Dir(DiretorioArquivo & "*.txt", vbArchive)
Dim objFld As Object, objShl As Object
Dim getdir As String
Set objShl = CreateObject("Shell.Application")
Set objFld = objShl.BrowseForFolder(0, TextToTitle, 0)
If Not objShl Is Nothing Then
getdir = objFld.self.Path
End If
Set objShl = Nothing
Set objFld = Nothing
Tentei executar esta linha, mas nao esta funcionando --> DiretorioArquivo = getdir
preciso de atribuir o caminho para a variavel DiretorioArquivo, de maneira a que consiga executar o seguinte codigo:
dim DiretorioArquivo as string
ArquivoTexto = Dir(DiretorioArquivo & "*.txt", vbArchive)
Última edição por RFPS em Ter 06 maio 2014, 08:57, editado 1 vez(es)