Filefind Kullanımı

[korasoglu]

Arkadaşlar Windows mantığıyla dosyaları dosya atlarına göre nasıl çekebilirim

 

result = File.Find(_DesktopFolder .. "\\aa\\", "*", false, false, nil, nil);

for i,v in pairs(result) 

end

 

Bu şekilde Windowsta ki herhangi bir klasörün içerindeki dosya atları sıralamasına göre çekmiyor.

 

[Cyph3r]

valla soruyuda anlamamış olabilirim ama örnek olarak windows klasöründekileri sıraya göre ekledi listboxa

tAra = File.Find("C:\\Windows", "*.*", false, false, nil, nil)
for i,v in pairs(tAra) do
ListBox.AddItem("ListBox1", v, "")
end

[korasoglu]

Örneğin 1 ile başlayan ve 12 le bitin 12 dosyamız olsun dönüşüm bize

önce 1-10-11-12-2-3-4-5-6-7-8-9 olarak döner v ben diyorum ki buradaki sıralamayı düzgün olarak nasıl çekeriz

[DivaneTR]

Örneğin 1 ile başlayan ve 12 le bitin 12 dosyamız olsun dönüşüm bize

önce 1-10-11-12-2-3-4-5-6-7-8-9 olarak döner v ben diyorum ki buradaki sıralamayı düzgün olarak nasıl çekeriz

 

Zaten sıralama düzgün. 10 sayısı 2'den önce gelir alfabetik olarak. Bu tür kullanımlarda 1 yerine 01 yazılması gerekir.

[pairs]

[korasoglu]

Sevgili Pairs sizin söylediğinizi kabul ediyorum File Rename programları var pekala çekiyor bu yapılabilmesi lazım.

Dediğini denedim

 

sfldr = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);

tfiles = File.Find(sfldr, "*", false, false, nil, nil);

ListBox.DeleteItem("ListBox1", -1);

if tfiles then

file_count = Table.Count(tfiles);

for count = 1, file_count do

file = tfiles[count]

strsplit = String.SplitPath(file);

ListBox.SetProperties("ListBox1", {Sort = true}); 

result = ListBox.AddItem("ListBox1", strsplit.Filename.."("..strsplit.Extension..")", file);

end

else

result = Dialog.Message("Notice", "No files found.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

 

Sonuç Yine aynı

Ben Klasörde Gösterildiği sırayla çekmek istiyorum hepsi bu.