Loading ...
Sorry, an error occurred while loading the content.

[Clip] Re: A really dumb clip.

Expand Messages
  • Larry Thomas
    Hi Ray, ... Your welcome :-) Did you ever notice that the word clip looks sorta like a smiley? ... H= Current Document2 ;Larry Thomas
    Message 1 of 2 , Oct 13, 1999
    • 0 Attachment
      Hi Ray,

      At 06:02 PM 10/13/1999 -0500, you wrote:
      >>H="Current Document"
      >
      >Thanks Larry!
      >Ray

      Your welcome :-) Did you ever notice that the word clip looks sorta like a
      smiley?

      ---------< start clip >---------
      H="Current Document2"
      ;Larry Thomas <larryt@...>
      ;10/13/1999, 06:13:51 PM
      ^!Set %Fname%=Current Document: ^$GetFileName(^**)$^%nl%
      ^!IfFalse ^$GetFileDate(^**)$ NoDate Else Next

      ;Long line:
      ^!Append %Fname%=File Date/Time:
      ^$StrCopy("^$GetFileDate(^**)$";5;2)$/^$StrCopy("^$GetFileDate(^**)$";7;2)$/
      ^$StrCopy("
      ^$GetFileDate(^**)$";1;4)$ /
      ;End Long line:

      ;Long Line:
      ^!Append
      %Fname%=^$StrCopy("^$GetFileTime(^**)$";1;2)$:^$StrCopy("^$GetFileTime(^**)$
      ";3;2)$:^$StrCopy("^$GetFileTime(^**)$";5;2)$
      ;End Long line:

      ^!Goto Path
      :NoDate
      ^!Append %Fname%=There is no Date/Time: The file is readonly.
      :Path
      ^!Append %Fname%=^%nl%File Path: ^$GetPath(^**)$^%nl%File Size:
      ^$GetFileSize(^**)$ Bytes^%nl^%nl%
      ^!Append %Fname%=This document is number ^$GetDocIndex$ of ^$GetDocCount$
      open documents.
      ^!Info ^%Fname%
      ---------< end clip >-----------

      Regards,

      Larry
      larryt@...
    Your message has been successfully submitted and would be delivered to recipients shortly.