adresi belli klasorden csv dosyası alma

Herkese merhaba


Ekteki

“Kopya_ Maytas_Klasor+ csv Veril al + ayır” Vt Win 7 ve Acsess run time olan bir PC de çalışmadı

Vt daki “Maytas_Form” formu açılıyor “ klasore gozat” penceresi de açılıyor ama dosyaları
listelemiyor

“Maytas_Form” da klasör seçme yerinde doğrudan
C: /OKUMA/ adresindeki “. csv” dosyaları listelemesi de benim için yeterli

Mevcut kodu nasıl değiştirmek gerekir


Private Sub Komut2_Click()
Me.Liste18.RowSource = ""

Dim Obj As Object, Klasor As String
Set Obj = CreateObject("shell.application")
Klasor = Klasor_Secimi 'Api fonksiyonu
If Klasor = "" Then Exit Sub
KlasorYolu.Caption = Klasor
Call Tablo_Olustur
Dim Litem As MSComctlLib.ListItem
ListView3.ColumnHeaders.Clear
ListView3.ColumnHeaders.Add , , "Dosya Adı", ListView3.Width / 3
ListView3.ColumnHeaders.Add , , "Dosya Yolu", ListView3.Width * 2 / 3
ListView3.View = lvwReport
ListView3.GridLines = True
ListView3.ListItems.Clear

If IsNull(Uzanti_Liste.Value) Then
Dosya_Listele Klasor
Else
Dosya_Listele Klasor, Uzanti_Liste.Value
End If
If Listelendi Then
Me.Liste18.RowSource = "SELECT [DosyaYolu] & [DOsyaadi] AS Deyim1 FROM YeniTablo"
MsgBox "Dosyalar listelendi ve YeniTablo'ya alındı.", vbInformation, "Sonuç"
End If


End Sub


İyi akşamlar

Aşağıdaki kodu yeni bir formda yeni bir buton olayına yazınız. Maytaş hocamın örneğinden bağımsız olarak bunu yapın.
Kolay Gelsin.

Sub dosyalarial()

      ' Öncelikle Referanslar içine Microsoft Office XX.0 Library Eklenecek...

    Dim kural As Variant

    With Application.FileDialog(msoFileDialogFilePicker)

    'açılan pencere adı

        .Title = "Okuma Dosyaları..."

        .Filters.Clear

        .Filters.Add "CSV Dosyaları", "*.csv"

        .FilterIndex = 3

        .AllowMultiSelect = True

        .InitialFileName = "c:\okuma\"

        .Show

        If .SelectedItems.Count > 0 Then

                For Each kural In .SelectedItems

                    kural = Trim(kural)

                    Debug.Print kural

                    

                   

                        ' Bu döngünün içine tabloya alma komutları girecek...

                        ' Açılan pencereden dosyalarınızı seçeceksiniz...

                        ' Sonra Tamam Tıklandıktan Sonra Dosyalar Sırayla Alınmaya Başlayacak...

                    

                    

                Next

   End If

    End With

End Sub

20:49 itibari ile değişiklik yaptım. Ona göre alınız.

Merhaba Sayın Kural Hocam

Yazdıkarınızı yaptım dosyayı gördim ama döngünün içini dolduramadım.
benim bunu Maytaş Hocamın prg içine almam gerek çünkü bu dosyaları ayıracağım

diğer çalışmada nasıl aldığınızı ekleyinde bakalım.

ekledim Sayın Kural

---

orjinal dosya ilk mesajım da var
son yolladıgımda Maytaş hocamın ki bozuldu

eklediğimi inceleyin.