Skip to main content

AccessTr.neT


Klasördeki Dosyaları Sanal Listboxa Almak

Klasördeki Dosyaları Sanal Listboxa Almak

Çözüldü #1
ş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

Visual Basic Code
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

@benbendedeilem
Son Düzenleme: 21/05/2020, 10:49, Düzenleyen: accessman.
Cevapla
#2
Konusunda kullanılan kod burada da kullanilabilr, yada sanal Liste kutusu yerine değerleri global diziye alıp verileri diziden çekebilirsiniz.
Cevapla
#3
Teşekkürler sn. @berduş
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da