Arşiv Treeview Dosya Tarayıcısı Örneği

aeGNoR · 17 Mar 2021

Merhaba arkadaşlar,

OCX eklentilerinden MSCOMCTL.OCX kullanılarak yapılan bir treeview örneği. Dosyada yapılmış olan çalışma genellikle kişisel kullanıma yönelik olduğu için sade bırakılmıştır. Kullanıcı ihtiyaçlarına göre düzenleme yapabilir.

aeGNoR · 17 Mar 2021

Filebrowser örneğimizde C: sürücüsünü seçtiğinizde muhtemelen donacaktır. Bunun sebebi C: üzerinde korumalı işletim sistemi dosyalarına erişim izni alamadığı içindir. Combobox üzerinde yer alan C: , D: alanlarını Belgelerim, Masaüstü gibi sık kullanılan alanlar ile değiştirirseniz sorunsuz çalışacaktır.

aeGNoR · 9 Tem 2024

Dosya seçili iken çift tıkladığınızda excel, word, pdf açmak isteyenlerin treeview'in double click olayını aşağıdaki gibi yapması yeterlidir.

Kod:

Private Sub TreeView1_DblClick()
    If Not TreeView1.SelectedItem Is Nothing Then
        If Not TreeView1.SelectedItem.Parent Is Nothing Then
            Dim DosyaUzantisi As String
            Dim DosyaYolu As String
            Dim SelectedNode As Node
            DosyaUzantisi = TreeView1.SelectedItem.Text
            DosyaUzantisi = Mid(DosyaUzantisi, InStrRev(DosyaUzantisi, ".") + 1, Len(DosyaUzantisi) - InStrRev(DosyaUzantisi, "."))
            Select Case DosyaUzantisi
                Case "xlsx", "xls", "xlsm"
                    'excel dosyalarını aç
                    Set SelectedNode = TreeView1.SelectedItem
                    DosyaYolu = SelectedNode.Text
                    Do While Not SelectedNode.Parent Is Nothing
                        Set SelectedNode = SelectedNode.Parent
                        DosyaYolu = SelectedNode.Text & "\" & DosyaYolu
                    Loop
                    DosyaYolu = Replace(DosyaYolu, "\\", "\")
                    Dim wb As Workbook
                    Set wb = Workbooks.Open(DosyaYolu)
                Case "doc", "docx"
                    'word dosyalarını aç
                    Set SelectedNode = TreeView1.SelectedItem
                    DosyaYolu = SelectedNode.Text
                    Do While Not SelectedNode.Parent Is Nothing
                        Set SelectedNode = SelectedNode.Parent
                        DosyaYolu = SelectedNode.Text & "\" & DosyaYolu
                    Loop
                    DosyaYolu = Replace(DosyaYolu, "\\", "\")
                    ActiveWorkbook.FollowHyperlink DosyaYolu
                Case "pdf"
                    'pdf dosyalarını aç
                    Set SelectedNode = TreeView1.SelectedItem
                    DosyaYolu = SelectedNode.Text
                    Do While Not SelectedNode.Parent Is Nothing
                        Set SelectedNode = SelectedNode.Parent
                        DosyaYolu = SelectedNode.Text & "\" & DosyaYolu
                    Loop
                    DosyaYolu = Replace(DosyaYolu, "\\", "\")
                    ActiveWorkbook.FollowHyperlink DosyaYolu
            End Select
        End If
    Else
        MsgBox "Seçili yok öğe yok."
    End If
End Sub

NOT: Taramaya temel dizinden başlamalı. Yani C:\ D:\ gibi dizinlerden başlamalı. Eğer temel dizinlerden başlamayacak şekilde revize ederseniz farklı şekilde çözümler üretilmesi gerekir.

Foruma hoş geldin 👋 Ziyaretçi

Arşiv Treeview Dosya Tarayıcısı Örneği

aeGNoR

Ekli dosyalar

aeGNoR

aeGNoR