Пакетное перекодирование ИМЕН файлов - Visual Basic .NET - Ответ 4931852

Dim dirinfo As DirectoryInfo
         Dim dirList() As DirectoryInfo
         Dim fileList() As FileInfo 
         Dim i, j as integer
         If System.IO.Directory.Exists(sCustomerParamPath) Then
 
               dirinfo = New DirectoryInfo(sCustomerParamPath & "\")
               dirinfo.Refresh()
 
               dirList = dirinfo.GetDirectories()
 
               For j = 0 To dirList.Length - 1
                     fileList = dirList(j).GetFiles("*.txt") ' указываем нужное расширение, к примеру txt
                     If fileList.Length > 0 Then
                     ' ьberhaupt eine vorhanden ?
                     For i = 0 To fileList.Length - 1
                             console.writeline ("Имя файла: " & fileList(i).Name.tostring & " Директория файла: " & fileList(i).Directory.Name.tostring)
                      Next i
              Next j
          end if