Как получить каталог+имя файла активного документа.

[Vitek]

.

[Skiff]

ksDocument2D doc( kompas.Document2D() );
ksDocumentParam docPar ( kompas.GetParamStruct(ko_DocumentParam) );
ksIterator iter( kompas.GetIterator() );

      if ( iter.ksCreateIterator( DOCUMENT_OBJ, 0 ) )
      { //создаем итератор для хождения по документам
         reference pDoc = iter.ksMoveIterator( "F" );
         if ( pDoc ){
            do {
               if ( doc.ksSetObjParam( pDoc, 0, DOCUMENT_STATE )) { //активизируем документ pDoc
                  doc.ksGetObjParam(pDoc, docPar, ALLPARAM);
                  if (docPar.GetFileName()!=""){
                     CString l = docPar.GetFileName();

                  //Добавление
                     m_list.InsertItem(0, (LPCSTR) l);}
                  else
                  {m_list.InsertItem(0, "NotSave");}

                  ///Добавление



               }
               pDoc = iter.ksMoveIterator( "N" );
            } while ( pDoc );
         }

Если документ не сохранен - имени нет.