<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
<TITLE>Message</TITLE>

<META content="MSHTML 5.00.3314.2100" name=GENERATOR>
<STYLE>@font-face {
        font-family: Tahoma;
}
P.MsoNormal {
        FONT-FAMILY: "Times New Roman"; FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt
}
LI.MsoNormal {
        FONT-FAMILY: "Times New Roman"; FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt
}
DIV.MsoNormal {
        FONT-FAMILY: "Times New Roman"; FONT-SIZE: 12pt; MARGIN: 0cm 0cm 0pt
}
H2 {
        FONT-FAMILY: Arial; FONT-SIZE: 14pt; FONT-STYLE: italic; FONT-WEIGHT: bold; MARGIN: 12pt 0cm 3pt
}
H3 {
        FONT-FAMILY: Arial; FONT-SIZE: 13pt; FONT-WEIGHT: bold; MARGIN: 12pt 0cm 3pt
}
H4 {
        FONT-FAMILY: Arial; FONT-SIZE: 12pt; FONT-WEIGHT: bold; MARGIN: 3pt 0cm
}
A:link {
        COLOR: blue; TEXT-DECORATION: underline
}
SPAN.MsoHyperlink {
        COLOR: blue; TEXT-DECORATION: underline
}
A:visited {
        COLOR: purple; TEXT-DECORATION: underline
}
SPAN.MsoHyperlinkFollowed {
        COLOR: purple; TEXT-DECORATION: underline
}
P {
        FONT-FAMILY: "Times New Roman"; FONT-SIZE: 12pt; MARGIN-LEFT: 0cm; MARGIN-RIGHT: 0cm
}
P.Code {
        FONT-FAMILY: "Courier New"; FONT-SIZE: 12pt; MARGIN: 6pt 0cm 6pt 17.85pt; punctuation-wrap: simple
}
LI.Code {
        FONT-FAMILY: "Courier New"; FONT-SIZE: 12pt; MARGIN: 6pt 0cm 6pt 17.85pt; punctuation-wrap: simple
}
DIV.Code {
        FONT-FAMILY: "Courier New"; FONT-SIZE: 12pt; MARGIN: 6pt 0cm 6pt 17.85pt; punctuation-wrap: simple
}
P.code0 {
        FONT-FAMILY: "Courier New"; FONT-SIZE: 12pt; MARGIN: 6pt 0cm 6pt 17.85pt; punctuation-wrap: simple
}
LI.code0 {
        FONT-FAMILY: "Courier New"; FONT-SIZE: 12pt; MARGIN: 6pt 0cm 6pt 17.85pt; punctuation-wrap: simple
}
DIV.code0 {
        FONT-FAMILY: "Courier New"; FONT-SIZE: 12pt; MARGIN: 6pt 0cm 6pt 17.85pt; punctuation-wrap: simple
}
SPAN.emailstyle19 {
        COLOR: navy; FONT-FAMILY: Arial
}
SPAN.EmailStyle21 {
        COLOR: navy; FONT-FAMILY: Arial
}
DIV.Section1 {
        page: Section1
}
</STYLE>
</HEAD>
<BODY lang=EN-US link=blue vLink=purple>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN class=700381118-13032003>That 
solved the reference problem.</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN 
class=700381118-13032003></SPAN></FONT> </DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN class=700381118-13032003>But 
now I am lost, I have tried so many different combinations of trying to make 
this work, I don't know which end is up anymore.</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN 
class=700381118-13032003></SPAN></FONT> </DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN class=700381118-13032003>I do 
not know how to put this all together to select the file attachment from 
whatever drive, move it to the drive & folder I want it in, enter the 
name into the Attachment (hyperlink) field so someone can click the name & 
open the file.</SPAN></FONT></DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN 
class=700381118-13032003></SPAN></FONT> </DIV>
<DIV><FONT color=#0000ff face=Arial size=2><SPAN 
class=700381118-13032003>Virginia</SPAN></FONT></DIV>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
  <DIV align=left class=OutlookMessageHeader dir=ltr><FONT face=Tahoma 
  size=2>-----Original Message-----<BR><B>From:</B> Mike and Doris Manning 
  [mailto:mikedorism@ntelos.net]<BR><B>Sent:</B> Thursday, March 13, 2003 11:31 
  AM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> RE: [AccessD] 
  Adding Attachments<BR><BR></DIV></FONT>
  <DIV><SPAN class=302432817-13032003><FONT color=#0000ff face=Arial size=2>Add 
  a reference to the "Microsoft Scripting Runtime"</FONT></SPAN></DIV>
  <DIV><SPAN class=302432817-13032003><FONT color=#0000ff face=Arial 
  size=2></FONT></SPAN> </DIV>
  <DIV><SPAN class=302432817-13032003>
  <DIV align=left><FONT face=Arial size=2>Doris Manning</FONT></DIV>
  <DIV align=left><FONT face=Arial size=2>Database Administrator</FONT></DIV>
  <DIV align=left><FONT face=Arial size=2>Hargrove Inc.</FONT></DIV>
  <DIV align=left><FONT color=#0000ff face=Arial 
  size=2><U>www.hargroveinc.com</U></FONT></DIV></SPAN></DIV>
  <BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
    <DIV></DIV>
    <DIV align=left class=OutlookMessageHeader dir=ltr lang=en-us><FONT 
    face=Tahoma size=2>-----Original Message-----<BR><B>From:</B> 
    accessd-admin@databaseadvisors.com 
    [mailto:accessd-admin@databaseadvisors.com] <B>On Behalf Of 
    </B>Hollis,Virginia<BR><B>Sent:</B> Thursday, March 13, 2003 11:21 
    AM<BR><B>To:</B> 'accessd@databaseadvisors.com'<BR><B>Subject:</B> RE: 
    [AccessD] Adding Attachments<BR><BR></FONT></DIV>
    <DIV><FONT color=#0000ff face=Arial size=2><SPAN class=760151716-13032003>I 
    get User defined type not defined Error on: Dim fso As 
    FileSystemObject</SPAN></FONT></DIV>
    <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
    class=760151716-13032003></SPAN></FONT> </DIV>
    <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
    class=760151716-13032003>This is in 97, does that make a 
    difference?</SPAN></FONT></DIV>
    <BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
      <DIV align=left class=OutlookMessageHeader dir=ltr><FONT face=Tahoma 
      size=2>-----Original Message-----<BR><B>From:</B> Mike and Doris Manning 
      [mailto:mikedorism@ntelos.net]<BR><B>Sent:</B> Thursday, March 13, 2003 
      10:03 AM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> RE: 
      [AccessD] Adding Attachments<BR><BR></DIV></FONT>
      <DIV><SPAN class=906185715-13032003><FONT color=#0000ff face=Arial 
      size=2>You have to do a FileCopy from the first selected location to the 
      second selected location in order to actually move the 
      file.</FONT></SPAN></DIV>
      <DIV><SPAN class=906185715-13032003><FONT color=#0000ff face=Arial 
      size=2><BR>Public Sub MoveFile(strOldPath As String, strOldName As String, 
      _<BR>                    
      strNewPath As String, strNewName As 
      String)<BR>                    
      <BR>    On Error GoTo ErrorHandler<BR>    
      <BR>    Dim fso As FileSystemObject<BR>    
      Dim strOldFile As 
      String<BR>            
      <BR>    DoCmd.Hourglass True<BR>    
      <BR>    strOldFile = strOldPath & 
      strOldName<BR>    <BR>    If Dir(strNewPath, 
      vbDirectory) = "" Then<BR>        Set 
      fso = New FileSystemObject<BR>        
      fso.CreateFolder strNewPath<BR>    End 
      If<BR>    <BR>    FileCopy strOldFile, 
      strNewName<BR>        
      <BR>    DoCmd.Hourglass False<BR>    
      <BR>    Exit Sub<BR>    
      <BR>ErrorHandler:<BR>    Call HandleErrors(Err, strMyName, 
      "MoveFile")<BR>End Sub<BR></DIV>
      <DIV>
      <DIV align=left><FONT face=Arial size=2>Doris Manning</FONT></DIV>
      <DIV align=left><FONT face=Arial size=2>Database 
