- alias fileGen {
- set -u %d $sdir(D:\,Set directory)
- if ($exists(Mp3list.html) == $true) { remove Mp3list.html }
- write Mp3list.html <html><head><title>Mp3 List</title></head><body text="#2F5082" bgcolor="#000000"></body></html>
- write Mp3list.html <p><font face="Arial" size="2">Mp3 list - $+(Directory:,',%d,') - $+(Files:,',$findfile(%d,*.mp3,0),') - $+(Sub dirs:,',$finddir(%d,*,0,500),') $+ </font></p>
- set -u %nd 1
- while (%nd <= $finddir(%d,*,0,0)) {
- echo -ag - $lasttok($finddir(%d,*,%nd,0),92) done
- write Mp3list.html <p><font face="Arial" style="font-size: 10pt">> $lasttok($finddir(%d,*,%nd,0),92) $+ </font><br><br>
- set -u %nf 1
- while (%nf <= $findfile($finddir(%d,*,%nd,0),*.mp3,0,50)) {
- write Mp3list.html <font face="Verdana" style="font-size: 9pt" font color="#C0C0C0"> $+ $str( ,4) $remove($findfile($finddir(%d,*,%nd,0),*.mp3,%nf,50), $finddir(%d,*,%nd,0)) $+ </font><br>
- inc %nf 1
- }
- write Mp3list.html </p>
- inc %nd 1
- }
- set -u %d
- }
alias fileGen {
set -u %d $sdir(D:\,Set directory)
if ($exists(Mp3list.html) == $true) { remove Mp3list.html }
write Mp3list.html <html><head><title>Mp3 List</title></head><body text="#2F5082" bgcolor="#000000"></body></html>
write Mp3list.html <p><font face="Arial" size="2">Mp3 list - $+(Directory:,',%d,') - $+(Files:,',$findfile(%d,*.mp3,0),') - $+(Sub dirs:,',$finddir(%d,*,0,500),') $+ </font></p>
set -u %nd 1
while (%nd <= $finddir(%d,*,0,0)) {
echo -ag - $lasttok($finddir(%d,*,%nd,0),92) done
write Mp3list.html <p><font face="Arial" style="font-size: 10pt">> $lasttok($finddir(%d,*,%nd,0),92) $+ </font><br><br>
set -u %nf 1
while (%nf <= $findfile($finddir(%d,*,%nd,0),*.mp3,0,50)) {
write Mp3list.html <font face="Verdana" style="font-size: 9pt" font color="#C0C0C0"> $+ $str( ,4) $remove($findfile($finddir(%d,*,%nd,0),*.mp3,%nf,50), $finddir(%d,*,%nd,0)) $+ </font><br>
inc %nf 1
}
write Mp3list.html </p>
inc %nd 1
}
set -u %d
}