Seçilen Klasörde Döngü

Seçilen Klasörde Döngü tabiri biraz uzak bir tabir olabilir, fakat anlatmak istediğimiz bir dizin içerisindeki tüm dosyaların adını verecek tarzda bir örnek.

Sizlere fikir verebileceğini düşündüğümüz örneğimizde bir klasör secerek oradaki dosya adlarının mesaj olarak döngü seklinde lıstelenemsini sağladık.

Bu örneğimizi asagıdaki kodları bir module ekleyerek çalıstırabilirsiniz.

Sub Dosyalar()
Dim fd As FileDialog
Dim Secilen_Klasor_Yolu As String
Dim Secilen_Klasor
Dim Secilen_KlasorTemp
Dim Dizin As FileDialog
Dim fs
Dim Ayrac
Ayrac = ""
Dim Dosyam

Set Dizin = Application.FileDialog(msoFileDialogFolderPicker)
With Dizin
        .AllowMultiSelect = False
        If .Show Then

            'Secilen Klasorde Dongu
            For Each Secilen_Klasor In .SelectedItems

                'Secilen Klasorun Adi
                Secilen_Klasor_Yolu = Secilen_Klasor & Ayrac

                Set fs = CreateObject("Scripting.FileSystemObject")
                Set Secilen_KlasorTemp = fs.GetFolder(Secilen_Klasor_Yolu)

                    'Dosyalarda dongu
                    For Each Dosyam In Secilen_KlasorTemp.Files
                        'Dosya Adi
                        MsgBox Dosyam.Name
                        'Hepsini acmak istersneiz
                        'Workbooks.Open FileName:=Dosyam
                    Next
            Next
        End If
End With

End Sub

Secilen Klasorde dongu

Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


8 + 8 =