AndreyMp,
objFSO As New FileSyste - не определён, и в references нет FSO!
Пожалуйста,дайте работающий код!
Если можно, помогите решить задачу:
Есть папка "А", содержащая только папки "В", содержащие файлы "С". Нужно в каждой "С"
вызвать первый файл для его обработки. Все имена - цифровые, тип файлов - ".dcm".
Спасибо.

катастрофа,
Вот всё,что там есть на "F".

Казанский,

Большое спасибо за помощь всем!
Я сделал с Dir, список всех подпапок создаётся, но не передаётся во вторую часть, попытка декларировать List1 As Control не проходит. Что можно сделать?

Dim X As String, A As String, i As Single, Z As String
Private Sub form_load()
i = 0
Y = "d:\A\"
X = Dir(Y, 16)
Do While Not X = ""
List1.List(i) = X + Chr(10)
X = Dir
i = i + 1
Loop
Form1.Visible = True
List1.Visible = True
k = i - 1
End Sub
Private Sub command1_click()
For k = 2 To i ' пропуск "." & ".."
Z = Y + List1.List(k)
G = Dir(Z, vbDirectory) 'Bad file namt or number
Next k
'передача файла на обработку
End Sub

Это уже было!

Понял - нужно добавить sub form_load().
Код отлично работает.
СПАСИБО ВСЕМ!
Но у меня ещё вопрос по работе. Я вообще-то электронщик (военный), но с 69 года работаю в медицине. Программирую по необходимости. Ситуация такая: раньше eFilm создавал свои таблицы в acsses97, но в новой версии используется sql server 2005 express. Поскольку это форум sql, то прошу помочь мне прочитать таблицы этого sql.

mds_world,

Я рано обрадовался, но виноват сам - ошибся в постановке задачи.
На самом деле структура такая: папка A содержит папки B (Study), каждая B содержит папки C (Series), и только каждая C содержит файлы D (Images). Я помучился, добавил вторую часть кода, но не могу понять, почему вместо первого файла D, соответствующего папке A, получаю список всех D, соответствующих папке A. Т.е. во второй части кода не
проходит цикл по папкам A (цикл по i)? Уже мозги плавятся!
SOS!



Модератор: Учимся использовать тэги оформления кода - FAQ

VladConn,

mds_world,

Привет!
Этот код выдаёт всё подряд: и файлы, и папки. Если закомментирова второй Debug.Print, то выдаются все файлы подпапок (С). Для работы мне нужно из каждой подпапки (B) исходной папки (А) по одному из множества файлов подпапок (C), т.е. каждой (B) cоответствует один файл. В GOOGLE нашел интересный момент:

For Each element [ As datatype ] In group
[ statements ]
[ Exit For ]
[ statements ]
Next [ element ]

Компоненты:
element
Обязателен в операторе For Each. Необязателен в операторе Next. Переменная. Используется для циклическогопрохода (итерации) элементов коллекции.
datatype
Обязателен, если еще не объявлен элемент element. Тип данных element.
group
Обязательный компонент. Объектная переменная. Указывает на коллекцию, применительно к элементам которой будут повторяться операторы statements.
statements
Необязательный компонент. Один или несколько операторов, стоящих между операторами For Each и Next и выполняющихся применительно к каждому элементу group.
Exit For
Необязательный компонент. Передача управления из цикла For Each.
Next
Обязательный компонент. Завершение определения цикла For Each.

Источник: http://msdn.microsoft.com/ru-ru/library/5ebk1751%28v=vs.90%29.aspx

По идее, нужно прерывать цикл по B, как только нашёлся первый ".dcm". Можно, конечно, сделать фильтр списка файлов на уникальность элемента B, но исполняемый код будет очень долго работать. А мне ещё файлы обработать нужно! Я пока не понимаю, как работают циклы в FSO, т.е. не знаю, как вставить Exit For. Если есть время, помогите!
Спасибо!
P.S. Пока писал, подумал, что, наверное, в цикле по oFile можно проверить атрибут, но есть-ли в FSO что-то типа File.Attribute.Name?

Казанский,

Доброго времени суток!
Спасибо за науку.
Только этот код выдает первые файлы всех подпапок последнего уровня, а нужно для каждой подпапки папки А только один файл. ОчевидноБ нужна внешняя процедура на уникальность имени подпапки В, что-то вроде
Sub Filtr(Spath,Z)
Const startB As String = ":\"
Const endB As String = "\"
x = InStr(sPath, startB)
y = InStr(sPath, endB)
Dim temrB As String
Dim temrorB As String
Mid(sPath, x, y - x) = tempB
If tempB <> temporB Then
tempB = temporB
Exit For (если внутри, или z=False, если Sub)
End If
End Sub
Я попытался так сделать, но запутался в логике. Как нужно?
Ещё раз благодарю ВАС!

скукотища,

Наконец-то получилось то, что было нужно. Вот работающий код:

Option Explicit

Dim oFSO As Object
Public temporB As String
Public i As Integer, j As Integer
Sub Form_load()
i = 0
Const sPath As String = "d:\A\"
Set oFSO = CreateObject("Scripting.FileSystemObject")
Call recurse(sPath)
End Sub

Sub recurse(sPath As String)
Dim oFolder As Object
Dim oSubFolder As Object
Dim oFile As Object
Set oFolder = oFSO.GetFolder(sPath)

For Each oFile In oFolder.Files
Dim Nam As String
If LCase(oFile.Name) Like "*.dcm" Then
Nam = sPath & "\" & oFile.Name
Call Filtr(Nam)
Exit For
End If
Next oFile

For Each oSubFolder In oFolder.SubFolders
Call recurse(oSubFolder.Path)
Next oSubFolder
Call Osnova

End Sub
Sub Filtr(Nam)
Dim x As Long, y As Long, z As Long
Dim tempB As String
x = InStr(Nam, ":\")
y = InStr(x + 2, Nam, "\")
z = InStr(y + 1, Nam, "\")
tempB = Mid(Nam, y + 1, z - y - 1)
If tempB <> temporB Then
temporB = tempB
List1.List(i) = Nam
i = i + 1
End If
End Sub
Sub Osnova()
For j = 0 To List1.ListCount
'Обработка
Next j
End Sub

Остались два нерешенных вопроса:
как скрыть окно Immediate
и как перед вызовом Osnova очистить память от мусора FSO (Nothing не проходит).