[ Tulumba @ 07.03.2002. 12:16 ] @
Ljudi mili ovo je vise nemoguce... evo ubijam se da napravim glupi algoritam koji ce mi u ListBox (ili bilo dje vec) ubaciti spisak svih MP3 pjesama sa CD-a. Ovaj kod sto sam vam poslao radi super na HDD-u, ali sa CD-om nece da pronadje ni *.txt fajlove a kamoli MP3.
Zna li iko zasto???

CODEEE....
--------------------------------------------

procedure DoFile(Path, AFileName: string);
begin
//ovde postaviti kod shta da se radi sa svakim fajlom
// na pr. ListBox1.Add(AFileName) or whatever
Form1.ListBox1.Items.Add(AFileName);
end;

procedure ProcessDir(Path: string; Maska: String);
var sr:TSearchRec;
SearchPath:string;
begin
//Prvo direktorijume, posle ostalo
try
if Copy(Path,Length(Path),20)<>'\' then Path:=Path+'\'; SearchPath:=Path+'*.*';
if FindFirst(SearchPath,faDirectory,sr)=0 then begin
repeat
if ((sr.Attr and faDirectory)=sr.Attr) and (sr.Name<>'.') and
(sr.Name<>'..') then
ProcessDir(Path+sr.Name, Maska);
until FindNext(sr)<>0;
end;
except

end;
// Procesiraj Fajlove
SearchPath:=Path+Maska;
if FindFirst(SearchPath,faAnyFile,sr)=0 then begin
DoFile(Path,sr.FindData.cFileName);
Application.ProcessMessages;
while FindNext(sr)=0 do DoFile(Path, sr.FindData.cFileName);
end;
// CleanUp
FindClose(sr);
end;
//Samo pozovesh ProcessDir('D:\','*.mp3') i gotovo...
//Mozhesh pogledati i u helpu o FindFirst, FindNext i sl..

--------------------------------------------
END CODEE



Ako se na ovaj nacin ne moze odraditi posao... sta bih drugo mogao uraditi.
[ Riste Pejov @ 07.03.2002. 20:31 ] @
Evo ti sample code koji radi to isto, kod mene radi i za CD i za HDD
mozes definirati koju bilo extenziju i aplikacija trazi file-ove sa te extenzije u folder koji izaberes, kao i kroz njegovih subdir-ova.

give it a shot
[ Tulumba @ 10.03.2002. 16:57 ] @
Evo iskombinovao sam nesto... prvo sam program sa mojim algoritmom potrenuo slucajno na Win98 (sve vreme sam radio na Win2000) i ispostavilo se da radi perfektno -ai onda se ispostavilo da ne radi perfektno ni pod win98, pretrazi odredjen broj direktorijuma i stane.
Zatim sam uze ovaj tvoj primjer i nekako ga "ubildovao" u svoj programcic i pomislio da radi perfektno... ali je onda i on posle super pretrage CD-ova i C diska, zaglavio na D disku - posle pogleda na kood u izvrsavanju vidio sam da nije greska u koodu nego da je do problema doslo kad je program pregledao jedan dir koji ima neke mnogo zeznute fajlove (tako sam i otkrio da moj HDD ima ostecenih djelica). Elem na kraju sam rijesio sve... puno ti hvala na ovom primjeru.
[ Riste Pejov @ 11.03.2002. 15:18 ] @
to ustvari je trebalo da bude moj program koji ce pretrazivati diskove i locirati
duplirane mp3-jke,
prvo: na osnovu velicinu fajla i njegovog imena,
drugo: na osnovu mp3 tagovima,

ali kao sto vidis uradio sam samo neki manji deo,
a nisam imao vremena produziti to, posto imam neki veliki projekt na kog radim.

kad zavrsis to hteo bih da pogledam aplikaciju.

keep hope alive
[ Tulumba @ 12.03.2002. 08:18 ] @
nema problema, cim zavrsim dobices sve sa Koodom uredno slozeno. Samo mi ostavi e-mail na koji da ti posaljem