ПОДСКАЖИТЕ, ПОЖАЛУЙСТА,
КАК РАСПЕЧАТАТЬ

ОГЛАВЛЕНИЕ ПАПКИ,

пускаёй для начала БЕЗ ПОДПАПОК,
т.е. папка НЕ СОДЕРЖИТ ПАПОК -
самый низкий уровень

СПАСИБО

авторНу и вопросик. :))

Т.е. ты хочешь получить список всех файлов в указанной папке?
ДА.
Код нижеприведенный с ошибками,
ВОЗМОЖНО БИБЛИОТЕКУ НАДО КАКУЮ-ТО ПОДКЛЮЧИТЬ ?

Dim strPath As String, strName As String
strPath = "d:\1_AccessFriamat_100805\MyAccess" 'Путь'
strName = Dir(strPath)
MsgBox strName ' ПУСТУЮ СТРОКУ ВЫВОДИТ
Do Until strName <> ""
'Тут делаешь с strName что хочешь, например сообшение выдаёшь
MsgBox strName
'- strName = Dir(strPath) ' Вечный цикл, только {CTRL - ALT - DEL}
strName = Dir ' Run-time error '5'
'Invalid procedure call or argument

Loop

УВАЖАЕМЫЙ,
Toking

ТАК,

БОЛЬШОЕ СПАСИБО