d13a6cea23d6005d406072760b93d76f5ad5d014
FAQ/ListReports.md
| ... | ... | @@ -156,7 +156,7 @@ Public Overrides Function ListReports() As ReportInfo() |
| 156 | 156 | Dim dirName As String = Path.GetFullPath(dir.FullName) |
| 157 | 157 | Dim fileArray As New ArrayList() |
| 158 | 158 | GetAllXmlFiles(dir, fileArray) |
| 159 | - Dim files As FileInfo() = (FileInfo[])fileArray.ToArray(typeof(FileInfo)) |
|
| 159 | + Dim files As FileInfo() = DirectCast(fileArray.ToArray(typeof(FileInfo)), FileInfo()) |
|
| 160 | 160 | For Each file As FileInfo In files |
| 161 | 161 | If file.Extension = ".xml" Then |
| 162 | 162 | Try |