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