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