[ 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. |