dsa, Вот ещё вариант
Код:
Dim dArray(), idx, idx1, SFCount Idx=1 SFCount=1 Set FSO = CreateObject("Scripting.FileSystemObject") ReDim Preserve dArray(idx) dArray(idx)=InputBox ("Введите полный путь к папке") Sub SFfunc If SFcount=0 and idx1=idx Then exit sub SFCount=0 idx1=idx1+1 Set SD=FSO.GetFolder(dArray(idx1)) For each SF in SD.Subfolders idx=idx+1 Redim Preserve dArray(idx) dArray(idx)=SF.Path SFCount=SFCount+FSO.GetFolder(dArray(idx)).SubFolders.Count call SFfunc next end sub
Врезультате в се подпапки записываются в массив dArray, а там ищи файлы или что надо делай.
