Synkronisering af Mine Favoritter

Ups, fik ikke kopieret det hele med, sorry

Jeg er ved at lave en synkronisering af mine favoritter over i en database og skal i den sammenhæng løbe HELE vejen igennem min favoritfolder-struktur.

Alle foldere og tilhørende url adresser skal læses og oprettes i en database. Jeg har oprettet databasen som kan håndtere en træstruktur og til synkroniseringen mellem klient og server jeg noget kode fra aspupload.com :-)

Rent styrringsmæssigt har jeg problemer med at lave noget overskueligt kode som kan holde styr på hvor langt den er kommet i hierarkiet.

Jeg har også kigget lidt på rekursive kald for at se om løsningen skulle ligge her uden held.

DET JEG ØNSKER AT FØLGENDE :

1. Når der findes et DIR skal dette oprettes og alt underlægge skal læses. Hvis der i DIR findes                 et nyt DIR skal dette også læses osv.
2. Hvis der findes en URL-fil i DIR læses http-adressen som også oprettes i databasen

RESULTAT : En kopi at strukturen af favorit-folderen.


Hvis der er nogen som kan lave/skitserer en løsning så vil jeg være meget taknemlig. Jeg ligger ud med 30 point for en skitse, men hvis der fremkommer en løsning er der flere point at hente :-))

Underlæggende \"grovkode\" er for at vise hvad jeg har gang i :

-------------------------------------------------------------------------------

if DirPath = \"\" then
    DirPath = \"C:\\Temp\\Favorites\\\"
end if

Directory = DirPath
Set Upload = Server.CreateObject(\"Persits.Upload.1\")
Set Dir = Upload.Directory( Directory & \"*.*\", SORTBY_NAME)

For Each Item in Dir
    If Item.IsSubdirectory Then
        if Item.FileName <> \".\" and Item.FileName <> \"..\" then
            if not FolderExist(Item.FileName) then
                CreateFolder(Item.FileName)
                ReadNewFolderId()
                DirPath = DirPath & Item.FileName & \"\\\"
                Response.Redirect \"Sync.asp?DirPath=\" & DirPath & \"&GroupId=\" & GroupId
            end if
        end if
    Else
        if not FavoriteExist(Item.FileName) then
            ReadFavoriteContense(DirPath & Item.FileName)
            CreateFavorite()
        end if
    End If
Next

------------------------------------------------------------------------------

På forhånd tak.
BK

Ja, jeg har fundet en løsning hos 4guysfromrolla.com, så tak for denne gang.