XML И VBA

[Lord_razor]

День добрый!
Есть такая проблема!
В наличии множество папок, по которым расфасовано множество xml-файлов.
Требуется из каждой папки открыть любой файл(имя заранее не известно). считать из него значение одного поля и зафиксировать это значение в каком-нить файле. Единственное, что есть в помощь, так это только список всех папок, которые нужно открыть и в которых лежат требуемые файлы.
Подскажите пожалуйста хотя бы пару моментов, которые в голове моей не укладываются:
1) как открыть эти xml, не запуская их, чтобы считать значение в одном поле
2) как все-таки идентифицировать , короче просто открыть любой 1 файл из папки, не зная заранее точного имени этого файла...
если есть соображения по этому поводу, прошу...

[Sla]

получаешь список файлов
генеришь случайное число от количества файлов
открываешь "любой файл(имя заранее не известно)" по сгенерированному номеру из списка файлов

[Джон]

1) как открыть эти xml, не запуская их, чтобы считать значение в одном поле

Эт ваще бред. В чём тогда разница между "открыть" и "запустить"? Чтобы считать значение хотя бы в одном поле файл всё-равно надо открыть, прочитать, запустить и тп.

[Lord_razor]

Так в том то и вопрос, как сбствн получить этот список имен файлов...

[Джон]

Хммм а ф-ции FindFirstFile и FindNextFile не могут помочь?

[Sla]

где-то так

Код:

Private Sub LoadListFile()
  Dim MyListBox As New ListBox
  MyListBox.Top = 0
  MyListBox.Left = 0
  MyListBox.Width = 200
  MyListBox.Height = 200
  Dim path As New IO.DirectoryInfo("c:\temp\")
  Dim dirfile As IO.FileInfo() = path.GetFiles()
  Dim filelist As IO.FileInfo

  For Each filelist In dirfile
   myListBox.Items.Add(filelist)
  Next
 End Sub

не тестировано

[Lord_razor]

Ох, спасиб, постараюсь довести до ума...

[Lord_razor]

А не подскажете, какую библиотеку необходимо подключить, где находится IO?