' 最上位の Rational ClearCase アプリケーション オブジェクトに接続します。 Dim CC As New ClearCase.Application Dim Elem As CCElement Set Elem = CC.Element("m:¥carol_main¥caroltest¥testelem.c") MsgBox Elem.ElementType ' will be "text_file" for text files