Открытие по очереди всех текстовых файлов из каталога

@KEFIR · Регистрация: 23.11.2014

Author24 — интернет-сервис помощи студентам

Доброго времени суток!
Надо сделать перебор всех текстовых файлов в указанной папке. Я сделал так: все имена текстовых файлов сделал числовыми(1.txt,2.txt,...,n.txt),только так получилось все перебрать. А как сделать цикл, перебирающий все текстовые файлы с не числовым именем(Теория.txt,Практика.txt.........)?

Visual Basic

' задаём папку
FolderPath = "C:\txt"
 
'определение количество файлов в папке
Set fso = CreateObject("Scripting.FileSystemObject")
kolvo = fso.GetFolder(FolderPath).Files.Count
'MsgBox kolvo     'выводим количество файлов в папке
 
'объявим пеpеменнyю для имени файла и его cодеpжимого
  For i = 1 To kolvo
   'ycтановим имя файла и пyть
    File = "C:\txt" & i & ".txt"        
    'загружаем файл с именем i в переменную f для  чтения
    Open File For Input As #1
    'В переменную PS помещаем всё содержимое файла
    PS = Input(FileLen(File), 1)
    'Закрываем файл
    Close #1

~~Shersh~~ · 30.05.2016, 09:13

Visual Basic

For Each f In fso.GetFolder(FolderPath).Files
  If f Like "*.txt" Then
    File = FolderPath & F
    'etc...
  End If
Next

	30.05.2016, 09:13

Открытие по очереди всех текстовых файлов из каталога

Решение