Klasör içerisindeki dosya isimlerini küçükten büyüğe göre almak

[maxcilopez]

İyi günler merhaba arkadaşlar
Klasör içerisindeki dosya isimlerini aşağıdaki kod vasıtası ile alıyorum
Klasör içerisindeki dosya isimleri aşağıdaki şekildedir.
Fakat sorun şu ki dosya isimlerini alırken 1 10 11 2 22 232 şeklinde alıyor ben ise 1 2 3 4 şeklinde sayısal olarak küçükten büyüğe göre almak istiyorum. Yardımlarınızı rica ederim.

1-osman
2-yunus
3-hülya
.
.
.
10-gamze
11-dava

Kaynak = ThisWorkbook.Path & "\Teklifler"
Application.DisplayAlerts = False

For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder(Kaynak).Files
If ThisWorkbook.Name <> dosya.Name Then

deg = "'" & Kaynak & "\" & "[" & dosya.Name & "]" & "Teklif" & "'!R" '//Veri alınacak dosyalardaki sayfa isimi
link = Kaynak & "\" & dosya.Name
endif
next

 

[askm]

Maksat sadece dosya isimleri almak ise, isimleri alın sonra sıralama yapın.

 

[PLİNT]

İyi günler merhaba arkadaşlar
Klasör içerisindeki dosya isimlerini aşağıdaki kod vasıtası ile alıyorum
Klasör içerisindeki dosya isimleri aşağıdaki şekildedir.

1-osman
2-yunus
3-hülya

Merhaba
Veri almak içinse ve dosya adlarının başında rakam varsa ;

[SIZE="2"]Kaynak = ThisWorkbook.Path & "\Teklifler"
Application.DisplayAlerts = False
Set a = CreateObject("scripting.filesystemobject")

For i = 1 To a.GetFolder(Kaynak).Files.Count
geri:
s = s + 1
h = Dir(Kaynak & "\" & s & "*.*", vbDirectory)
If h = Empty Then GoTo geri
If ThisWorkbook.Name <> h And a.GetExtensionName(h) Like "xls" & "*" Then
[COLOR="Blue"]deg = "'" & Kaynak & "\" & "[" & h & "]" & "Teklif" & "'!R" '//Veri alınacak [/COLOR]dosyalardaki sayfa isimi
link = Kaynak & "\" & h

End If
Next
 [/SIZE]