You can get something like
C:\Test.doc
1/9/02
4:12:03 PM

by using the following:

Dim oRng As Range
Dim s As String
Set oRng = ActiveDocument.Range _
    (Start:=ActiveDocument.Range.End - 1, _
    End:=ActiveDocument.Range.End - 1)
s = vbCrLf & ActiveDocument.FullName & vbCrLf
s = s & Date & vbCrLf
s = s & Time & vbCrLf
oRng.InsertAfter s

HTH

Do you want this data as text or as fields that update whenever the document
is saved with a new name and with the current date and time each time the
field is updated?

If the former:
--------------------------------------------------------
Dim oRange As Range
Dim sFileName As String
Dim sDate As String
Dim sTextToInsert As String

  Set oRange = ActiveDocument.Content
  'Get the end of the document
  oRange.Collapse direction:=wdCollapseEnd

  'Get the path and filename of the document
  sFileName = ActiveDocument.FullName
  'Get date and time
  sDate = Format(Now, "MM dd yyyy hh:mm")

  'Paragraph mark, sfilename, tab, sdate
  sTextToInsert = vbCr & sFileName & Chr(9) & sDate
  oRange.Text = sTextToInsert

   Set oRange = Nothing
--------------------------------------------------------

Hope this helps,
regards,
Astrid

So that all can benefit from the discussion, please post all follow-ups to
the newsgroup.
Visit the MVP Word FAQ site at http://www.mvps.org/word/

Ok, here's some code that writes the fields:

--------------------------------------------------------
  Set oRange = ActiveDocument.Content
  'Get the end of the document
  oRange.Collapse direction:=wdCollapseEnd

  With oRange

  'Insert paragraphmark,
    .InsertParagraph
    .Collapse direction:=wdCollapseEnd

    'Insert path and file field
    ActiveDocument.Fields.Add Range:=oRange, _
                   Type:=wdFieldEmpty, _
                   Text:="FILENAME \p", _
                   preserveformatting:=False

    'Tab
    .MoveEnd unit:=wdParagraph
    .InsertAfter Chr(9)
    .MoveStart unit:=wdParagraph

    'Insert datefield
    ActiveDocument.Fields.Add Range:=oRange, _
                  Type:=wdFieldEmpty, _

_
                  preserveformatting:=False
  End With

  Set oRange = Nothing
--------------------------------------------------------

Hope this helps,
regards,
Astrid

So that all can benefit from the discussion, please post all follow-ups to
the newsgroup.
Visit the MVP Word FAQ site at http://www.mvps.org/word/