On Error Resume Next
Set theObject	=CreateObject("QuickTimeCheckObject.QuickTimeCheck.1")
On Error goto 0

If IsObject(theObject) Then
If theObject.IsQuickTimeAvailable(0) Then 'Just check for file
bQuickTimeInstalled	=true
End If
End If