github/sql-server-samples
1
0
Fork 0
mirror of https://github.com/Microsoft/sql-server-samples.git synced 2025-12-08 14:58:54 +00:00
Code Issues Releases Wiki Activity

Merge pull request #973 from DavisNT/ssrs_migration-fix

Browse Source 
Migrate parent folders first
This commit is contained in:
Umachandar Jayachandran
2022-03-02 22:27:12 -08:00
committed by GitHub
parent b1fd2501bd 9d65f5edbf
commit 42dc269f44
1 changed files with 13 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/features/reporting-services/ssrs-migration-rss/ssrs_migration.rss
+13
View File
@@ -193,6 +193,7 @@ Sub Main()
Dim timeout As Integer = RsSrc.Timeout
RsSrc.Timeout = 600000 '10 minutes
srcItems = RsSrc.ListChildren(GetSrcFolderPath(), True) 'Possible catalog item types: Model, Dataset, Component, Resource, DataSource, Folder, Report
Array.Sort(srcItems, New Comparison(Of CatalogItem)(AddressOf SortParentFoldersFirst))
RsSrc.Timeout = timeout
For Each ci As CatalogItem In srcItems
@@ -1091,3 +1092,15 @@ Sub WriteSuccess()
Console.WriteLine(" ... SUCCESS")
Console.ResetColor()
End Sub
Function SortParentFoldersFirst(first As CatalogItem, second As CatalogItem) As Integer
If first.TypeName = "Folder" And second.TypeName <> "Folder" Then
Return -1
ElseIf first.TypeName <> "Folder" And second.TypeName = "Folder" Then
Return 1
ElseIf first.TypeName <> "Folder" And second.TypeName <> "Folder" Then
Return 0
Else
Return String.Compare(first.Path, second.Path)
End If
End Function