Administrator</FONT></DIV>
      <DIV align=left><FONT face=Arial size=2>Hargrove Inc.</FONT></DIV>
      <DIV align=left><FONT color=#0000ff face=Arial 
      size=2><U>www.hargroveinc.com</U></FONT></DIV></DIV></FONT></SPAN>
      <BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
        <DIV></DIV>
        <DIV align=left class=OutlookMessageHeader dir=ltr lang=en-us><FONT 
        face=Tahoma size=2>-----Original Message-----<BR><B>From:</B> 
        accessd-admin@databaseadvisors.com 
        [mailto:accessd-admin@databaseadvisors.com] <B>On Behalf Of 
        </B>Hollis,Virginia<BR><B>Sent:</B> Thursday, March 13, 2003 10:29 
        AM<BR><B>To:</B> 'accessd@databaseadvisors.com'<BR><B>Subject:</B> RE: 
        [AccessD] Adding Attachments<BR><BR></FONT></DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003>I have been playing around with the dialog to 
        Save the file to a specified folder. Tell me if anyone thinks this 
        will work...</SPAN></FONT></DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003></SPAN></FONT> </DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003>Use the Open file dialog so the user can select 
        the file they need to attach. Then the Save dialog box opens to the 
        directory & folder where the attachment needs to be 
        saved.</SPAN></FONT></DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003></SPAN></FONT> </DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003>Once they save the file it places the file name 
        in the field 'attachments' which is a hyperlink 
        field.</SPAN></FONT></DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003></SPAN></FONT> </DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003>Now, the problem... (there's always a 
        catch)</SPAN></FONT></DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003></SPAN></FONT> </DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003>How do I make the Save dialog box actually 
        "Save" the file?! </SPAN></FONT></DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003></SPAN></FONT> </DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003>The Save dialog opens, and places the file name 
        in the attachments field, but it does not Save the file to the folder 
        & directory.</SPAN></FONT></DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003></SPAN></FONT> </DIV>
        <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
        class=940541715-13032003>Virginia</SPAN></FONT></DIV>
        <BLOCKQUOTE style="MARGIN-RIGHT: 0px">
          <DIV align=left class=OutlookMessageHeader dir=ltr><FONT face=Tahoma 
          size=2>-----Original Message-----<BR><B>From:</B> Wortz, Charles 
          [mailto:CWortz@tea.state.tx.us]<BR><B>Sent:</B> Wednesday, March 12, 
          2003 1:38 PM<BR><B>To:</B> 
          accessd@databaseadvisors.com<BR><B>Subject:</B> RE: [AccessD] Adding 
          Attachments<BR><BR></DIV></FONT>
          <DIV><SPAN class=803403419-12032003><FONT color=#0000ff 
          size=2>Virginia,</FONT></SPAN></DIV>
          <DIV><SPAN class=803403419-12032003><FONT color=#0000ff 
          size=2></FONT></SPAN> </DIV>
          <DIV><SPAN class=803403419-12032003><FONT color=#0000ff size=2>If I 
          was doing it I would add code that checks the path name and reject all 
          path names that start with a drive letter and only accept UNC path 
          names.  Thus, the only drives on their computers that pass are 
          shared drives.</FONT></SPAN></DIV>
          <DIV> </DIV><!-- Converted from text/rtf format -->
          <P><SPAN lang=en-us><B><FONT color=#0000ff face=Arial>Charles 
          Wortz</FONT></B></SPAN> <BR><SPAN lang=en-us><FONT color=#0000ff 
          face=Arial>Software Development Division</FONT></SPAN> <BR><SPAN 
          lang=en-us><FONT color=#0000ff face=Arial>Texas Education 
          Agency</FONT></SPAN> <BR><SPAN lang=en-us><FONT color=#0000ff 
          face=Arial>1701 N. Congress Ave</FONT></SPAN> <BR><SPAN 
          lang=en-us><FONT color=#0000ff face=Arial>Austin, TX 
          78701-1494</FONT></SPAN> <BR><SPAN lang=en-us><FONT color=#0000ff 
          face=Arial>512-463-9493</FONT></SPAN> <BR><SPAN lang=en-us><FONT 
          color=#0000ff face=Arial>CWortz@tea.state.tx.us</FONT></SPAN> </P>
          <DIV></DIV>
          <DIV align=left class=OutlookMessageHeader dir=ltr lang=en-us><FONT 
          face=Tahoma size=2>-----Original Message-----<BR><B>From:</B> 
          Hollis,Virginia [mailto:HollisVJ@pgdp.usec.com] <BR><B>Sent:</B> 
          Wednesday 2003 Mar 12 13:16<BR><B>To:</B> 
          'accessd@databaseadvisors.com'<BR><B>Subject:</B> RE: [AccessD] Adding 
          Attachments<BR><BR></FONT></DIV>
          <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
          class=930540919-12032003>Is there a way to have the attachment saved 
          (moved?) to a common network drive, or the directory the database is 
          stored?</SPAN></FONT></DIV>
          <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
          class=930540919-12032003></SPAN></FONT> </DIV>
          <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
          class=930540919-12032003>I got to thinking, there will be the user 
          that will attach a file that is stored on their computer, which 
          obviously will make it unavailable to everyone that needs the 
          attachment.</SPAN></FONT></DIV>
          <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
          class=930540919-12032003></SPAN></FONT> </DIV>
          <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
          class=930540919-12032003>Virginia</SPAN></FONT></DIV>
          <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
          class=930540919-12032003></SPAN></FONT> </DIV>
          <DIV><FONT color=#0000ff face=Arial size=2><SPAN 
          class=930540919-12032003></SPAN></FONT> </DIV>
          <BLOCKQUOTE style="MARGIN-RIGHT: 0px">
            <DIV align=left class=OutlookMessageHeader dir=ltr><FONT face=Tahoma 
            size=2>-----Original Message-----<BR><B>From:</B> Arthur Fuller 
            [mailto:artful@rogers.com]<BR><B>Sent:</B> Wednesday, March 12, 2003 
            7:09 AM<BR><B>To:</B> 
            accessd@databaseadvisors.com<BR><B>Subject:</B> RE: [AccessD] Adding 
            Attachments<BR><BR></DIV></FONT>
            <DIV class=Section1>
            <P class=MsoNormal><FONT color=navy face=Arial size=2><SPAN 
            style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">On my forms 
            I have the text field beside a little button whose text is just 3 
            dots. The OnClick fires the code I posted. The user navigates to a 
            file and selects ok, then the code plugs the complete filename into 
            the text field (in this case BigImagePath).</SPAN></FONT></P>
            <P class=MsoNormal><FONT color=navy face=Arial size=2><SPAN 
            style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt"></SPAN></FONT> </P>
            <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT face=Tahoma 
            size=2><SPAN 
            style="FONT-FAMILY: Tahoma; FONT-SIZE: 10pt">-----Original 
            Message-----<BR><B><SPAN style="FONT-WEIGHT: bold">From:</SPAN></B> 
            accessd-admin@databaseadvisors.com 
            [mailto:accessd-admin@databaseadvisors.com] <B><SPAN 
            style="FONT-WEIGHT: bold">On Behalf Of 
            </SPAN></B>Hollis,Virginia<BR><B><SPAN 
            style="FONT-WEIGHT: bold">Sent:</SPAN></B> March 11, 2003 12:34 
            PM<BR><B><SPAN style="FONT-WEIGHT: bold">To:</SPAN></B> 
            'accessd@databaseadvisors.com'<BR><B><SPAN 
            style="FONT-WEIGHT: bold">Subject:</SPAN></B> RE: [AccessD] Adding 
            Attachments</SPAN></FONT></P>
            <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT 
            face="Times New Roman" size=3><SPAN 
            style="FONT-SIZE: 12pt"></SPAN></FONT> </P>
            <DIV>
            <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=blue 
            face=Arial size=2><SPAN 
            style="COLOR: blue; FONT-FAMILY: Arial; FONT-SIZE: 10pt">Ok, I found 
            Sub TestGetFileName() in ADH.</SPAN></FONT></P></DIV>
            <DIV>
            <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT 
            face="Times New Roman" size=3><SPAN 
            style="FONT-SIZE: 12pt"></SPAN></FONT> </P></DIV>
            <DIV>
            <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=blue 
            face=Arial size=2><SPAN 
            style="COLOR: blue; FONT-FAMILY: Arial; FONT-SIZE: 10pt">You 
            mentioned posting the results to a control. Do I need to have a 
            button on the form that opens the GetFileName? Then what transfers 
            this file name to the field?</SPAN></FONT></P></DIV>
            <DIV>
            <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT 
            face="Times New Roman" size=3><SPAN 
            style="FONT-SIZE: 12pt"></SPAN></FONT> </P></DIV>
            <DIV>
            <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=blue 
            face=Arial size=2><SPAN 
            style="COLOR: blue; FONT-FAMILY: Arial; FONT-SIZE: 10pt">Virginia</SPAN></FONT></P></DIV>
            <BLOCKQUOTE 
            style="MARGIN-BOTTOM: 5pt; MARGIN-RIGHT: 0cm; MARGIN-TOP: 5pt">
              <P class=MsoNormal 
              style="MARGIN-BOTTOM: 12pt; MARGIN-LEFT: 36pt; MARGIN-RIGHT: 0cm"><FONT 
              face=Tahoma size=2><SPAN 
              style="FONT-FAMILY: Tahoma; FONT-SIZE: 10pt">-----Original 
              Message-----<BR><B><SPAN 
              style="FONT-WEIGHT: bold">From:</SPAN></B> Arthur Fuller 
              [mailto:artful@rogers.com]<BR><B><SPAN 
              style="FONT-WEIGHT: bold">Sent:</SPAN></B> Tuesday, March 11, 2003 
              10:20 AM<BR><B><SPAN style="FONT-WEIGHT: bold">To:</SPAN></B> 
              accessd@databaseadvisors.com<BR><B><SPAN 
              style="FONT-WEIGHT: bold">Subject:</SPAN></B> RE: [AccessD] Adding 
              Attachments</SPAN></FONT></P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">You don’t 
              need to use URLs if you don’t want to. I use code from ADH that 
              calls the Windows API to open the GetFile dialog, then posts the 
              result to a control on my form, like so:</SPAN></FONT></P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt"></SPAN></FONT> </P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">    
              With Me</SPAN></FONT></P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">        
              .BigImagePath = ahtCommonFileOpenSave()</SPAN></FONT></P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">    
              End With</SPAN></FONT></P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt"></SPAN></FONT> </P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">To cohere 
              to the licensing I cannot post said function or its API 
              declaration. Of course I could change all the variable names and 
              the function name and claim it as my own work, which is how I 
              learned to program, but now that I’m an old fart I don’t do that 
              any more.</SPAN></FONT></P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt"></SPAN></FONT> </P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">(Fuller’s 
              Law #3: You start out a Young Turk and before you know it you’re 
              an Old Fart.)</SPAN></FONT></P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt"></SPAN></FONT> </P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">The 
              function called above returns an absolute path, but given same and 
              knowledge of the app directory, it’s a simple matter to replace 
              the app path with a relative reference. The Replace function does 
              it in one line:</SPAN></FONT></P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt"></SPAN></FONT> </P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">    
              Replace( strExp as String, strFind as String, strReplace as String 
              )</SPAN></FONT></P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt"></SPAN></FONT> </P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">HTH,</SPAN></FONT></P>
              <P class=MsoNormal style="MARGIN-LEFT: 36pt"><FONT color=navy 
              face=Arial size=2><SPAN 
              style="COLOR: navy; FONT-FAMILY: Arial; FONT-SIZE: 10pt">A.</SPAN></FONT></P></BLOCKQUOTE></DIV></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BLOCKQUOTE></BODY></HTML>