title: Get full path of a relative path
body: <p>I have the following code in Globals.bas:</p>
  
  <pre><code>Public Const strErrorLog = "log.log"
  
      Public Sub WriteLog(ByVal strMess As String, ByVal ErrLog As String)
      Dim intLogFile As Integer
  
      On Error GoTo GenErr
          'Print the path of the log file
          If ErrLog &lt;&gt; "" Then
              ' save errors to a text file
              intLogFile = FreeFile
              Open ErrLog For Append As #intLogFile
              Print #intLogFile, Str(Now) &amp; " " &amp; strMess
              Close intLogFile
          End If
  
          Exit Sub
      GenErr:
          Select Case ShowError(Err, Error$ &amp; " in WriteLog", strErrorLog)
              Case vbAbort: Exit Sub: Case vbIgnore: Resume Next: Case vbRetry: Resume
          End Select
  
      End Sub
  </code></pre>
  
  <p>How do I get the full path of the log file as the application does not seem to be writing to the correct place.</p>