FileMaker Pro Custom Functions

/* Convert from FileMaker filepath to OS filepath (HFS or NTFS) Convert the results from Get(FilePath) (‘file:’), a path in a file container field (‘filemac:’, ‘filewin:’), or an image container field (‘imagemac:’, ‘imagewin:’) to a form suitable for AppleScript, DOS, etc. Handles both absolute and relative paths. Examples: Container field on OS Ⅹ (‘image:’ and ‘size:’ are ignored): From: imagemac:/tom/Me Myself I/Programs/FileMaker Pro/Custom Functions/FilePathToOS/iphone%2F3g.jpg To: tom:Me Myself I:Programs:FileMaker Pro:Custom Functions:FilePathToOS:iphone/3g.jpg Get(FilePath) on OS Ⅹ: From: file:/tom/Me Myself I/Programs/FileMaker Pro/Custom Functions/FilePathToOS/FilePathToOS%2FTest.fp7 To: tom:Me Myself I:Programs:FileMaker Pro:Custom Functions:FilePathToOS:FilePathToOS/Test.fp7 Get(TemporaryPath) on OS Ⅹ: From: /Amphe/private/var/tmp/folders/501/TemporaryItems/FileMaker/ To: Amphe:private:var:tmp:folders:501:TemporaryItems:FileMaker: Container field on Windows (‘image:’ and ‘size:’ are ignored): From: imagewin:/C:/Documents and Settings/Administrator/My Documents/FilePathToOS/iphone3gwin.jpg To: C:\Documents and Settings\Administrator\My Documents\FilePathToOS\iphone3gwin.jpg Get(FilePath) on Windows: From: file:/C:/Documents and Settings/Administrator/My Documents/FilePathToOS/FilePathToOS Windows Test.fp7 To: C:\Documents and Settings\Administrator\My Documents\FilePathToOS\FilePathToOS Windows Test.fp7 Get(TemporaryPath) on Windows: From: /C:/Documents and Settings/Administrator/Local Settings/Temp/ To: C:\Documents and Settings\Administrator\Local Settings\Temp\ Author: 2008-08-14 Tom Robinson <http://www.tomrobinson.co.nz/> OS Ⅹ portion based on my FilePathToHFS custom function and supersedes that Change History: */ if(Abs(Get(SystemPlatform))=1; /* OS Ⅹ */ Let([ result="¶"&FMFilePath; /* Prepend a return for safety when searching for identifier */ pathpos=Case( PatternCount(result;"¶filemac:");Position(result;"¶filemac:";1;1)+8; /* 1st choice */ PatternCount(result;"¶imagemac:");Position(result;"¶imagemac:";1;1)+9; /* 2nd choice */ PatternCount(result;"¶file:");Position(result;"¶file:";1;1)+5; /* Last usual choice */ 1 /* No identifier (e.g. Get(TemporaryPath)) */ ); result=Right(result;Length(result)-pathpos); /* Everything post identifier to end of string */ result=GetValue(result;1); /* Reduce to first value in string */ result=If(Left(result;1)="/";Right(result;Length(result)-1);":"&result); /* Switch leading slash (FM absolute) for nothing (HFS absolute), and no leading slash (FM relative) for a colon (HFS relative) */ result=Substitute(result;["/";":"];["%2F";"/"]) /* Convert slashes to colons, encoded slashes to slashes */ ];result) ; /* Else Windoze */ Let([ result="¶"&FMFilePath; pathpos=Case( PatternCount(result;"¶filewin:");Position(result;"¶filewin:";1;1)+8; PatternCount(result;"¶imagewin:");Position(result;"¶imagewin:";1;1)+9; PatternCount(result;"¶file:");Position(result;"¶file:";1;1)+5; 1 ); result=Right(result;Length(result)-pathpos); /* Everything post identifier to end of string */ result=GetValue(result;1); /* Reduce to first value in string */ result=If(Left(result;1)="/";Right(result;Length(result)-1);result); /* Remove leading slash if present */ result=Substitute(result;["/";"\\"]) /* Convert slashes to backslashes */ ];result) )
 Then copy & paste into FileMaker Advanced's Edit Custom Function window.