how to detect currently opened swf filename

See more:

VB6

VB

VBScript

hi
i want to detect currently opened swf file name here is my code

Private Const GW_HWNDNEXT = 2
Private Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Sub Form_Load()
   ListWins "*.swf*"
End Sub

Sub ListWins(Optional Title = "*", Optional Class = "*")
   Dim hWndThis As Long
   hWndThis = FindWindow(vbNullString, vbNullString)
   While hWndThis
      Dim sTitle As String, sClass As String
      sTitle = Space$(255)
      sTitle = Left$(sTitle, GetWindowText(hWndThis, sTitle, Len(sTitle)))
      sClass = Space$(255)
      sClass = Left$(sClass, GetClassName(hWndThis, sClass, Len(sClass)))
      If sTitle Like Title And sClass Like Class Then
         Debug.Print sTitle, sClass
         List1.AddItem (sTitle)
      End If
      hWndThis = GetWindow(hWndThis, GW_HWNDNEXT)
   Wend
End Sub

this code is working fine to detect *.doc,*.xls files name but not working on *.swf files please help me