Dosya hazırladım inceleyin File olarak varsaydım bilmediğim için sormuştum.

Option Compare Database





Private Sub Form_Load()

    Me.txt1.Value = Application.CurrentProject.path

    Me.listbox1.ColumnCount = 3

    Call DosyaAra(Me.txt1.Value)

End Sub



Sub DosyaAra(ByVal path As String)



    Dim AltDosyalar As Object

    Dim Dosyalar  As Object

    Dim Fileler As Object

    Dim fso As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

    Set Dosyalar = fso.Getfolder(path)



    For Each AltDosyalar In Dosyalar.subfolders

        Call DosyaAra(AltDosyalar.path)

    Next

    

        For Each Fileler In Dosyalar.Files

          If CurrentProject.Name <> Fileler.Name And Right(Fileler.Name, 6) <> "laccdb" Then

                Me.listbox1.AddItem Fileler.path & ";" & Fileler.Name & ";" & Fileler.Size

          End If

        Next

    

    Set fso = Nothing

    Set AltDosyalar = Nothing

    Set Dosyalar = Nothing

    Set Fileler = Nothing



End Sub