Microsoft KB Archive/202102

= ACC2000: Converting Internet Shortcuts to Hyperlinks in a Table =

Article ID: 202102

Article Last Modified on 10/11/2006

-

APPLIES TO


 * Microsoft Access 2000 Standard Edition

-



This article was previously published under Q202102



Advanced: Requires expert coding, interoperability, and multiuser skills.



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. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers 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 requirements. To create a Visual Basic for Applications procedure that reads the hyperlinks in a folder called C:\MyShortcuts and copies them into a new Microsoft Access table called tblHyperlinks, follow these steps:  Start Windows Explorer and create a new folder on your hard disk called C:\MyShortcuts. 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. Start Microsoft Access and create a new database.  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  On the Tools menu, click References, find the following reference, and make sure it is selected (checked):

Microsoft DAO 3.6 Object Library

 Click OK in the References dialog box.</li> Press CTRL+G to open the Immediate window.</li>  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. </li></ol>

<div class="references_section">