ARQUIVOS TXT

Option Explicit

Private Declare Function ShellExecute Lib [Ô]shell32.dll[Ô] Alias [Ô]ShellExecuteA[Ô] (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()

    [ô] Define o caminho do arquivo.
    Dim Diretorio As String
    Diretorio = [Ô]D:\[Ô]
    
    [ô] Define a extensão do arquivo
    Dim Extensao As String
    Extensao = [Ô]txt[Ô]
               
    [ô] Define o nome do arquivo
    Dim Nome As String
    Nome = Dir(Diretorio & [Ô]*.[Ô] & Extensao, vbDirectory)
    
    [ô] Inicia o loop.
    Do While Nome <> [Ô][Ô]
        [ô] Abre o arquivo
        ShellExecute hwnd, [Ô]Open[Ô], (Diretorio & Nome), [Ô][Ô], [Ô][Ô], 1
        [ô] Obtém a próxima entrada
        Nome = Dir
    Loop
    
End Sub