i have to create macro automatically open all the files(.prt, .sldprt)  in a folder and run in the solidworks

/* folder path select*/

Filter = "SolidWorks Files (*.sldprt; *.sldasm; *.slddrw)|*.sldprt;*.sldasm;*.slddrw|Filter name (*.fil)|*.fil|All Files (*.*)|*.*"

fileName = swApp.GetOpenFileName("File to Attach", "", Filter, fileOptions, fileConfig, fileDispName)

TextBox1.Text = fileDispName

/* open file in solidwork window*/

Set Part = swApp.OpenDoc6("fileDispName", 1, 0, "", longstatus, longwarnings)

'or

Set Part = swApp.OpenDoc6("TextBox1.Text", 1, 0, "", longstatus, longwarnings)

swApp.ActivateDoc2 "HTFB-1070-300", False, longstatus
Set Part = swApp.ActiveDoc
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameLeft = 0
myModelView.FrameTop = 0
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized