FAQ/ListReports.md
... ...
@@ -181,13 +181,13 @@ Public Overrides Function ListReports() As ReportInfo()
181 181
Next
182 182
End If
183 183
End If
184
- Return DirectCast(reports.ToArray(), ReportInfo());
184
+ Return DirectCast(reports.ToArray(), ReportInfo())
185 185
End Function
186 186
187 187
Private Shared Sub GetAllXmlFiles(ByVal dir As System.IO.DirectoryInfo, ByRef files As ArrayList)
188 188
Try
189 189
files.AddRange(dir.GetFiles("*.xml"))
190
- Dim subDirs As System.IO.DirectoryInfo[] = dir.GetDirectories()
190
+ Dim subDirs As System.IO.DirectoryInfo() = dir.GetDirectories()
191 191
For Each subDir As System.IO.DirectoryInfo In subDirs
192 192
If Not subDir.Name.StartsWith("~"))
193 193
GetAllXmlFiles(subDir, files)