DjTurkisH Posted November 30, 2014 Share Posted November 30, 2014 Dialog.Message("Bilgi", "Çıkan Pencerede .exe Uzantılı Programı Seçiniz...", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); tDosya = Dialog.FileBrowse(true, "Dosya Seçin", "C://", "EXE dosyaları (*.exe)|*.exe|", "", "", true, true) if tDosya[1] ~= "CANCEL" then sCount = Table.Count(tDosya); for i , v in pairs(tDosya) do Progress.SetRange("Progress1", 0, sCount); Progress.SetText("Progress1", "["..i.."/"..sCount.." Kopyalanıyor]"); Progress.SetCurrentPos("Progress1", i); sDosya = String.SplitPath(tDosya[1]).Filename .. String.SplitPath(tDosya[1]).Extension; File.Copy(tDosya[1], _SourceFolder .. "\\Programlar\\" .. sDosya, false, true, false, true, CopyCallback); end -- Listeyi Sifirla ListBox.DeleteItem("pro_ekle", -1); tFiles = File.Find("Programlar", "*.exe", true, true, nil, nil); if tFiles then for i,v in pairs (tFiles) do Split = String.SplitPath(v); ListBox.AddItem("pro_ekle", Split.Filename, v); end end Dialog.Message("Bilgi", "Program Ekleme Tamamlandı.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1); end Yukarda Çoklu Kopya Var Ancak Yanlış Gibi bir Bakabilir misiniz ??? Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted November 30, 2014 Editor Share Posted November 30, 2014 Çoklu kopyadan kastın nedir. Yani seçilen klasörde alt dizinlerde dahil tüm exelerimi kopyalama. Quote Link to comment Share on other sites More sharing options...
DjTurkisH Posted November 30, 2014 Author Share Posted November 30, 2014 hayır Mesela Klasörde A.EXE bide b.exe Var İkisini yani AIO Larda Program Ekle Seçeneği hocam Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted November 30, 2014 Editor Share Posted November 30, 2014 Şimdi şöyle bi durum var. Siz bunların ikisini aynı andamı kopyalamak istiyorsunuz yoksa sıra ile mi. Çünkü iki işlemdede kod fark edecektir birisinde thread gerekecek. Sİz tam olarak detaylı yazarsanız çözüme kavuşturalım. Quote Link to comment Share on other sites More sharing options...
DjTurkisH Posted November 30, 2014 Author Share Posted November 30, 2014 (edited) Bi Dakka Hocam Bir Resim Bulum ---- Buldum İşte Bundan :D Edited November 30, 2014 by DjTurkisH Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted November 30, 2014 Editor Share Posted November 30, 2014 Bunun için verdiğin kodda bi hata göremedim. Yani kopyalaması gerekir.Hata nedir tam olarak. Quote Link to comment Share on other sites More sharing options...
DjTurkisH Posted November 30, 2014 Author Share Posted November 30, 2014 Progressde Gözükmüyor Mesela Ben [3/4 Kopyalanıyor %68] Gibi İstiyorum ama Bu [3/4 Kopyalanıyor &68 ] diye Gösteriyor Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted November 30, 2014 Editor Share Posted November 30, 2014 Progress.SetText("Progress1", "["..i.."/"..sCount.." Kopyalanıyor]"); Burada ki komutta bi sorun yok o %68 lik kısım nerden geliyor dediğini anlamadım. Örnek projeni atarsan bi inceliyim. Quote Link to comment Share on other sites More sharing options...
DjTurkisH Posted November 30, 2014 Author Share Posted November 30, 2014 (edited) My Project :D :D http://www.mediafire.com/download/2wqixdn58p34sxr/My_Project.apz Orda %68 CopyCallback Edited November 30, 2014 by DjTurkisH Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted November 30, 2014 Editor Share Posted November 30, 2014 Bu veridğinde sorun yok :D http://prntscr.com/5bobqx Ben anlamadım galiba. Quote Link to comment Share on other sites More sharing options...
DjTurkisH Posted November 30, 2014 Author Share Posted November 30, 2014 Progress çalılıyor Ancak 5 Tane Program Seçtin yah ilkini Kopyalıyor Diğerlerini Kopyalamıyor... Quote Link to comment Share on other sites More sharing options...
Editor pairs Posted November 30, 2014 Editor Share Posted November 30, 2014 Birtanesini kopyalaması normal :D File.Copy(tDosya[1] burada tDosya[i] demen gerekirken 1 yazmışsın ve istediğin kadar program seç hep ilkiini kopyalayacaktır 1 yazdıgın yerleri i yapman yeterli. Quote Link to comment Share on other sites More sharing options...
DjTurkisH Posted November 30, 2014 Author Share Posted November 30, 2014 Eyvallah Deniycem :D çalıştı Birde % Yüzde Yapsak Çok Güzel Olacak Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.