how to display part file description details without open custom properties

hi,

i can display part file in listbox. i used below code. but i want to display description details with open custom properties


UserForm1.ListBox1.Visible = True

On Error Resume Next
    Dim swApp As SldWorks.SldWorks
    Set swApp = Application.SldWorks
    If Not swApp Is Nothing Then
        Dim strFolderPath As String
        strFolderPath = TextBox2.Text
        ListFolder strFolderPath
    End If
    Set swApp = Nothing
    If Err.Number <> 0 Then Err.Clear

Private Sub ListFolder(sFolderPath As String)

    On Error Resume Next

    Dim FS As New FileSystemObject

    Dim FSfolder As Folder

    Dim File As File

    Dim I As Integer

   

    Set FSfolder = FS.GetFolder(sFolderPath)

    UserForm1.ListBox1.Clear

    For Each File In FSfolder.Files

        DoEvents

        UserForm1.ListBox1.AddItem (File.Name)

       ' UserForm1.ListBox1.AddItem (

    Next File

    UserForm1.Show

    Set FSfolder = Nothing

End Sub

how to read description details without open custom properties

SolidworksApi macros