Dim lvItem As ListViewItem
For Each lvItem In lvFolders.Items
  path = lvItem.Text
  For Each file In IO.Directory.GetFiles(path)
    Dim WordApp As New Word.Application
    WordApp.Documents.Open(FileName:=file)
    WordApp.ActiveDocument.PrintOut(False)
    WordApp.ActiveDocument.Close()
    wordApp.Quit()
  Next
Next