AccessTr.neT

şu fonksiyon dosyaları tabloya kaydediyor
bunu modüle yerleştirip tablo yerine global listboxa kaydetsek
formdaki listboxa da sanal glabal listboxu eşitlesek nasıl olur
buradaki amacım bu fonksiyonu modulde yerleştirip her formdan çağırabilmek
tabloya kaydetmesine gerek yok onun yerine listboxa kaydetsin

Private Sub subListFolders(ByVal strFolders As String, intCounter As Integer)

    Dim dbs As Database

    Dim fso As New FileSystemObject

    Dim fldFolders As Folder

    Dim fldr As Folder

    Dim subfldr As Folder

    Dim sfldFolders As String

    Dim strSQL As String



    Set fldFolders = fso.GetFolder(TrailingSlash(strFolders))

    Set dbs = CurrentDb



    strSQL = "INSERT INTO tblFileList (FilePath, FileName, FolderSize) VALUES (" & Chr(34) & fldFolders.Path & Chr(34) & ", " & Chr(34) & fldFolders.Name & Chr(34) & ", '" & fldFolders.Size & "')"

    dbs.Execute strSQL



    For Each fldr In fldFolders.SubFolders

        intCounter = intCounter + 1

        strSQL = "INSERT INTO tblFileList (FilePath, FileName, FolderSize) VALUES (" & Chr(34) & fldr.Path & Chr(34) & ", " & Chr(34) & fldr.Name & Chr(34) & ", '" & fldr.Size & "')"

        dbs.Execute strSQL

        For Each subfldr In fldr.SubFolders

            intCounter = intCounter + 1

            sfldFolders = subfldr.Path

            Call subListFolders(sfldFolders, intCounter)

            Me.sfrmFolderList.Requery

        Next

        Me.txtListed = intCounter

        Me.txtListed.Requery

    Next



    Set fldFolders = Nothing

    Set fldr = Nothing

    Set subfldr = Nothing

    Set dbs = Nothing



End Sub

Konusunda kullanılan kod burada da kullanilabilr, yada sanal Liste kutusu yerine değerleri global diziye alıp verileri diziden çekebilirsiniz.

Teşekkürler sn. @berduş