RoseApp.CurrentModel.Name will give you path + Model Name
Dim filePlusPath As String
filePlusPath = RoseApp.CurrentModel.Name
While filePlusPath <> "/"
filePlusPath = Right$(filePlusPath, Len(filePlusPath)-1)
Wend
The above will work although they may be a more direct way.
regards,
Mark Helie,
Alenia Marconi Systems
>
>Hi,
>first of all, thanks to John Hsia for his answer to my previous question.
>One more question: How can i retrieve the path of the current model?
>
>_______________________________________________________________
>Met vriendelijke groeten - Cordialement - Best Regards - Mit freundlichen
>Gr��en
>
>Vincent Allard
>Responsable des Standards
>
>GFDI asbl/vzw - Avenue Carton de Wiartlaan 128 - Bruxelles 1090 Brussel
>Tel. : +32 (0)2 421 46 56
>Fax : +32 (0)2 420 33 15
>GSM : /
>E-Mail : MailTo:[EMAIL PROTECTED]
>
>
>************************************************************************
>* Rose Forum is a public venue for ideas and discussions.
>* For technical support, visit http://www.rational.com/support
>*
>* Admin.Subscription Requests: [EMAIL PROTECTED]
>* Archive of messages:
>http://www.rational.com/products/rose/usergroups/rose_forum.jtmpl
>* Other Requests: [EMAIL PROTECTED]
>*
>* To unsubscribe from the list, please send email
>*
>* To: [EMAIL PROTECTED]
>* Subject:<BLANK>
>* Body: unsubscribe rose_forum
>*
>*************************************************************************
************************************************************************
* Rose Forum is a public venue for ideas and discussions.
* For technical support, visit http://www.rational.com/support
*
* Admin.Subscription Requests: [EMAIL PROTECTED]
* Archive of messages:
http://www.rational.com/products/rose/usergroups/rose_forum.jtmpl
* Other Requests: [EMAIL PROTECTED]
*
* To unsubscribe from the list, please send email
*
* To: [EMAIL PROTECTED]
* Subject:<BLANK>
* Body: unsubscribe rose_forum
*
*************************************************************************
