The Title.Attributes property returns a Long value specifying status information for a title.
Syntax
Title.Attributes
Return Values
The attributes can be one or more than one of the following values OR'ed together:
Disk Status | Bit Flag | Decimal Value |
Allocated | 0x00080000 | 524288 |
Initialized | 0x00100000 | 1048576 |
Invalid | 0x00200000 | 2097152 |
Block Format | 0x00400000 | 4194304 |
Can Stride | 0x00800000 | 8388608 |
Can Seek | 0x01000000 | 16777216 |
Example
The following code evaluates each title in the collection for its initialized status. This example adds a title, without the VOD extension, to a list box (if it is initialized), or increments an uninitialized tally (if it isn’t).
Dim title As IMSrvTitle
Dim name As String
MediaServer1.SetServer ("MyServer")
INITIALIZED = 1048576
uninit = 0
For title In MediaServer1.Titles("*.vod")
If (title.Attributes And INITIALIZED) Then
name = title.Name
lstServer.AddItem Left(name, Len(name)-4)
Else
uninit = uninit + 1
End If
Next
© 1996-1998 Microsoft Corporation. All rights reserved.