Укрощение CommonDialog

[ZOD]

Подскажите плз, как в диалоге открытия выставить папку по умолчанию на рабочий стол.

[Viper]

Получить путь к этой папке и вставить его в соответствующее поле структуры (свойство контрола). В каком из пунктов затруднения?

[ZOD]

Проблема в том, что в ХР, для каждого пользователя рабочий стол распологается в своей папке, а 9х в WINDOWS\Рабочий стол вроде. Как можно узнать местоположение рабочего стола.

[alibek]

Не уверен, но помоему в переменных окружения рабочий стол был указан еще в Windows 95. Попробуй использовать Environ$().

[Viper]

alibek, у меня в переменных окружения Рабочего Стола нет (Win XP).
ZOD, через функцию SHGetFolderLocation можно получить этот путь при использовании константы CSIDL_DESKTOPDIRECTORY для получения каталога физического расположения файлов Рабочего Стола, обычно это C:\Documents and Settings\username\Desktop. Или с константой CSIDL_DESKTOP получим виртуальную папку Рабочего Стола.

[ZOD]

Viper
Напиши пожалуйста код, а то я винапи ваще не понимаю
Кстати, эта функция есть только начиная с WinME и Win2000.

[ZOD]

В ком. диалоге есть кнопки быстого перехода к папкам, там в т.ч. есть рабочий стол. Может это как-то можно использовать?

[ZOD]

Ура! Решил проблему! Нашел на этом замечательном форуме www.vbforums.com. Только там все на английском.
Всем спасибо за ответы.
Выкладываю, если клму понадобиться. Тут для всех стандартных папок есть. Может это сразу в частозадаваемые вопросы переложить?

Код: Выделить всё


Option Explicit

Private Declare Function SHGetFolderPath Lib "shfolder" Alias "SHGetFolderPathA" (ByVal hwndOwner As Long, ByVal nFolder As Long, ByVal hToken As Long, ByVal dwFlags As Long, ByVal pszPath As String) As Long
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

'get windows system path
Public Function GetSystemPath() As String
    Dim sRet As String, lngRet As Long
    sRet = String$(255, 0)
    lngRet = GetSystemDirectory(sRet, 255)
    GetSystemPath = Left$(sRet, lngRet)
End Function

'get windows path
Public Function GetWindowsPath() As String
    Dim sRet As String, lngRet As Long
    sRet = String$(255, 0)
    lngRet = GetWindowsDirectory(sRet, 255)
    GetWindowsPath = Left$(sRet, lngRet)
End Function

'get programs path
Public Function GetProgramsPath() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &H26
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetProgramsPath = Left$(strPath, InStr(1, strPath, Chr(0)) - 1)
End Function

'get all desktop path
Public Function GetAllDesktopPath() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &H19
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetAllDesktopPath = Left$(strPath, InStr(1, strPath, Chr(0)) - 1)
End Function

'get all start menu path
Public Function GetAllStartMenuPath() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &H16
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetAllStartMenuPath = Left$(strPath, InStr(1, strPath, Chr(0)) - 1)
End Function

'get user start menu path
Public Function GetUserStartMenuPath() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &HB
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetUserStartMenuPath = Left$(strPath, InStr(1, strPath, Chr(0)) - 1)
End Function

'get all start menu programs path
Public Function GetAllStartProgramsPath() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &H17
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetAllStartProgramsPath = Left$(strPath, InStr(1, strPath, Chr(0)) - 1)
End Function

'get user start menu programs path
Public Function GetUserStartProgramsPath() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &H2
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetUserStartProgramsPath = Left$(strPath, InStr(1, strPath, Chr(0)) - 1)
End Function

'get user appdata
Public Function GetUserApplicationDataPath() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &H1A
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetUserApplicationDataPath = Left$(strPath, InStr(1, strPath, Chr(0)) - 1)
End Function

'get all users appdata
Public Function GetAllApplicationDataPath() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &H23
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetAllApplicationDataPath = Left$(strPath, InStr(1, strPath, Chr(0)) - 1)
End Function

'get my documents path
Public Function GetMyDocumentsPath() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &H5
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetMyDocumentsPath = Left$(strPath, InStr(1, strPath, Chr(0)) - 1)
End Function

'get quick launch path
Public Function GetQuickLaunch() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &H1A
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetQuickLaunch = Left$(strPath, InStr(1, strPath, Chr(0)) - 1) & "\Microsoft\Internet Explorer\Quick Launch"
End Function

'get desktop path
Public Function GetUserDesktopPath() As String
    Dim strBuffer  As String
    Dim strPath    As String
    Dim lngReturn  As Long
    Dim lngCSIDL   As Long
    lngCSIDL = &H0
    strPath = String(260, 0)
    lngReturn = SHGetFolderPath(0, lngCSIDL, 0, &H0, strPath)
    GetUserDesktopPath = Left$(strPath, InStr(1, strPath, Chr(0)) - 1)
End Function

'get temp directory
Public Function GetTempDir() As String
    Dim nSize As Long
    Dim Buff As String
    Buff = Space$(260)
    nSize = Len(Buff)
    Call GetTempPath(nSize, Buff)
    GetTempDir = TrimNull(Buff)
End Function

Private Function TrimNull(Item As String)
    Dim pos As Integer
    pos = InStr(Item, Chr$(0))
    If pos Then
       TrimNull = Left$(Item, pos - 1)
    Else
       TrimNull = Item
    End If
End Function