dim clipFile

clipFile = Application.InstallationPath( siFactoryPath ) & "\Data\XSI_SAMPLES\Pictures\bottom_teeth.jpg"

const clipName = "MyClip"

' Create an image clip

CreateImageClip clipFile, clipName

' Create a folder named MyBMP_Clips

CreateFolder "Clips", "MyBMP_Clips"

' Move the clip under the new folder

MoveToFolder "Clips.MyBMP_Clips", "Clips." & clipName

'remove the folder along with the clip we just  moved

RemoveFolder "Clips.MyBMP_Clips"