'===========================================================================
' Subject: FILE LINK LIST HTML CREATOR Date: 02-14-99 (12:23)
' Author: Kenneth Green Code: ASIC
' Origin: ken26@jps.net Packet: ASIC.ABC
'===========================================================================
REM This is a sort of experiment I did that works great!
REM It makes a links list on a new web page of the files of the same
REM extension. I thought of it when I was making a page with over 100
REM links to .jpg picture files.
fun:
cls
print " File Link List HTML Creator"
print " By Kenneth Green"
print
print
print "This program writes a web .htm file to use with the Internet and"
print "Web Browser. It detects all specified type of files in a directory"
print "and creates a link to each and every one of those type files."
print "After it is finished, just put all the files on your server as well"
print "as the web .htm file it makes. If you do not put them on a server, you"
print "can also browse the .htm file offline and click on each link to go"
print "to that selected file, mostly for image files."
print "NOTE: Every link will display the name of the file on the web page."
print "But if the filename is over 8 characters long, it will cut out the"
print "rest of the name, but since the link is will also do the same thing,"
print "there is a possibility that 2 or more files will have the first 8"
print "characters and link to the wrong file, offline and online."
print "IMPORTANT: Make sure you are running this program in the same directory"
print "as the files you are making links to, or the program will not find"
print "them. It is best to copy this program to all the directories you will"
print "make webpages in."
print
print "Press enter to begin.";
input gn$
cls
print "File Extensions List This Program Supports"
print
print "(1) .GIF (2) .JPG"
print "(3) .BMP (4) .ZIP"
print "(5) .HTM and .HTML (6) .TXT"
print "(7) .PDF (8) .WAV"
print
print "Type one number that your file extensions are from above here:";
input num$
if num$="1" then
sd$="*.gif"
goto nex:
endif
if num$="2" then
sd$="*.jpg"
goto nex:
endif
if num$="3" then
sd$="*.bmp"
goto nex:
endif
if num$="4" then
sd$="*.zip"
goto nex:
endif
if num$="5" then
sd$="*.html"
goto nex:
endif
if num$="6" then
sd$="*.txt"
goto nex:
endif
if num$="7" then
sd$="*.pdf"
goto nex:
endif
if num$="8" then
sd$="*.wav"
goto nex:
endif
goto fun:
nex:
print "Do you want a space between the links (Y/N)";
input yn$
if yn$="Y" then
line9$=""
goto nex2:
endif
if yn$="y" then
line9$="
"
goto nex2:
endif
if yn$="N" then
line9$="
"
goto nex2:
endif
if yn$="n" then
line9$="
"
goto nex2:
endif
goto nex:
nex2:
p$="
"
print "Do want to add your name at the bottom (Y/N)";
input yn2$
if yn2$="y" then
print "Type your name here:";
input na$
goto nex3:
endif
if yn2$="Y" then
print "Type your name here:";
input na$
goto nex3:
endif
if yn2$="n" then nex3:
if yn2$="N" then nex3:
goto nex2:
nex3:
print "Do you want the links centered on the page (Y/N)";
input yn3$
if yn3$="y" then
cen$="
"
cen2$=""
goto nex4:
endif
if yn3$="Y" then
cen$=""
cen2$=""
goto nex4:
endif
if yn3$="n" then nex4:
if yn3$="N" then nex4:
goto nex3:
nex4:
print "Type the name of your new web file here: (Example: photos)";
input nm$
nnm$=".htm"
print "Type the heading title of your page here: (Example: My Links Here)"
input he$
pr$=chr$(34)
nmm$=nm$+nnm$
open "O",1,nmm$
line1$=""
linet$=""
linet2$=""
line2$=""
line3$=""
line4$=""
line5$=he$
line6$=""
line7$=""
line8$="
"
lines$=""
lines5$=""
if na$<>"" then
linen$=""
linen2$=na$
linen3$=""
endif
line10$=""
line11$=""
print# 1,line1$
print# 1,linet$
print# 1,he$
print# 1,linet2$
print# 1,line2$
print# 1,line3$
print# 1,line4$
print# 1,line5$
print# 1,line6$
print# 1,line7$
print# 1,line8$
print# 1,p$
if cen$<>"" then
print#1, cen$
endif
drc:
sdc$=sd$
att=0
fil$=Find First(sdc$,att)
if error>0 then finish:
aloop:
fil$=Find Continue
if error>0 then finish:
if fil$="" then finish:
print# 1,line9$
print# 1,lines$
print# 1,pr$
print# 1,fil$
print# 1,lines2$
print# 1,lines3$
print# 1,fil$
print# 1,lines5$
goto aloop:
finish:
print# 1,p$
if na$<>"" then
print# 1,linen$
print# 1,linen2$
print# 1,linen3$
endif
if cen2$<>"" then
print#1, cen2$
endif
print# 1,line10$
print# 1,line11$
close 1
print nm$;
print " is completed."
print "You can edit it with Notepad if you want."
print "To use it, open it up with your browser."
print "IMPORTANT: Make sure a copy of this .htm file is in the same directory"
print "as all the files it linked to."
print
print "Thanks for using my program!"