ACC2000: Converting Internet Shortcuts to Hyperlinks in a Table

• Microsoft Access 2000

SUMMARY

This article shows you how to create a one-column Microsoft Access table whose records consist of hyperlinks that correspond to the Internet shortcuts in a folder.

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:

http://www.microsoft.com/mcsp/

http://www.microsoft.com/support/supportnet/overview/overview.asp

1. Start Windows Explorer and create a new folder on your hard disk called C:\MyShortcuts.



2. Copy several Internet shortcuts into the folder C:\MyShortcuts. You can copy Internet shortcuts from your Favorites folder. To locate the Favorites folder, on the Tools menu, point to Find, and then click Files Or Folders.



3. Start Microsoft Access and create a new database.



4. Open a new module and type the following procedure:




Function MakeShortcutTable(strTableName As String, _
   strDirectoryPath As String)

   Dim strGrab As String
   Dim strFileName As String
   Dim strPart As String
   Dim intFileNum As Integer
   Dim dbs As DAO.Database
   Dim Rst As DAO.Recordset
   Dim tdf As DAO.TableDef
   Dim fld As DAO.Field

   ' Return reference to current database.
   Set dbs = CurrentDb
   ' Return TableDef object variable that points to new table.
   Set tdf = dbs.CreateTableDef(strTableName)
   ' Define new field in table.
   Set fld = tdf.CreateField("Link", dbMemo, 233)
   ' Append Field object to Fields collection of TableDef object.
   fld.Attributes = dbHyperlinkField
   tdf.Fields.Append fld
   tdf.Fields.Refresh
   ' Append TableDef object to TableDefs collection of database.
   dbs.TableDefs.Append tdf
   dbs.TableDefs.Refresh
   Set Rst = dbs.OpenRecordset(strTableName)
   strFileName = Dir(strDirectoryPath & "*.url")

   ' Loop to open each matching file in the current folder.
   Do While Len(strFileName) > 0
      intFileNum = FreeFile
      ' Open the file.
      Open strDirectoryPath & strFileName For Input As _
       #intFileNum
      ' Get first 24 characters.
       strGrab = Input(24, #intFileNum)
      strGrab = ""

      ' Loop until end of file.
      Do While Not EOF(intFileNum)
      strPart = Input(1, #intFileNum)
      If strPart = "[" Then Exit Do
        strGrab = strGrab & strPart

      Loop

      Close #intFileNum    ' Close file.

      With Rst
      .AddNew
         !Link = Left(strFileName, Len(strFileName) - 4) & _
         "#" & Left(strGrab, Len(strGrab) - 2)
         .Update
      End With

      strFileName = Dir()
      ' Repeat the loop for all matching files
      ' in the current folder.
   Loop

   Application.RefreshDatabaseWindow

End Function 

5. On the Tools menu, click References, find the following reference, and make sure it is selected (checked):




Microsoft DAO 3.6 Object Library

6. Click OK in the References dialog box.



7. Press CTRL+G to open the Immediate window.



8. Type the following line in the Immediate window, and then press ENTER:

    ?MakeShortcutTable("tblHyperlinks","c:\MyShortcuts\") 

   Note that after you run the procedure, a new table called tblHyperlinks appears in the database. Its data consists of hyperlinks that correspond to the Internet shortcuts in the folder C:\MyShortcuts.

REFERENCES

For more information about hyperlink fields, click Microsoft Access Help on the Help menu, type "hyperlinks" in the Office Assistant or the Answer Wizard, and then click Search to view the topics returned.

Additional query words: inf favorite browser

Keywords : kbdta kbdtacode AccCon MdlDao IntLink KbVBA
Version : WINDOWS:2000
Platform : WINDOWS
Issue type : kbhowto