Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3129680 Thu, 03 May 2012 01:29:01 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3129680 Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3129562 Wed, 02 May 2012 16:11:05 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3129562 Filka, всё, спасибо, подошло! Спасибо огромное]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3128072 Sat, 28 Apr 2012 19:58:44 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3128072 Filka, попробую, скажу, просто под рукой WinXP сейчас нет.]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3127633 Sat, 28 Apr 2012 02:49:53 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3127633
    Option Explicit
    Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
    'Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    'Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
    'Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
    Const WM_GETTEXTLENGTH As Long = &HE
    Const WM_GETTEXT As Long = &HD
     
    Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
      Dim sSave As String
      Dim Ret As Long
      Dim hndExpl As Long
      Dim ClassName As String
     
      ClassName = Space(255)
      Ret = GetClassName(hwnd, ClassName, 255)
      ClassName = Left(ClassName, Ret)
            
      If ClassName = "CabinetWClass" Then
        hndExpl = FindWindowEx(hwnd, 0, "WorkerW", vbNullString)
        hndExpl = FindWindowEx(hndExpl, 0, "ReBarWindow32", vbNullString)
        hndExpl = FindWindowEx(hndExpl, 0, "ComboBoxEx32", vbNullString)
        hndExpl = FindWindowEx(hndExpl, 0, "ComboBox", vbNullString)
        hndExpl = FindWindowEx(hndExpl, 0, "Edit", vbNullString)
     
        Ret = SendMessage(hndExpl, WM_GETTEXTLENGTH, 0, 0)
        sSave = Space(Ret + 1)
        SendMessage hndExpl, WM_GETTEXT, Ret + 1, ByVal sSave
        sSave = Left(sSave, Ret) + vbCrLf
        Form1.Text1.Text = Form1.Text1.Text + sSave
      End If
      
      EnumWindowsProc = True
    End Function

salieri, подошло?]]> Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3127527 Fri, 27 Apr 2012 17:42:43 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3127527
    'модуль
    Option Explicit
    Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
    Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
     
    Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim sSave As String
    Dim Ret As Long
    Dim hndExpl As Long
    Dim iTxtLen As Long
            
    hndExpl = FindWindow("CabinetWClass", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "WorkerW", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "ReBarWindow32", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "ComboBoxEx32", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "ComboBox", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "Edit", vbNullString)
     
    Ret = GetWindowTextLength(hndExpl)
    sSave = Space(Ret)
    GetWindowText hndExpl, sSave, Ret + 1
    Form1.Text1.Text = Form1.Text1.Text + sSave + vbCrLf
    EnumWindowsProc = True
    End Function
     
    'форма
    Option Explicit
     
    Private Sub Form_Load()
     
    Text1.Text = vbNullString
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
     
    End Sub

123.JPG (, : 448)

Добавлено
Проблема с этой строкой:
    Ret = GetWindowTextLength(hndExpl)
