Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!CopyM3U
Download
EXE-Datei (174 kB)
k. A.- Plattformen:
FB SVN-Build 0.18 (03.05.09)
Quelltext enthalten- Angelegt von
jakidomi am 03.05.2009
Bewertung
Punkte: 1,0 bei 1 Stimmen
Liest eine M3U Playlist aus und kopiert die Songs von den verschiedenen Pfaden in einen Ordner.
Dies ist sehr nützlich, wenn man CDs brennen möchte, aber nicht genau weiß wo die Lieder alle versteckt sind.
'.... Include Dateien
hide
sub copy (von as string,nach as string)
dim as byte b
dim as integer f1,f2,linn,row,ll,t
if fileexists(von)=0 then
locate linn,row:?"File - ";von;" - not exists"
exit sub
endif
f1=freefile
open von for binary as #f1
f2=freefile
open nach for binary as #f2
printcursor linn,row,ll
locate linn,row:?"Kill"
kill nach
locate linn,row:?int((loc(f1)*100)/lof(f1));" % "
do
get #f1,,b
put #f2,,b
t+=1
if t>1000 then t=0:locate linn,row:?int((loc(f1)*100)/lof(f1));" % "
if Multikey(&h39) then
locate linn,row:?"User abort"
close #f1:close #f2
sleep 10,1
kill nach
exit sub
endif
loop until eof(f1)
close #f1:close #f2
locate linn,row:?"Ready"
end sub
sub createdir (path as string)
dim as integer posi,posi2,f
dim as string mkpath,akpath
if instr(path,":")=0 then path=exepath+"\"+path:screenunlock:?" err 1":getkey
posi2=instr(path,":")+1
posi2=instr(path,"\")
mkpath+=mid(path,1,posi2-1)
do
posi=instr(posi2+1,path,"\")
akpath=mid(path,posi2+1,posi-posi2-1)
mkpath+="\"+akpath
'?mkpath;" - ";
mkdir mkpath
f=freefile
open mkpath+"\diesisteintest.tttu" for output as #f
close #f
if fileexists(mkpath+"\diesisteintest.tttu") then
kill mkpath+"\diesisteintest.tttu"
'?"Create"
else
?"Error not Create":exit sub
endif
if posi0.00024 then
?left(str((insegsamt_mb/1024)/1024),5);"GB";
else
if (insegsamt_mb/1024)/1024(max_x/8)-10 then
?"Kopy: ";left(mid(path,instrrev(path,"\")+1,len(path)),(max_x/8)-10);"... - ";
else
?"Kopy: ";mid(path,instrrev(path,"\")+1,len(path));" - ";
endif
close #8
copy path,nachpfad+mid(path,instrrev(path,"\"),len(path))
else
if len(mid(path,instrrev(path,"\")+1,len(path)))>(max_x/8)-10 then
?"Exist: ";left(mid(path,instrrev(path,"\")+1,len(path)),(max_x/8)-10);"... - ";
else
?"Exist: ";mid(path,instrrev(path,"\")+1,len(path));" - ";
endif
endif
?#f2,title
?#f2,nachpfad+mid(path,instrrev(path,"\"),len(path))
if multikey (&h1) then ?:?"User abort":exit do
loop until eof(f)
do:loop while multikey(&h1)
close #f:close #f2
?:?"Ready"
getkey