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

Migrate parent folders first

Browse Source 
Before migration sort catalog items by type and folders by name - place
folders in beginning of array and place parent folders before child
folders.
This commit is contained in:
Davis Mosenkovs
2021-11-16 00:31:09 +02:00
parent 3444e43146
commit 9d65f5edbf
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
@@ -1068,3 +1069,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