[Resolvido]Identificar Nomes de Pastas Via Código VBA

Prezados,

Sei que não é difícil, pois pesquisei e já vi mensagens sobre algo parecido.
Minha questão:
Necessito identificar (depois armazeno numa matriz) os nomes das pastas,
por exemplo, dentro do drive C identifico as pastas existentes e depois
busco em uma dessas pastas, também os nomes das sub-pastas.

Agradeço pelo auxílio dos amigos.
Abraço

Pessoal,

Peço mil desculpas pelas letras miúsculas no título.
Foi falha minha, mas não estou gritando.

Abraço

Vá no primeiro post.. edite e altere as letras..

Saudações

Voce quer apenas ter acesso as pastas através do access?
Como se fosse no Explorer?

Harysohn,

(Obrigado pela dica da edição).

Na realidade necessito armazenar o nome das pastas e sub-pastas(se existir)
em um determinado path.
Por exemplo, ler e armazenar todas pastas do drive D e dentro da pasta XYZ,
ler e armazenar as sub-pastas.

Grato

Quer armazenar apenas o nome ou o caminho todo?

isso em uma tabela?

Harysohn,

Necessito armazenar o nome da pasta.
Não necessariamente tem que armazenar em uma tabela.
Posso guardar em uma variável (por exemplo, índices de 1 a 50).

Na realidade preciso é do nome da pasta.

abraço

Harysohn,

Para entender melhor o que eu necessito.
Posso estar me explicando mal.

Exemplo:
Se eu tiver uma pasta "Clientes" no drive C.
Meu path já estará definido como "c:\Clientes\".

Dentro desta pasta eu tenho várias outras sub-pastas (definidas com nomes
de clientes).
Ex.: Banco do Brasil, CEF e HSBC.

Então se eu conseguir ler/identificar e armazenar os nomes dessas 3 pastas,
automaticamente posso montar um combo com esses clientes, de maneira que
o usuário escolha qual cliente será pesquisado/trabalhado.

Grato

Eu tenho uma função dessa mas é em VB... pois bem.. postarei aqui talvez algum colega consiga adaptar para o que precisa

'Código que recupera Pastas do Windows, como Strings:
'Ex: C:\Windows\Desktop, C:\Windows\Histórico...
'-------------------
'Código para o Form
'-------------------

Option Explicit
Private Sub Form_Load()
Call AchePastas
End Sub
Private Sub AchePastas()
MsgBox " 0- " & ListaPastas(0) & vbCrLf & _
" 2- " & ListaPastas(2) & vbCrLf & _
" 5- " & ListaPastas(5) & vbCrLf & _
" 6- " & ListaPastas(6) & vbCrLf & _
" 7- " & ListaPastas(7) & vbCrLf & _
" 8- " & ListaPastas( & vbCrLf & _
" 9- " & ListaPastas(9) & vbCrLf & _
"11- " & ListaPastas(11) & vbCrLf & _
"19- " & ListaPastas(19) & vbCrLf & _
"20- " & ListaPastas(20) & vbCrLf & _
"21- " & ListaPastas(21) & vbCrLf & _
"26- " & ListaPastas(26) & vbCrLf & _
"27- " & ListaPastas(27) & vbCrLf & _
"32- " & ListaPastas(32) & vbCrLf & _
"33- " & ListaPastas(33) & vbCrLf & _
"34- " & ListaPastas(34), , " Pastas do Windows"
Unload Me
End Sub

'------------------------
'Código para o módulo BAS
'------------------------
Option Explicit
'APIs
Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ItemDaLista) As Long

'Constantes
Public Type LOCMEIO
CB As Long
ABID As Byte
End Type
Public Type ItemDaLista
MKID As LOCMEIO
End Type

'Função Pública
Public Function ListaPastas(ByVal CSIDL As Long) As String
Dim Zz As Long
Dim StrDoPath As String
Dim IDL As ItemDaLista
Const NOERRO = 0
Const TAM_MAX = 260
On Error GoTo PareFuncao:
Zz = SHGetSpecialFolderLocation(Form1.hWnd, CSIDL, IDL)
'troque o nome do Form1 se ele tiver outro nome
If Zz = NOERRO Then
StrDoPath = Space$(TAM_MAX)
Zz = SHGetPathFromIDList(ByVal IDL.MKID.CB, ByVal StrDoPath)
If Zz Then ListaPastas = Left$(StrDoPath, InStr(StrDoPath, Chr$(0)) - 1)
End If
Exit Function
PareFuncao:
End Function

Amigão.. este ja lista o do dir Raiz.. veja se consegue adaptá-lo


Private Sub Form_Load()
Call ShowFolderList
End Sub


Sub ShowFolderList()
Dim fs, f, f1, fc, s
Dim Folderspec

Folderspec = "C:\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Folderspec)
Set fc = f.SubFolders
For Each f1 In fc
s = s & f1.Name
s = s & vbCrLf
Next
MsgBox s
End Sub

Grande Harysohn,

Não testei a primeira função que vc disponibilizou, mas a segunda
função fiz o teste e "acertou na mosca".
Era o que eu queria mesmo.

Ainda vou testar a função "AchePasta", pois deve ser muito útil também.
A "ShowFolderList" resolveu totalmente o meu problema.

Fico muito agradecido por toda sua atenção.
Um abraço.

O Fórum agradece o retorono..

Saudações