Here's how I did it:
Left(RunState.SequenceFile.Path, Find(RunState.SequenceFile.Path, "\\", 0, true, true) + 1)
RunState.SequenceFile.Path is an API call that returns the full path of the current sequence. If the sequence has never been saved then it returns "".
Regards,