Как распечатать содержимое нескольких текстовых файлов одним щелчком мыши

Question

Есть ли способ распечатать текст из нескольких текстовых файлов одним нажатием кнопки? Код, который я использую в настоящее время, показан ниже.

Dim FilePath = New DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Employee Record\" & TextBox1.Text)) 
 

 
      Dim FileNameRTO As String = Path.Combine(FilePath.FullName, TextBox2.Text + ".RTO") 
 
      Dim ObjectReaderRTO As New System.IO.StreamReader(FileNameRTO) 
 
      
 
      RichTextBox1.Text = ObjectReaderRTO.ReadToEnd 
 
      ObjectReaderRTO.Close()

текущий код выполняет поиск на рабочем столе папку «Сотрудник Record» для поддиректории, название которой указано в TextBox1.Text.

Затем код ищет внутри подкаталога для текстового файла (расширение файла RTO), заголовок которого указан в TextBox2.Text.

Предполагая, что в подкаталоге имеется более одного текстового файла RTO, как я могу распечатать весь текст в один отчет одним щелчком мыши? Это возможно? Я использую Visual Basic 2010. Спасибо заранее.

Answer 1

Вы создали объект DirectoryInfo для этой папки. Вы можете использовать метод GetFiles, чтобы получить все файлы с расширением .RTO, и добавить их в RichTextBox, как это:

Dim FilePath As DirectoryInfo = New DirectoryInfo(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Employee Record\" & TextBox1.Text)) 

RichTextBox1.Clear 'omit this line if you want to keep the current contents 
For Each FileRTO As FileInfo In FilePath.GetFiles("*.RTO", SearchOption.TopDirectoryOnly) 
    RichTextBox1.AppendText(File.ReadAllText(FileRTO.FullName)) 
Next