VISUAL BASIC

Creating an HTML File List with VB

You just got that shiny new digital camera, and then you downloaded a bunch of digital pictures to your computer. Next you want to create a simple Hypertext Markup Language (HTML) file so that you can burn the picture and HTML files to a CD that you can send to all your friends and family. How do you do this without having to manually code the HTML file? The following instructions will show you how.

Author Info:

By: Tim Haight

Poor Best

Rating:

/ 96

January 05, 2004

TABLE OF CONTENTS:

Private Sub cmdCatalog_Click() On Error GoTo Err_cmdCatalog_Click 'run directory listing 'put the path in the shell command where you put the dir.bat file Dim RetVal RetVal = Shell(txtLocation & "dir.bat", 1) ' Run dir.bat 'open file for input and output 'change path for your system Open txtLocation & "dir.txt" For Input As #1 Open txtLocation & "catalog.htm" For Output As #2 'create HTML headings Print #2, "<HTML><HEAD><TITLE>MY Pictures</TITLE></HEAD><BODY>" Print #2, "<center><h1>My Pictures</h1></center>" Print #2, "<OL>" 'create loop, open file Do Until EOF(1) 'get line from file Input #1, txtFile 'output line to catalog Print #2, "<LI>" Print #2, "<a href='" & txtFile & "'>" & txtFile & "</a><br>" Print #2, "</LI>" Loop 'create HTML end Print #2, "</OL>" Print #2, "</BODY></HTML>" 'close files Close #1 Close #2 Exit_cmdCatalog_Click: Exit Sub Err_cmdCatalog_Click: MsgBox Err.Description Resume Exit_cmdCatalog_Click End Sub