Sourcesafe et vb.net

Bonjour,
J'ai un petit probleme en ce qui concerne la récupération de projets archivés sur sourcesafe.
Ce que je voudrais c'est télécharger l'intégralité de l'arborescence d'un projet sur mon poste local.
J'ai tenté avec ceci :

 Public Sub liste_projets(ByVal chemin_ini As String, ByVal user As String, ByVal mdp As String, ByVal chemin_rep As String)
        Dim VSS As VSSDatabase
        Dim Item As VSSItem
        Dim ChildItem As IVSSItems
        VSS = New VSSDatabase

        Try
            VSS.Open(chemin_ini, user, mdp)
        Catch ex As Exception
            Throw New Exception("Connexion VSS : " & ex.Message)
        End Try

        Item = VSS.VSSItem(chemin_rep)
        ChildItem = Item.Items(False)

        For Each it As VSSItem In ChildItem
            If (it.Type = 0) Then
                ListBox1.Items.Add(it.Name)
                parcour_items(it, lvl)
            End If
        Next
    End Sub

    Public Sub parcour_items(ByVal item As VSSItem, ByVal lvl As Int16)
        Dim ChildItem As IVSSItems

        Try
            ChildItem = item.Items(False)
        Catch ex As Exception
            Throw New Exception("ChildItem de " & item.Name & " : " & ex.Message)
        End Try

        For Each it As VSSItem In ChildItem
            it.Get("c:/toto/", VSSFlags.VSSFLAG_GETYES)
        Next
    End Sub

Mais le problème est que je récupère uniquement les fichiers mais pas les dossiers ...
Quelqu'un a une idée ?

Vinzouille