хочУ прогуляться по файлам....

[O(- |-)O]

у мене проблема такова- есть папка одна смешная- мне надо в ней пройтись по всем файлам да не просто- допустим "ц:/компьютеры" а в ней у меня файлы с данными екселя по компютерам, так вот мне надо штобы, он возвращял имя файла как стринг, проверяю нужен ли он мне- по имени. а потом если нужен тады я с нево данные достаю- так вот как сделать
- переход от файла к файлу по всей папке с просмотром имени файла?

[alibek]

Код: Выделить всё

Dim Files() As String, C As Long, I As Long, F As String
F = Dir$("C:\Computers\*.xls")
C = 0
I = 0
ReDim Files(0)
While Len(F) > 0
  C = C + 1
  If C > I Then
    I = I + 100
    ReDim Preserve Files(0 To I)
  End If
  Files(C) = F
  F = Dir$()
Wend
If C > 0 Then ReDim Preserve Files(0 To C)
'В массиве Files() содержаться имена всех .xls-файлов


[O(- |-)O]

pasib!