## On this page

  

 

 # ExportCurrentViewToXMP

 Last update: 17.07.2025 

## Description

This function allows you to export the Current view of the opened \*.OptisVR or \*.Speos360 file in XMP format.

## Syntax

*object*.ExportCurrentViewToXMP(BSTR strOutputNameFile) As Bool

- *object*: Virtual Reality Lab object
- *BSTR strOutputFileName*: This variable is composed of the path, the filename and the extension
- Bool return
    
    
    - True: success
    - False: fail

## Example

```
Sub ExportCurrentViewToXMP()
'ReturnValue Management
Dim ReturnValue As Bool
'Declare Virtual Reality Lab
Dim VirtualRealityLab As Object
Set VirtualRealityLab = CreateObject("HDRIViewer.Application")
'Check if the object is created
Dim CheckErrorCreateObject
CheckErrorCreateObject = VirtualRealityLab.GetPID()
if(CheckErrorCreateObject = empty) then
   MsgBox ("Creation of object failed")
else
   'Show Virtual Reality Lab
   ReturnValue = VirtualRealityLab.Show(True)
   'Open File
   ReturnValue = VirtualRealityLab.OpenFile("C:\username\API VRLab\InteriorCar.speos360")
   'Export Speos360 file current view to XMP file
   ReturnValue = VirtualRealityLab.ExportCurrentViewToXMP("C:\username\API VRLab\InteriorCar.xmp")
   MsgBox ("Export complete")
end if
End Sub
         

```