[Coffeehouse] Rekursion - ich steh' voll auf der Leitung....

[Mayer, Stefan]

Es ist so - ich soll einen Verzeichnisbaum in eine Datenbank schreiben - und zwar mach 
ich so:

Gegeben ist das Startverzeichnis, sowie eine Tabelle namens "Ordner" (beinhaltet 
Ordnername, Zahl der Files, Zahl der Subfolder)

Ich lese mit folgender Routine die Daten des ersten Ordners ein:

--- cut ---
        Set Folder = FSO.GetFolder(strFolder)

        Set Files = Folder.Files
        FC = Files.Count 
        if FC > 0 then
                For Each File In Files
                        FS = FS + File.Size 
                Next
        end if
        
        Set SubFolders = Folder.SubFolders
        SFC = SubFolders.Count 
        
        strSQL = "Select * From Ordner WHERE Ordner='"& strFolder & "'"
        Set RS=Server.CreateObject("ADODB.REcordset")
        RS.Open strSQL, strConn,3,3
        If RS.Eof then
                RS.AddNew
                rs("Ordner") = strFolder
        End if
        RS("Files") = FC
        RS("Bytes") = FS
        RS("SubFolder") = SFC
        RS("Gescannt") = "Ja"
--- cut ---

Danach schreibe ich alle Namen der Unterverzeichnisse in die Datenbank:
If SFC > 0 then
        For Each SubFolder In SubFolders
                strSQL = "Select * From Ordner WHERE Ordner='"& SubFolder.Path & '"
                RS.Open strSQL, strConn,3,3
                If RS.Eof then
                        RS.AddNew
                        rs("Ordner") = SubFolder.Path 
                End if          
                RS("Files") = -1
                RS.Update
                RS.Close        
        Next
end if

Tja, und wie weiter?

Ich mu� irgendwie als der Datenbank alle Datens�tze auslesen, die im Feld "Gescannt" 
KEIN "Ja" drinnen stehen haben, solange es solche Datens�tze gibt.

Aber wie?
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse