
Dim progman As Long
Dim shelldlldefview As Long
Dim syslistview As Long
progman = FindWindow("progman", vbNullString)
shelldlldefview = FindWindowEx(progman, 0&, "shelldll_defview", vbNullString)
syslistview = FindWindowEx(shelldlldefview, 0&, "syslistview32", vbNullString)
If syslistview = 0 Then
Msgbox "Error: Cannot find window"
Exit Sub
End IfReturn to Visual Basic Programming
Users browsing this forum: No registered users and 0 guests