Function ListDir(ByVal StartDir As String) As Collection

Dim rs As New ADODB.Recordset

rs.Open "TblDosyalar", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



Dim sCurFile As String

Dim sCurDir As String

Dim colDir As Collection



If Right$(StartDir, 1) <> "\" Then StartDir = StartDir & "\"

Set colDir = New Collection

Set ListDir = New Collection



colDir.Add StartDir

While colDir.Count

    'remove current directory from directory list

    sCurDir = colDir.Item(1)

    colDir.Remove 1

    'find all files and subdirectories in current, add to list

    sCurFile = Dir$(sCurDir, vbDirectory)

    

    While Len(sCurFile)

        If (sCurFile <> ".") And (sCurFile <> "..") Then 'get rid of "." and ".."

            If GetAttr(sCurDir & sCurFile) = vbDirectory Then  'add the sub directory

                colDir.Add sCurDir & sCurFile & "\"

            Else 'work on the file

                ListDir.Add sCurDir & sCurFile

                rs.AddNew

                rs!dosya_yolu = sCurDir & sCurFile

                rs!dosya_ismi = sCurFile

                rs.Update

            End If

        End If

        sCurFile = Dir$

    Wend

    DoEvents

Wend

End Function

bu koda bir türlü tabloda var ise kaydetme diye dedirtemedim. Yardımlarınız için şimdiden tşk ederim.