Sub first()
Dim oFS, oFile,oObj, oVSS, oPrj

    Set oFS = CreateObject("Scripting.FileSystemObject")
    Set oFile = oFS.CreateTextFile(Me!TFolder & "/" & Me!output_file, True)
    
    Set oVSS = CreateObject("SourceSafe")
    Call oVSS.Open
    Set oPrj = oVSS.VSSItem(Me!vss_path)
    
    For Each oObj In oPrj.Items(True)
        Call WriteItem(oFile, oObj,  0 , "")
    Next

end sub

Sub WriteItem(oFile, oObj, Ident) 
    Dim i, oObj1

    oFile.Write ("<tr><td>")
    For i =  0  To Ident
        oFile.Write (" ")
    Next
    oFile.Write (oObj.Name)

'вот тут предполагаю проверку - 
'если oObj.Type=1(файл), 
'то oFile.Write (oObj.Size)-но такого метода нет

    oFile.WriteLine ("</td><td> </td></tr>")
    If oObj.Type =  0  Then
    For Each oObj1 In oObj.Items
        Call WriteItem(oFile, oObj1, Ident +  1 )
    Next
    End If
End Sub