Исходный текст

Option Explicit
Call GetObjectsByGUID()

'==============================================================================
'Получить описания объектов, чьи файлы выгружались на жесткий диск, по GUID.

'Пример основан на том, что при выгрузке файлов объектов на диск в рабочей папке
'текущего пользователя TDMS создаются дочерние папки с именами, соответствующими
'GUID объектов-владельцев.
'==============================================================================
Sub GetObjectsByGUID()
        Dim  posStart, strLen, strGUID, obj, EditObjDlg, fs, _
                    SubFoldCol, SubF, strMsg
        
        'Использовать FileSystemObject для работы с папками
        Set fs = CreateObject("Scripting.FileSystemObject")
        'Получить коллекцию папок объектов
        Set SubFoldCol = fs.GetFolder(ThisApplication.WorkFolder).SubFolders

        'Если коллекция непустая, перечислить имена объектов
        If SubFoldCol.Count <> 0 Then
                For Each SubF In SubFoldCol
                
                        strGUID = Trim(SubF.Name)
                        Set obj = ThisApplication.GetObjectByGUID(strGUID)
                        strMsg = strMsg & obj.Description & Chr(13)
                Next
                MsgBox "Описания объектов, файлы которых выгружались на диск:" & Chr(13) & _
                            strMsg, vbInformation, "Информация"
        Else
                MsgBox "Откройте файл любого пользовательского " & Chr(13) & _
                            "объекта и запустите пример еще раз.", vbInformation, "Пример VB Script"
        End If
End Sub
'==============================================================================