Soru Numaraya göre dosya isimlerini almak

[k0081]

Merhaba arkadaşlar;

Bir klasörün içinde bu şekilde isimlendirilmiş dosyalar mevcut. Bu dosya isimlerini-uzantıları ile birlikte.., sıralı bir ( 1 den başlayarak..) biçimde CLIPBOARD nasıl alabilirim ?

* Benim yapmış olduğum çalışmada isimleri alıyor., fakat, sıralı değil...

Command buton ile tetiklenecektir..

1-abceedjkfg.xxx
2-sdgjfdjkghj.xxx
3-ksfukksdfuksdyfuyksd.xxx
4-...
...
...
...
120-...

Yardımcı arkadaşa şimdiden Teşekkür ederim.

 

[excelokyanus500]

Deneyiniz

Sub denetle()


Dim Dizin As String
Dim Sayac As Long
Dim Son As Integer

Dim Listele() As String
ReDim Listele(1000)

Son = Range("A" & Rows.Count).End(xlUp).Row
Dizin = Dir("C:\Users\kullanici\Desktop\yeni\*.*")
Do While Dizin <> ""
    Listele(Sayac) = Dizin
    Dizin = Dir
    Sayac = Sayac + 1
Loop


ReDim Preserve Listele(Sayac - 1)


For Sayac = 0 To UBound(Listele)
  
    uzunluk = InStr(1, Listele(Sayac), "-", 1) - 1
    Range("A" & Sayac + 1) = Listele(Sayac)
    Range("B" & Sayac + 1) = uzunluk
    
Next Sayac


Range("A1:B" & Son).Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlNo
Columns("B:B").ClearContents
Range("A1").Select
End Sub

 

[k0081]

olmadı malesef hocam. dosyaları aldı ama, sıralama istediğim gibi değil...

Teşekkürler.