I am trying to add files names and path to a listbox. I have everything working, but now I want to add 2 file extensions to each listbox not just one.
How can I make this work as I want?
My code is below...
Currently it only adds the first (.mpg) to the list and ignores .TS
Dim folderInfo7 As New IO.DirectoryInfo("X:\Encoded2\MCVOD\archive")
Dim arrFilesInFolder7() As IO.FileInfo
Dim fileInFolder7 As IO.FileInfo
arrFilesInFolder7 = folderInfo7.GetFiles("*.MPG")
Dim folderInfo8 As New IO.DirectoryInfo("X:\Encoded2\MCVOD\archive")
Dim arrFilesInFolder8() As IO.FileInfo
Dim fileInFolder8 As IO.FileInfo
arrFilesInFolder8 = folderInfo8.GetFiles("*.ts")
Form2.ProgressBar2.Value = 8
Form2.Label2.Text = "Loading Content List For Archive Folder"
For Each fileInFolder7 In arrFilesInFolder7
Form2.ProgressBar2.Value = 9
For Each fileInFolder8 In arrFilesInFolder8