'*********************************************************************
' FileProp.frm
'
' VB6 Sample code for reading file properties using DSOFILE 2.0
'
' Copyright (c)1999-2000 Microsoft Corporation, All Rights Reserved
' Microsoft Product Support Services, Developer Support
'
' THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY OF
' ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED
' TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR
' A PARTICULAR PURPOSE.
'
'*********************************************************************
Option Explicit
'*********************************************************************
' FileProp Form Member Variables
'*********************************************************************
' Uses reference to "DSO OLE Document Properties Reader 2.0"
Private m_oDocumentProps As DSOFile.OleDocumentProperties
'*********************************************************************
' Form_Load -- Creates new instance of the component. Failure here
' will result in termination of the application. You need to register
' the DLL before building and running this sample!!
'*********************************************************************
Private Sub Form_Load()
' Create an instance of the DSOFile Object...
Set m_oDocumentProps = New DSOFile.OleDocumentProperties
' Fill in the default items for the DataType list...
lstCustType.AddItem "String"
lstCustType.AddItem "Long"
lstCustType.AddItem "Double"
lstCustType.AddItem "Boolean"
lstCustType.AddItem "Date"
' Show the form...
Me.Show
' Pick a file and open the properties for it,
If Not OpenDocumentProperties Then
End ' If user cancels, we exit...
End If
End Sub
'*********************************************************************
' Form_Unload -- Closes the dialog and prompts user to save (if dirty).
'*********************************************************************