Поочередное считывание и обработка всех файлов txt из папки - VB

Узнай цену своей работы

Формулировка задачи:

форумчане, подскажите, плз, как выполнить процедуру. я только начинаю разбираться в системе есть форма, на ней поле, куда вносится путь к папке, где хранятся много файлов .txt. мне надо, чтобы нажимая одну кнопку, все файлы обработать и записать данные в таблицу(все файлы однотипные).

Решение задачи: «Поочередное считывание и обработка всех файлов txt из папки»

textual
Листинг программы
 Dim sT As String
  Dim iI As Integer
  Dim sFnA As String
  Dim iRet As Integer
  '
  frmMain.MousePointer = 11
  ' Проверки
  If "" = Trim$(txtDir.Text) Then
    sT = "Не указан обрабатываемый каталог для исходников!"
    MsgBox sT, 48, PRG_NAME
    frmMain.MousePointer = 0
    Exit Sub
  End If
  '
  ' Присваиваем имя каталога и расширение FileListBox
  filMain.Path = Trim$(txtDir.Text)
  filMain.Pattern = "*.txt"
  filMain.Refresh
  MsgBox "Файлов - штук -" + Str$(filMain.ListCount)
  For iI = 0 To filMain.ListCount - 1 Step 1
    filMain.ListIndex = iI
    ' Здесь вставляете Вашу обработку,
    ' а пока будет выводится MsgBox c именем фала
    sFnA = LCase$(sDirTrue(filMain.Path) + filMain.filename)
    MsgBox sFnA
    iRet = DoEvents() ' Это - чтобы на цикле можно было Alt+TAB перейти в другую программу
  Next iI
  MsgBox "Все файлы кончились. Обрабатывать нечего."
  frmMain.MousePointer = 0

Оцени полезность:

7   голосов , оценка 4 из 5
Похожие ответы