Script for deleting a pattern by name

Question

I want to delete a pattern by using its name.

Answer 1

Thank so much for your prompt reply.
I am using Photoshop CS3 and i have converted this code to VB.Net, but i am getting error on below line
theNames(cnt) = patternNames.getString(cnt).
Error Message : General Photoshop error occurred. This functionality may not be available in this version of Photoshop.
I think this function is not available in CS3. Would you please guide me on this error.
Thank you.
This is the code that i have converted.
'REM =======================================================
        Dim objApp
        objApp = CreateObject("Photoshop.Application")
        'REM Use dialog mode 3 for show no dialogs
        Dim dialogMode
        dialogMode = 3
        Dim desc5
        desc5 = CreateObject("Photoshop.ActionDescriptor")
        Dim ref1
        ref1 = CreateObject("Photoshop.ActionReference")
        Call ref1.PutProperty(objApp.StringIDToTypeID("property"), objApp.StringIDToTypeID("presetManager"))
        Call ref1.PutEnumerated(objApp.charIDToTypeID("capp"), _
                                objApp.charIDToTypeID("Ordn"), _
                                objApp.charIDToTypeID("Trgt"))
        Dim applicationDesc = objApp.executeActionGet(ref1)
        Dim presetManager = applicationDesc.getList(objApp.stringIDToTypeID("presetManager"))
        Dim patternNames = presetManager.getObjectValue(4).getList(objApp.stringIDToTypeID("name"))
        Dim theNames(patternNames.count) As String
        For cnt As Integer = 0 To patternNames.count
            theNames(cnt) = patternNames.getString(cnt)
        Next
        MessageBox.Show(String.Join(",", theNames))