Справочное руководство по TDMS 7.0 API
VB Script (1)
Смотри также Отправить замечание

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

Option Explicit
Call ShowPathInfo()


'==============================================================================
' Сообщить путь к локальной рабочей папке текущего пользователя
'==============================================================================
Sub ShowPathInfo()

        MsgBox "Путь к рабочей папке текущего пользователя: " & Chr(13) & _
                """" & ThisApplication.WorkFolder & """", _
                vbInformation, "Информация о текущей настройке"
End Sub 
'==============================================================================