DSO deleting using VB

Ok im just trying to learn about VB, as my first project i decided to write a little proggy that would delete the dso files in the Realmwars demo, i figured it might be usefull, i figure it could be easily adapted to your individual projects, i have built a .exe that works ok, i would appreciate any input, anyway heres the source.

--------------------------------------------------------------------------------Private Sub Command1_Click()
Open "C:\DSOMatrix.txt" For Output As #1
Print #1, "@Echo Off"
Print #1, "cls"
Print #1, "@del C:\GarageGames\RealmWars\*.dso"
Print #1, "cls"
Print #1, "@del C:\GarageGames\RealmWars\rw\*.dso"
Print #1, "cls"
Print #1, "@del C:\GarageGames\RealmWars\rw\server\*.dso"
Print #1, "cls"
Print #1, "@del C:\GarageGames\RealmWars\rw\server\scripts\*.dso"
Print #1, "cls"
Print #1, "@del C:\GarageGames\RealmWars\rw\data\*.dso"
Print #1, "cls"
Print #1, "@del C:\GarageGames\RealmWars\rw\client\*.dso"
Print #1, "cls"
Print #1, "@del C:\GarageGames\RealmWars\rw\client\scripts\*.dso"
Print #1, "cls"
Print #1, "@del C:\GarageGames\RealmWars\rw\client\ui\*.dso"
Print #1, "cls"
Close #1
Name "C:\DSOMatrix.txt" As "C:\DSOMatrix.bat"
Shell "C:\DSOMatrix.bat"
MsgBox "All RealmWars .DSO Files Deleteted!"
Kill "C:\DSOMatrix.bat"
End

End Sub

Private Sub Command2_Click()
End


End Sub--------------------------------------------------------------------------------

Hope this is of some use any pointers welcome
this may be of some use to RW project, or people looking at changing RW scripts
Anyone needing a compiled version adapted for their particular game, may simply contact me and supply a copy of the game directory they are working with, not the files, just a copy of how the directory/folders are set out, alternativly, feel free to adapt the code yourselves if you have the resources to compile VB