Página 1 de 1

Extrair nomes de arquivos em diretório - Access

Enviado: Qui Abr 25, 2019 12:08 pm
por danieldumaresq
Pessoal, criei em VBA no Excel um código para extrair nomes de arquivos que tenho em uma pasta no PC. Essa pasta é constantemente atualizada com novos arquivos e o número de arquivos já ultrapassou o número de linhas disponíveis no Excel, por isso preciso migrar para o Access. O problema é que não consegui replicar o mesmo projeto. Se alguém puder ajudar, segue o código construído para o Excel:


Sub listfiles()

Dim sPath As String
Dim vaArray As Variant
Dim i As Integer
Dim oFile As Object
Dim oFSO As Object
Dim oFolder As Object
Dim oFiles As Object
sPath = Worksheets("Importar placas").Rows(1).Columns(2)

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sPath)
Set oFiles = oFolder.Files

If oFiles.Count = 0 Then Exit Sub

ReDim vaArray(1 To oFiles.Count)
i = 1
For Each oFile In oFiles
vaArray(i) = oFile.Name
Worksheets("Placas").Rows(i).Columns(1) = vaArray(i)
i = i + 1
Next

End Sub



Grande abraço :D