Ret равен нулю!]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3125904 Thu, 26 Apr 2012 05:13:30 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3125904 Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3125893 Thu, 26 Apr 2012 04:56:06 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3125893 Filka, спасибо огромное, всё получилось!]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3125868 Thu, 26 Apr 2012 02:51:48 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3125868
    Option Explicit
    Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
    Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
    Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
     
    Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
      Dim sSave As String
      Dim Ret As Long
      Dim hndExpl As Long
      Dim ClassName As String
     
      ClassName = Space(255)
      Ret = GetClassName(hwnd, ClassName, 255)
      ClassName = Left(ClassName, Ret)
      
      If ClassName = "CabinetWClass" Then
        hndExpl = FindWindowEx(hwnd, 0, "WorkerW", vbNullString)
        hndExpl = FindWindowEx(hndExpl, 0, "ReBarWindow32", vbNullString)
        hndExpl = FindWindowEx(hndExpl, 0, "Address Band Root", vbNullString)
        hndExpl = FindWindowEx(hndExpl, 0, "msctls_progress32", vbNullString)
        hndExpl = FindWindowEx(hndExpl, 0, "Breadcrumb Parent", vbNullString)
        hndExpl = FindWindowEx(hndExpl, 0, "ToolBarWindow32", vbNullString)
     
        Ret = GetWindowTextLength(hndExpl)
        sSave = Space(Ret)
        GetWindowText hndExpl, sSave, Ret + 1
        Form1.Text1.Text = Form1.Text1.Text + sSave + vbCrLf
      End If
      
      EnumWindowsProc = True
    End Function
]]> Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3125720 Wed, 25 Apr 2012 17:10:49 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3125720 Filka, написал, как-то опять не так выводит. Повторяет одну и ту же директорию n-ое число раз, при том, что открыто 2 директории. В чём опять ошибка?

    ' Модуль
     
    Option Explicit
    Declare Function EnumWindows Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Boolean
    Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
    Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
    Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
     
    Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Boolean
    Dim sSave As String
    Dim Ret As Long
    Dim hndExpl As Long
    Dim iTxtLen As Long
            
    hndExpl = FindWindow("CabinetWClass", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "WorkerW", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "ReBarWindow32", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "Address Band Root", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "msctls_progress32", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "Breadcrumb Parent", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "ToolBarWindow32", vbNullString)
     
    Ret = GetWindowTextLength(hndExpl)
    sSave = Space(Ret)
    GetWindowText hndExpl, sSave, Ret + 1
    Form1.Text1.Text = Form1.Text1.Text + sSave + vbCrLf
    EnumWindowsProc = True
    End Function
     
    ' Форма
     
    Option Explicit
     
    Private Sub Form_Load()
     
    Text1.Text = vbNullString
    EnumWindows AddressOf EnumWindowsProc, ByVal 0&
     
    End Sub
]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124802 Tue, 24 Apr 2012 16:18:00 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124802 Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124773 Tue, 24 Apr 2012 15:58:01 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124773 Filka, получилось, но не могу теперь текст вывести:

     Sub findhead()
         Dim hndExpl As Long
     
         Dim s As String, iTxtLen As Long
        
    hndExpl = FindWindow("CabinetWClass", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "WorkerW", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "ReBarWindow32", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "Address Band Root", vbNullString)
     
    hndExpl = FindWindowEx(hndExpl, 0, "msctls_progress32", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "Breadcrumb Parent", vbNullString)
     
     
    hndExpl = FindWindowEx(hndExpl, 0, "ToolBarWindow32", vbNullString)
        
     
         iTxtLen = SendMessage(hndExpl, WM_GETTEXTLENGTH, 0, 0)
     
         iTxtLen = iTxtLen + 1
         s = Space$(iTxtLen)
     
         iTxtLen = SendMessage(hndExpl, WM_GETTEXT, iTxtLen, ByVal s)
         MsgBox s
     End Sub


Добавлено
всё, разобрался
          Ret = GetWindowTextLength(hndExpl)
          sSave = Space(Ret)
          GetWindowText hndExpl, sSave, Ret + 1
          Me.Caption = sSave


Добавлено
Ещё один момент, если у меня открыто 5 проводников, то как мне их заголовки все вывести последовательно?]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124744 Tue, 24 Apr 2012 15:32:33 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124744
    hndExpl = FindWindow("CabinetWClass", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "WorkerW", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "ReBarWindow32", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "Address Band Root", vbNullString)
    '... и т.д.
    hndExpl = FindWindowEx(hndExpl, 0, "ToolBarWindow32", vbNullString)
]]> Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124737 Tue, 24 Apr 2012 15:27:57 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124737 Filka, да, именно так:

    hndExpl = FindWindow("CabinetWClass", vbNullString)
    hndExpl1 = FindWindowEx(hndExpl, 0, "WorkerW", vbNullString)
    hndExpl2 = FindWindowEx(hndExpl1, 0, "ReBarWindow32 (Toolbar)", vbNullString)


в итоге: hndExpl2 =0]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124727 Tue, 24 Apr 2012 15:19:45 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124727 Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124721 Tue, 24 Apr 2012 15:12:36 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124721 123.jpg (, : 462) ]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124708 Tue, 24 Apr 2012 14:44:05 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124708 Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124707 Tue, 24 Apr 2012 14:43:39 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124707 Filka, спасибо огромное, буду смотреть]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124704 Tue, 24 Apr 2012 14:28:47 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124704 http://windowdetective.sourceforge.net/
http://alinconstantin.dtdns.net/Download/WinCheat/
http://www.softpedia.com/progDownload/Wins...oad-117157.html]]> Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124703 Tue, 24 Apr 2012 14:26:25 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124703 Цитата Filka @
оконным шпионом
а где его скачать?]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124699 Tue, 24 Apr 2012 14:23:42 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124699 salieri, а оконным шпионом посмотреть имена классов?]]> Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124676 Tue, 24 Apr 2012 13:33:27 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124676 Filka, данная строка не выполняется
    hndExpl = FindWindowEx(hndExpl, 0, "ComboBoxEx32", vbNullString)


