VBasic Работа с файловой системой

IT 01.07.2004 - 07:58 | Обойти надо все файлы в конкретном каталоге, поочередно их открыть, собрать все цифры и Закрыть. Вопрос главный : как их все обойти попорядку, не пропуская ?
IT 1 - 01.07.2004 - 08:19 | VBasic К - нить сдесь есть по этой системе ?
wwwNet 2 - 01.07.2004 - 09:25 | Вот пример на C#: private void WorkWithSubDirectory(DirectoryInfo aDir) { try { WorkWithFilesInDir(aDir); foreach (DirectoryInfo nextDir in aDir.GetDirectories()) { //Поверка ошибочных путей в поддиректориях, можно опустить if (IsErrPath(nextDir.Name)) { aErrPathList.Add(nextDir.FullName); } Application.DoEvents(); //Рекурсивный просмотр директорий WorkWithSubDirectory(nextDir); } } catch { } } private void WorkWithFilesInDir(DirectoryInfo aDir) { try { foreach (FileInfo aFile in aDir.GetFiles()) { //Этот код замени своим Application.DoEvents(); if (aFile.Extension.ToLower()==".arj") { repaitIf: if (Directory.Exists(txtResult.Text.Trim()+"\\"+otchetMounth+"\\"+aFile.Name.Substring(0,3)+"\\"+aFile.Name.Substring(3,2)+"\\"+Convert.ToString(i))) { i+=1; goto repaitIf; } Directory.CreateDirectory(txtResult.Text.Trim()+"\\"+otchetMounth+"\\"+aFile.Name.Substring(0,3)+"\\"+aFile.Name.Substring(3,2)+"\\"+Convert.ToString(i)); File.Copy(aFile.FullName, txtResult.Text.Trim()+"\\"+otchetMounth+"\\"+aFile.Name.Substring(0,3)+"\\"+aFile.Name.Substring(3,2)+"\\"+Convert.ToString(i)+"\\"+aFile.Name); statusBarFile.Panels[0].Text ="Файл: "+aFile.Name; } } } catch { } } В первую функцию передавай корневую папку и далее алгоритм рекурсивно будет просматривать все подкаталоги. На VB.Net тоже самое.

>>