Mp3 Kopyalayıcı

[KintaRo]

Yine bir istek üzerine ufak bir uygulama hazırladım. Listeye eklenen MP3 leri belirtilen hedef klasore kopyalama işlemini yapıyor. Listeye farklı klasorlerden mp3 eklenebiliyor. ve hepsi tek bir klasore kopyalanabiliyor. Yani bir nevi kopyalama sepeti gibi. Tabi kodları değiştirip bunu tüm dosyalar için geçerli hale getirebilirsiniz.

[img]http://i.imgur.com/0V3M0.png[/img]

[color="#000000"][b]APZ Proje dosyası:[/b][/color]

[code]http://torrent2.hipfile.net/files/9/owlth1p5bmf0b8/MP3_Kopyala.apz[/code]

[color="#000000"][b]EXE Dosyası:[/b][/color]

[code]http://torrent2.hipfile.net/files/6/y7vczl0bzsraq9/MP3_Kopyala.exe[/code]

[DivaneTR]

[center][b]E İyiymiş O Zaman Arşivde Bulunsun.[/b][/center]

Edited August 8, 2011 by KintaRo
gereksiz ileti - uyarı aldınız.

[cyber01]

Emeğine sağlık çok güzel olmuş..Bende birşey sormak istiyorum net üzerinden dinlediğimiz müziği bu klip olabilir veya mp3 olabilir bunları nasıl Pc'ye İndirebiliriz..

[MostWanted]

IDM programını kullanabilirsin.

[abdullahTR]

[quote name='cyber01' date='10 August 2011 - 11:58 ' timestamp='1312966733' post='1060067']
Emeğine sağlık çok güzel olmuş..Bende birşey sormak istiyorum net üzerinden dinlediğimiz müziği bu klip olabilir veya mp3 olabilir bunları nasıl Pc'ye İndirebiliriz..
[/quote]
bu programı kullan
[spoiler][code]http://www.tnctr.com/topic/130532-internet-download-manager-607-build-8-katylymsyz/page__st__320[/code][/spoiler]

[kral1122]

KintaRo eline sağlık çok güzel ama benim bir sorum var ben bunu projeme atmak istiyorum ama açıldığı zaman mp3 olacak içinde benim eklediğim mp3ler kişi sadece kopyalanacak yeri göstersin (zor mu)?Mp3 lere dokunamasın

Edited August 18, 2011 by kral1122

[KintaRo]

MP3 klasoru yazan kısımları yani mp3 klasorunun seçileceği kısımları ve temizlem buttonunu projeden kaldırın.

Page on show'a şunları ekleyin

[codebox]
tDosyalar = File.Find("Mp3 lerin bulunduğu klasörün yolu", "*.mp3", true, false, nil, nil)
if tDosyalar then
ListBox.DeleteItem("ListBox1", -1)
for i,v in pairs(tDosyalar) do
ListBox.AddItem("ListBox1", v, "")
end
end
[/codebox]

bu şekilde yaparsan "Mp3 lerin bulunduğu klasörün yolu" yerine yazdığın klasordeki (örn: "Autoplay\\Docs\\muzik") mp3leri listeler.

[kral1122]

[quote name='KintaRo' date='18 August 2011 - 13:11 ' timestamp='1313665889' post='1065314']
MP3 klasoru yazan kısımları yani mp3 klasorunun seçileceği kısımları ve temizlem buttonunu projeden kaldırın.

Page on show'a şunları ekleyin

[codebox]
tDosyalar = File.Find("Mp3 lerin bulunduğu klasörün yolu", "*.mp3", true, false, nil, nil)
if tDosyalar then
ListBox.DeleteItem("ListBox1", -1)
for i,v in pairs(tDosyalar) do
ListBox.AddItem("ListBox1", v, "")
end
end
[/codebox]

bu şekilde yaparsan "Mp3 lerin bulunduğu klasörün yolu" yerine yazdığın klasordeki (örn: "Autoplay\\Docs\\muzik") mp3leri listeler.
[/quote]


KintaRo Allah razı olsun oldu ama bir sorum daha var kızmazsan peki masaüstüne klasör şeklinde nasıl atacak??yapamadım

Edited August 18, 2011 by kral1122

[KintaRo]

hedef klasorle ilgili nesneleri kaldırın ve başlat buttonunun kodlarını şunlarla dğeiştirin: (kodları denemeden yazıyorum ama çalışması lazım)

[codebox]nCount = ListBox.GetCount("ListBox1")

if nCount ~= 0 then
Progress.SetRange("Progress1", 0, nCount)
Progress.SetCurrentPos("Progress1", 0)
Progress.SetVisible("Progress1", true)
xButton.SetEnabled(this, false)
for i=1,nCount do
sDosya = ListBox.GetItemText("ListBox1", i)
Folder.Create(_DesktopFolder .. "\\Muzikler")
File.Copy(sDosya, _DesktopFolder .. "\\Muzikler" .. "\\" .. String.SplitPath(sDosya).Filename .. String.SplitPath(sDosya).Extension, false, true, false, true, nil)
nPos = Progress.GetCurrentPos("Progress1")
Progress.SetCurrentPos("Progress1", nPos+1)
end
Progress.SetVisible("Progress1", false)
xButton.SetEnabled(this, true)
Dialog.Message("OK", nCount .. " adet MP3;\r\r" .. _DesktopFolder .. "\\Muzikler" .. "\r\r klasörüne kopyalandı.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1)
end
[/codebox]

[kral1122]

KintaRo müziklerin bulunduğu klasörü seçmedim nerden seçcez??

[KintaRo]

Page on show a eklediğin kodların en üstünde

tDosyalar = File.Find("Mp3 lerin bulunduğu klasörün yolu", "*.mp3", true, false, nil, nil)

bu kod var burda belirteceksin. mesela

tDosyalar = File.Find("Autoplay\\Docs\\muzikler", "*.mp3", true, false, nil, nil)

gibi olacak.

[kral1122]

[quote name='KintaRo' date='18 August 2011 - 13:53 ' timestamp='1313668411' post='1065348']
Page on show a eklediğin kodların en üstünde

tDosyalar = File.Find("Mp3 lerin bulunduğu klasörün yolu", "*.mp3", true, false, nil, nil)

bu kod var burda belirteceksin. mesela

tDosyalar = File.Find("Autoplay\\Docs\\muzikler", "*.mp3", true, false, nil, nil)

gibi olacak.
[/quote]

KintaRo çok sağol Allah razı olsun benim sana yine işim düşerde olsun hakkını helal et