Добавлено
hndExpl равно нулю]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124673 Tue, 24 Apr 2012 13:28:45 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124673
    hndExpl = FindWindow("CabinetWClass", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "WorkerW", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "ReBarWindow32", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "ComboBoxEx32", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "ComboBox", vbNullString)
    hndExpl = FindWindowEx(hndExpl, 0, "Edit", vbNullString)

1.PNG (, : 541) ]]> Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124671 Tue, 24 Apr 2012 13:27:32 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124671 Filka, написал, теперь hndComb равно нулю! Каков принцип, вообще?


         Dim hndExpl As Long, hndComb As Long, hndComb2 As Long, hndComb3 As Long, hndComb4 As Long, hndComb5 As Long
         Dim s As String, iTxtLen As Long, a As Long
        
         'Ищем hWnd Проводника по его классу
         hndExpl = FindWindow("CabinetWClass", vbNullString)
         'Ищем hWnd ComboBox, который содержит адрес, продираясь через его родителей
         hndComb = FindWindowEx(hndExpl, 0, "WorkerA", vbNullString)
         hndComb2 = FindWindowEx(hndComb, 0, "ReBarWindow32", vbNullString)
         hndComb3 = FindWindowEx(hndComb2, 0, "ComboBoxEx32", vbNullString)
        
         ' получаем длину текста
         iTxtLen = SendMessage(hndComb3, WM_GETTEXTLENGTH, 0, 0)
         ' добавляем 1 для нулевого символа
         iTxtLen = iTxtLen + 1
         s = Space$(iTxtLen)
         ' получаем текст в переменной s
         iTxtLen = SendMessage(hndComb3, WM_GETTEXT, iTxtLen, ByVal s)
         MsgBox s
]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124648 Tue, 24 Apr 2012 13:06:53 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124648
    hndExpl = FindWindow("CabinetWClass", vbNullString)
]]> Filka Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124633 Tue, 24 Apr 2012 12:33:30 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124633 B.V., не понял, как именно?

     hndExpl = FindWindow("ExploreCabinetWClass", vbNullString)


Добавлено
так не работает]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124630 Tue, 24 Apr 2012 12:25:37 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124630 B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124616 Tue, 24 Apr 2012 12:10:00 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3124616

    'Функция для поиска окна первого уровня
     Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
     'Функция для поиска дочернего окна (коим являются такие контролы: Edit, Button и т.д.)
     Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
     Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal Msg As Long, wParam As Any, lParam As Any) As Long
     
     Private Const WM_GETTEXTLENGTH = &HE
     Private Const WM_GETTEXT = &HD
     
     Sub МакросПроба()
         Dim hndExpl As Long, hndComb As Long, hndComb2 As Long, hndComb3 As Long, hndComb4 As Long, hndComb5 As Long
         Dim s As String, iTxtLen As Long, a As Long
        
         'Ищем hWnd Проводника по его классу
         hndExpl = FindWindow("ExploreWClass", vbNullString)
         'Ищем hWnd ComboBox, который содержит адрес, продираясь через его родителей
         hndComb = FindWindowEx(hndExpl, 0, "WorkerA", vbNullString)
         hndComb2 = FindWindowEx(hndComb, 0, "ReBarWindow32", vbNullString)
         hndComb3 = FindWindowEx(hndComb2, 0, "ComboBoxEx32", vbNullString)
        
         ' получаем длину текста
         iTxtLen = SendMessage(hndComb3, WM_GETTEXTLENGTH, 0, 0)
         ' добавляем 1 для нулевого символа
         iTxtLen = iTxtLen + 1
         s = Space$(iTxtLen)
         ' получаем текст в переменной s
         iTxtLen = SendMessage(hndComb3, WM_GETTEXT, iTxtLen, ByVal s)
         MsgBox s
     End Sub
]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3118295 Sat, 14 Apr 2012 09:00:03 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3118295 B.V., спасибо, попробую]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3118292 Sat, 14 Apr 2012 08:51:43 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3118292 B.V. Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3118278 Sat, 14 Apr 2012 08:32:57 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3118278 salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3117913 Fri, 13 Apr 2012 12:08:53 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3117913 DIS, спасибо конечно, но мне нужно это программно на vb6 осуществить]]> salieri Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3117360 Thu, 12 Apr 2012 16:34:21 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3117360 http://scorpionfin.com/index.php?option=co...ndows&Itemid=41]]> DIS Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3117320 Thu, 12 Apr 2012 14:59:48 +0000 узнать путь к открытым папкам https://forum.sources.ru/index.php?showtopic=355320&view=findpost&p=3117320 salieri Visual Basic: Общие вопросы