how to freeze top row in excel using vbscript

Dim app, fso, file, fName, wb, dir 

dir = "D:TA"

dirsave = "D:TAXLS"

Set app = CreateObject("Excel.Application")
Set fso = CreateObject("Scripting.FileSystemObject")

For Each file In fso.GetFolder(dir).Files
    If LCase(fso.GetExtensionName(file)) = "csv" Then  
    fName = fso.GetBaseName(file)

    Set wb = app.Workbooks.Open(file) 
    app.Application.Visible = True
    app.Application.DisplayAlerts = False
    app.ActiveWorkbook.SaveAs dirsave & "" & fName & ".xls", 56
    app.ActiveWorkbook.Close 
    app.Application.DisplayAlerts = True 
    app.Application.Quit 

    End if
Next

I use this script to open csv file and save them in another directory as xls file. I also want to add one more feature - I want to free the top row so that when I scroll down it remain constant How can I do that?