'puede o no ir este
'Private Declare Function WaitMessage Lib "user32" () As Long
 
sub main()
Dim Arch As String
    Arch  = Dir("c:\Folder\*.*")
    Do While Arch  <> ""
        'Aky Llenas el  .Txt con Arch 
 
        Arch  = Dir
        doevents
'        waitmessage 'puede o no ir este
    Loop
end sub
 

Option Explicit
 
Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
 
Private vBloqueado As Boolean
 
Private Sub Form_Load()
   With MSHFlexGrid1
      .FixedCols = 0
 
      .FormatString = "Nombre"
 
      .AddItem "Sebastian"
      .AddItem "Leandro"
      .AddItem "Cobein"
      .AddItem "Ivo"
      .AddItem "Karcrack"
 
      .ColWidth(0) = 1500
      .ColWidth(1) = 0
 
      .RowHeight(1) = 0
   End With
End Sub
 
Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbLeftButton Then
        MSHFlexGrid1.SelectionMode = flexSelectionFree
        MSHFlexGrid1.RowSel = MSHFlexGrid1.Row
        If Not vBloqueado Then LockWindowUpdate (MSHFlexGrid1.hWnd)
        vBloqueado = True
    End If
End Sub
 
Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    MSHFlexGrid1.SelectionMode = flexSelectionByRow
    MSHFlexGrid1.RowSel = MSHFlexGrid1.Row
    LockWindowUpdate (0&)
    vBloqueado = False
End Sub