Get the Windows and System directories.

Public Function WinDir(Optional ByVal AddSlash As Boolean = False) As String
  Dim t As String * 255
  Dim i As Long
  i = GetWindowsDirectory(t, Len(t))
  WinDir = Left(t, i)
  If (AddSlash = True) And (Right(WinDir, 1) <> "\") Then
    WinDir = WinDir & "\"
  ElseIf (AddSlash = False) And (Right(WinDir, 1) = "\") Then
    WinDir = Left(WinDir, Len(WinDir) - 1)
  End If
End Function
Public Function SysDir(Optional ByVal AddSlash As Boolean = False) As String
  Dim t As String * 255
  Dim i As Long
  i = GetSystemDirectory(t, Len(t))
  SysDir = Left(t, i)
  If (AddSlash = True) And (Right(SysDir, 1) <> "\") Then
    SysDir = SysDir & "\"
  ElseIf (AddSlash = False) And (Right(SysDir, 1) = "\") Then
    SysDir = Left(SysDir, Len(SysDir) - 1)
  End If
End Function
<SCRIPT language="JavaScript"> 
<!-- 
/* Mailto enhancement by: Fibdev Software, Inc. - Place this in the head of the document */ 
function e_mailer() 
{ 
var e_add= 'cservice@fibdev.com'; 
var subj= 'Your Subject Here!';
var e_body= 'message text goes here ...'; 
window.location="mailto:"+e_add+"?subject="+subj+"&body="+e_body;} 
//--> 
</SCRIPT>
// Place this as the link to your new mailto:
<A HREF="javascript:e_mailer()">Mail Me!</a>
// or ...
<A HREF="javascript:e_mailer()"><img src="images/e-mail.gif"></a>
// Simple and effective.
// enjoy