RelativePath 0 0 0 CreateRelativePath 1 134217984 Function CreateRelativePath(extends fromFile as FolderItem, toFile as FolderItem) As String if not fromFile.Directory then fromFile = fromFile.Parent end if // Get a list of path parts by looping until the parent is nil. dim tmpf as FolderItem dim fromPathParts() as String dim toPathParts() as String tmpf = fromFile while tmpf <> nil fromPathParts.Append tmpf.Name tmpf = tmpf.Parent wend tmpf = toFile while tmpf <> nil toPathParts.Append tmpf.Name tmpf = tmpf.Parent wend // If the top-level items don't match, we're on different volumes, and that ain't going to work if fromPathParts( ubound( fromPathParts ) ) <> toPathParts( ubound( toPathParts ) ) then return "" end if // Now, remove each of the common items from the tops of both arrays. while ubound( fromPathParts ) >= 0 and ubound( toPathParts ) >= 0 _ and fromPathParts( ubound( fromPathParts ) ) = toPathParts( UBound( toPathParts ) ) fromPathParts.Remove( UBound( fromPathParts ) ) toPathParts.Remove( UBound( toPathParts ) ) wend // Now, for every "from" path part that's remaining, it's one level we must go up. dim relativePathParts() as String if UBound( fromPathParts ) < 0 then // Just operate on the current directory relativePathParts.Append kSameDirPath else for i as integer = 0 to UBound( fromPathParts ) relativePathParts.Append kUpDirPath next end if // Now that we're up to the same parent folder, we need to traverse down into // each "toPathPart" while UBound( toPathParts ) >= 0 relativePathParts.Append toPathParts.Pop wend // Finally, return the result return join( relativePathParts, kPathSeparator ) End Function 134217984 0 0 extends fromFile as FolderItem, toFile as FolderItem String ResolveRelativePath 1 134217984 Function ResolveRelativePath(extends fromFile as FolderItem, path as String) As FolderItem if not fromFile.Directory then fromFile = fromFile.Parent // Split the path parts and operate on the parts dim outf as FolderItem = fromFile dim pathParts() as String = Split( path, kPathSeparator ) for i as integer = 0 to UBound( pathParts ) if outf = nil then exit if pathParts(i) = kUpDirPath then outf = outf.Parent elseif pathParts(i) = kSameDirPath then // Nothing, stay the same else outf = outf.Child( pathParts(i) ) end if next return outf End Function 134217984 0 0 extends fromFile as FolderItem, path as String FolderItem Name 1 ID Index 1 ID -2147483648 Super 1 ID Left 1 Position 0 Top 1 Position 0 134217984 kUpDirPath 0 .. 33 134217984 kSameDirPath 0 . 33 134217984 kPathSeparator 0 : 33