Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать путь к папке Мои документы ? / 17 сообщений из 17, страница 1 из 1
07.04.2006, 15:15:31
    #33652446
vov@
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
Мне необходимо сохранять фаилы в папку Мои документы
Пробовал CurDir - возвращаеться путь к рабочему столу :((
...
Рейтинг: 0 / 0
07.04.2006, 15:22:33
    #33652478
# Darth Vader #
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
опеределить версию винды для начала а потом прыгать от этого
...
Рейтинг: 0 / 0
07.04.2006, 15:31:34
    #33652509
vov@
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
Windows 2000
...
Рейтинг: 0 / 0
07.04.2006, 15:36:29
    #33652535
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
vov@Windows 2000оригинально,если без апишек то можно почитать в реесте по ключу
Код: plaintext
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
...
Рейтинг: 0 / 0
07.04.2006, 16:25:45
    #33652764
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
Код: plaintext
debug.Print environ("HOMEDRIVE") & environ("HOMEPATH") & "\My Documents\"
...
Рейтинг: 0 / 0
07.04.2006, 16:30:18
    #33652787
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
Konst_One
Код: plaintext
debug.Print environ("HOMEDRIVE") & environ("HOMEPATH") & "\My Documents\"
не корректно!
...
Рейтинг: 0 / 0
07.04.2006, 16:54:46
    #33652888
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
и в чем некорректность?
...
Рейтинг: 0 / 0
07.04.2006, 16:56:54
    #33652896
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
можно еще через
Код: plaintext
environ("USERPROFILE") + "\папка что те надо"
...
Рейтинг: 0 / 0
07.04.2006, 17:20:54
    #33652987
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
Konst_Oneможно еще через
Код: plaintext
environ("USERPROFILE") + "\папка что те надо"
Значит можно еще и так :)
Код: plaintext
Const MyDoc As String = "C:\Documents and Settings\USER\My Documents"
ели необходимо определить куда поместил пользователь папку мои документы то как можно проводить конкатинацию типа '+ "\папка что те надо" ' где логика
...
Рейтинг: 0 / 0
07.04.2006, 17:35:10
    #33653030
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
смех тут не уместен, имхо

я написал не код ,а подход к решению:
environ("USERPROFILE") + "\папка что те надо"

если ты сам не можешь додумать, то вот:

Код: plaintext
1.
Dim ПапкаМоиДокументы as String
ПапкаМоиДокументы=VBA.environ("USERPROFILE") & "\Мои Документы"
...
Рейтинг: 0 / 0
07.04.2006, 17:43:11
    #33653041
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
Konst_Oneсмех тут не уместен, имхо

я написал не код ,а подход к решению:
environ("USERPROFILE") + "\папка что те надо"

если ты сам не можешь додумать, то вот:

Код: plaintext
1.
Dim ПапкаМоиДокументы as String
ПапкаМоиДокументы=VBA.environ("USERPROFILE") & "\Мои Документы"
Приношу конечно свои извинения, что я так не далек и не все понимаю, что Вы пишите попробуйте ответить себе, что возвращает environ("USERPROFILE"). А потом подумайте, а действительно папка мои документы там должна находится, что произойдет если ее переместить?
...
Рейтинг: 0 / 0
07.04.2006, 17:46:55
    #33653047
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
извините, я и не претендую на универсальное решение.
можете заюзать сооответствующее API, которое ,скорее всего, вернет Вам, то что Вы ,как думаете , является правильным ответом на Ваш неоднозначный вопрос
...
Рейтинг: 0 / 0
07.04.2006, 17:49:42
    #33653055
SmeL_md
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
Konst_Oneизвините, я и не претендую на универсальное решение.
можете заюзать сооответствующее API, которое ,скорее всего, вернет Вам, то что Вы ,как думаете , является правильным ответом на Ваш неоднозначный вопросТак это не мой вопрос, а ответ уже давно дан он выше :)
...
Рейтинг: 0 / 0
07.04.2006, 17:55:25
    #33653071
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
но он не точен
тогда уж укажите челу, что нужно ключ смотреть Personal
...
Рейтинг: 0 / 0
07.04.2006, 18:01:42
    #33653082
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim fld As Shell32.Folder
Dim spf As Shell32.ShellSpecialFolderConstants

        Set shl = New Shell32.Shell
        spf = ssfPERSONAL
        Set fld = shl.NameSpace(spf)
        MsgBox fld.ParentFolder.ParseName(fld.Title).Path
        Set fld = Nothing
...
Рейтинг: 0 / 0
07.04.2006, 18:12:14
    #33653112
Toking
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
Код: plaintext
1.
2.
set Wsh = CreateObject("WScript.Shell")
MsgBox Wsh.SpecialFolders("MyDocuments"), vbInformation
set Wsh = Nothing

_______________________________
нет ничего невозможного ... :-)
...
Рейтинг: 0 / 0
07.04.2006, 22:48:00
    #33653474
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как узнать путь к папке Мои документы ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public Declare Function SHGetSpecialFolderPath Lib "shell32.dll" _
  Alias "SHGetSpecialFolderPathA" ( _
  ByVal hwnd As Long, _
  ByVal pszPath As String, _
  ByVal csidl As Long, _
  ByVal fCreate As Long) As Long

Public Const CSIDL_PERSONAL = &H5
Public Const MAX_PATH =  260 

Public Function fnGetSpecialFolderPath( _
  ByVal lngFolder As Long) As String
    Dim strPath As String

    strPath = Space$(MAX_PATH)

    If SHGetSpecialFolderPath( 0 , strPath, _
        lngFolder, False) Then
        fnGetSpecialFolderPath = Left$(strPath, InStr(strPath, Chr$( 0 )))
    End If
End Function
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать путь к папке Мои документы ? / 17 сообщений из 17, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]