I want to delete tags from all files except one tag SEEDS2TBLK

It is expected good practice to always start all posts I'm using MicroStation Version XXX, it appears from this post and others you often forget this but you seem to be using  V8i... The answers we give in these forums very much depend on the version your using, in future remember to state the version at the front of your posts.

If your  not a confident programer, then this type of requirement is always best done by recording a macro (VBA) because it creates the vba programming for you.. first you look at how doing all the steps by hand work, then repeat those steps with another drawing but have the vba recorder  running  then test again with another  file and run the recorded macro you created, if it worked then you can use the macro in the batch processor utility in microstation and you add all the files you want to process, I would recommend  keeping your list of files to process in medium size groups say 100 at a time .. if you use too big a grouping  it may crash microstation

If all files use same tagsets then there is one option with old v8 MSMACRO to open dialog and delete tags using dialog buttons.

See this example it does the opposite but could help.

Sub main
    Dim startPoint As MbePoint
    Dim point As MbePoint, point2 As MbePoint

'   Start a command
    MbeSendCommand "DIALOG MDL "
    

    MbeSendCommand "MDL SILENTLOAD TAGS DEFINE;DMSG FOCUSDIALOG 1 TAGS;VBA EXECUTE Sendkeys ""%FIT"""

mbemacro.suspend
MbeState.modalDialogByUser=1
'   Opened modal dialog "Open Tag Library"
'   Opened modal dialog "Import Sets"
'   MbeSendCommand "MBE1 CLOSEMODAL OK"

    MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setDirectoryCmd C:\V8i_Workspaces\WorkSpace\Projects\ATIS\data\"

    MbeSendCommand "MDL COMMAND MGDSHOOK,fileList_setFileNameCmd ATIS_Tagset.tlb"
    
    

'   Closed modal dialog "Open Tag Library"
   MbeSendCommand "MBE1 CLOSEMODAL OK"

End Sub
 

Another example how to move in dialog box using DMSG keyins.

Sub main
   
Mbesendcommand "set sharecell on"


Mbesendcommand "DMSG FOCUSDIALOG CELLMAINTENANCE"
   Mbesendcommand "DMSG CURSOR RIGHT"
    Mbesendcommand "DMSG CURSOR RIGHT"
    Mbesendcommand "DMSG CURSOR RIGHT"
    Mbesendcommand "DMSG ACTION OKAY"
    
    Mbesendcommand "place cell"

    End Sub

Afterwards this macro can be used on batch process but you will need v8i version.

Better approach would be to use this VBA and add that seeds2tblk is not deleted - https://communities.bentley.com/products/programming/microstation_programming/f/microstation-programming---forum/83962/deleted-all-tag-definitions-or-tag-sets/235920#235920

Thanks fro answer Mr Oto i am a beginner to microstataion i will try on this