Kan den selv finde doc filer

Hej.

Opret en filelistbox med pattern  *.doc

ja ja er jeg godt klar over men når jeg markere en mappe skal den automatisk køre alle mine *.doc filer igennem ... sådan jeg ikke skal vælge dem en af gangen med den selv køre en løkke ind til den er færdig med dem alle ?

Hej.

Jeg formodede, at du kender en for / next løkke.

For a = 0 to filelistbox.listcount -1
  din kode
  do events                    'måske påkrævet ?  Eller en timer, der giver tid
                              til at kommandoerne kan nå at blive udført. 
next a

øhh tja har leget med det en gang i C men det kan ikke hjælpe mig at integrere den i min kode ...

Kode :

Private Sub Command2_Click()
 
    Dim prop, antalBrugerDef, f

        Rem ENTEN:

On Error GoTo A:

    Dim appWord As Word.Application
    Dim wrdDoc As Word.Document
    Dim strFileName As String
        strFileName = Dir1.Path + "\" + File1.FileName
        strFileName = Trim(Replace(strFileName, "\\", "\", 1, -1, vbBinaryCompare))
    Set appWord = New Word.Application
    Set wrdDoc = appWord.Documents.Open(strFileName)
        MsgBox (strFileName)

'Her starter udlæsningen       

Open Dir1.Path & "\" + File1.FileName + ".txt" For Output As #2


    antalBrugerDef = ActiveDocument.CustomDocumentProperties.Count
   
    For f = 1 To antalBrugerDef
        With ActiveDocument.CustomDocumentProperties(f)
            MsgBox (.Name + " " + .Value)
            Print #2, (.Name + " : " + .Value)
        End With
    Next f
   


    Rem Eller:

    Rem Vis brugerdef.
    For Each prop In ActiveDocument.CustomDocumentProperties
    navn = prop.Name
    værdi = prop.Value
      Next prop
   


  For Each prop In ActiveDocument.BuiltInDocumentProperties
      MsgBox (prop.Name + " : " + prop.Value)
      Print #2, prop.Name + " : " + prop.Value
     
    Next prop

A:
Print #2, ""
Print #2, " ----> End of File <---- "
Print #2, Dir1.Path + File1.FileName
Close #2


Set f = Nothing
Set prob = Nothing
Set antalBrugerDef = Nothing

wrdDoc.Close
appWord.Quit


End Sub

lukkes