Jump to content

Get File Path


Juno

Recommended Posts

  • 2 years later...

It seems to be undocumented in the function reference, but GetFPathName works for this. It returns a STRING.

Here is a code sample I found on the Internet somewhere...

{======================================}

PROCEDURE Path;

VAR

objectName, RecName, thisFont : STRING;

objectHand, recordHand, wallHand : HANDLE;

Position : INTEGER;

BEGIN

IF (GetCustomObjectInfo(objectName, objectHand, recordHand, wallHand)) THEN

BEGIN

RecName := GetName(recordHand);

PushAttrs;

SetObjectVariableBoolean(objectHand, 800, true);

TextOrigin(0, 0);

CreateText(GetFPathName);

SetName(objectHand, 'Path Stamp');

PopAttrs;

IF PUPDATE THEN

SetRField(objectHand, recName, 'Update', 'FALSE');

END;

END;

Run (Path);

{======================================}

Link to comment

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...