> Thank you all for helping me.
> Solve my problem, now it works fine. I show the code how it works.
>
> Dim sResult_Theme As String
> Dim sA As String
> Dim i, e As Integer
> Dim ssA As String[]
> Dim ssB As String[]
> Dim ssC As New String[]
> Dim sListUser As String
> Dim sListShare As String
>
> ssA = New String[]
> For Each sDir In Dir("/usr/share/themes", Null, gb.Directory)
> ssA.Add(sDir)
> Next
>
> ssB = New String[]
> For Each sListUser In Dir( Desktop.DataDir &/ "themes/", Null,
> gb.Directory)
> ssB.Add(sListUser)
> Next
>
> For e = ssA.Max To 0 Step -1
> sA = ssA[e]
> For i = ssB.Max To 0 Step -1
> If sA = ssB[i] Then
> ssA.Remove(e)
> ssB.Remove(i)
> ssC.Push(sA)
> Break
> Endif
> Next
> Next
> ssC.Insert(ssA)
> ssC.Insert(ssB)
> ssC.Sort()
>
> For Each sA In ssC.Sort(gb.Ascent)
> Print sA
> Next
>
>
> Regards
>
>Isn't that faster?
> Dim cThemes As New Collection
> Dim sTheme As String
> Dim sDir As String
> For Each sDir In Dir("/usr/share/themes", Null, gb.Directory)
> cThemes[sDir] = True
> Next
> For Each sDir In Dir(Desktop.DataDir &/ "themes/", Null, gb.Directory)
> cThemes[sDir] = True
> Next
> For Each cThemes
> aThemes.Add(cThemes.Key)
> Next
> aThemes.Sort(gb.Ascent)
> For Each sTheme In aThemes
> Print aThemes
> Next
> --
> Beno?t Minisini
Thanks Benoit, your code work for me.
Regards
------------------------------------------------------------------------------
Check out the vibrant tech community on one of the world's most
engaging tech sites, Slashdot.org! http://sdm.link/slashdot
_______________________________________________
Gambas-user mailing list
Gambas-user@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/gambas-user
