Soru Çalışan programları Combo da Fitrelemek

[k0081]

Merhaba arkadaşlar;

alttaki kod ile çalışan programları combo ya ekliyorum.

yapmak istediğim

F harfi ile başlayanları yüklemek... bunu nasıl yapabilirim ?

Private Sub cmdLoad_Click()
Dim oServ As Object
Dim cProc As Variant
Dim oProc As Object
Combo1.Clear
Set oServ = GetObject("winmgmts:")
Set cProc = oServ.ExecQuery("Select * from Win32_Process")


For Each oProc In cProc
Combo1.AddItem (oProc.Name)
Next
End Sub

 

[arrow3441]

Merhaba kodunuzu alttaki gibi değiştirip denermisiniz
Set cProc = oServ.ExecQuery("Select * from Win32_Process Where Name Like 'F%' ")

 

[k0081]

@arrow3441

Çok teşekkür ediyorum. Tamamdır.. elinize sağlık.

 

[arrow3441]

rica ediyorum kolay gelsin