Bueno, antes de ponerte el ejemplo que solicitas, un par de observaciones:
Primero, en vez de pedir inmediatamente un ejemplo, deberías buscar información sobre lo que te indicaron (en este caso cómo grabar un archivo txt y qué hace la función Dir).
Segundo, cuando te contesten a una pregunta, suele ser de buena educación al menos, indicar si se resolvió el problema o no y no dar por callada la respuesta (ten en cuenta que a lo mejor otro forero tiene la misma duda).
Después de lo indicado, te pongo el ejemplo (que espero esta vez nos digas si resolvió tu inquietud o no).
Código vb:
Ver originalFunction GuardarArchivos(ByVal sDir As String)
Dim MisArchivos As String
MisArchivos = Dir(sDir, vbDirectory)
Dim sArchivo As String
sArchivo = App.Path & "\Prueba.txt"
Open sArchivo For Output As #1
Do While MisArchivos <> ""
If MisArchivos <> "." And MisArchivos <> ".." Then
If Not (GetAttr(sDir & MisArchivos) And vbDirectory) = vbDirectory Then
Print #1, sDir & MisArchivos
End If
End If
MisArchivos = Dir
Loop
Close #1
MsgBox "Se guardaron los archivos en " & sArchivo
End Function
El parámetro que le tienes que pasar a la función es la ruta completa de donde están los archivos.
Para recuperarlos, sólo abres el archivo txt con la instrucción Open para lectura.
