on error resume next
If vbs = "true" Then
	For i = 2 to 5
		If Not(IsObject(CreateObject("ShockwaveFlash.ShockwaveFlash." & i))) Then

		Else
			If i < 5 Then
				swfReady = 0
			Else
				swfReady = 1
			End If
		End If
	Next
End If

on error resume next
Sub swf_FSCommand(ByVal command, ByVal args)
	call swf_DoFSCommand(command, args)
end sub