Início
![[Resolvido]Janela de Verificação Imediata para o Formulário? Empty](https://2img.net/i/empty.gif)
Olá colegas,
Alguém sabe algum código para copiar da Janela de Verificação Imediata para um controle do formulário. Uma caixa de texto por exemplo?
Normalmente o que consigo é apenas o último dado do teste feito. Por exemplo:
Dada a função:
Na caixa de texto(txtPastas) só obtenho o último dado da lista de pastas exibidas na JVI.
Alguém sabe algum código para copiar da Janela de Verificação Imediata para um controle do formulário. Uma caixa de texto por exemplo?
Normalmente o que consigo é apenas o último dado do teste feito. Por exemplo:
Dada a função:
- Código:
Public Function DescobrirPastas()
On Error Resume Next
'declare the starting or root folder – you could get this from the Drives
Dim strRoot As String
strRoot = "C:\"
'declare the variables for use with the Scripting library
Dim fso As New Scripting.FileSystemObject
Dim parent As Scripting.Folder
Dim children As Scripting.Folders
Dim child As Scripting.Folder
Dim fl As File
'get the folder from fso
Set parent = fso.GetFolder(strRoot)
'get the subfolders contained within the root folder
Set children = parent.SubFolders
'iterate through the subfolder under the root and display some data
For Each child In children
'iterate through the files
For Each fl In child.Files
Debug.Print fl.Name & " " & fl.Type
Me.txtPastas = fl.Name & " " & fl.Type
Next
Next
End Function
Na caixa de texto(txtPastas) só obtenho o último dado da lista de pastas exibidas na JVI.
