ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать путь к папке Мои документы ?
17 сообщений из 17, страница 1 из 1
Как узнать путь к папке Мои документы ?
    #33652446
vov@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vov@
Гость
Мне необходимо сохранять фаилы в папку Мои документы
Пробовал CurDir - возвращаеться путь к рабочему столу :((
...
Рейтинг: 0 / 0
07.04.2006, 15:15
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33652478
Фотография # Darth Vader #
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
# Darth Vader #
Участник
опеределить версию винды для начала а потом прыгать от этого
...
Рейтинг: 0 / 0
07.04.2006, 15:22
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33652509
vov@
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vov@
Гость
Windows 2000
...
Рейтинг: 0 / 0
07.04.2006, 15:31
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33652535
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmeL_md
Участник
vov@Windows 2000оригинально,если без апишек то можно почитать в реесте по ключу
Код: plaintext
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
...
Рейтинг: 0 / 0
07.04.2006, 15:36
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33652764
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
debug.Print environ("HOMEDRIVE") & environ("HOMEPATH") & "\My Documents\"
...
Рейтинг: 0 / 0
07.04.2006, 16:25
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33652787
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmeL_md
Участник
Konst_One
Код: plaintext
debug.Print environ("HOMEDRIVE") & environ("HOMEPATH") & "\My Documents\"
не корректно!
...
Рейтинг: 0 / 0
07.04.2006, 16:30
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33652888
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
и в чем некорректность?
...
Рейтинг: 0 / 0
07.04.2006, 16:54
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33652896
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
можно еще через
Код: plaintext
environ("USERPROFILE") + "\папка что те надо"
...
Рейтинг: 0 / 0
07.04.2006, 16:56
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33652987
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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:20
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33653030
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
смех тут не уместен, имхо

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

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

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

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

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

Код: plaintext
1.
Dim ПапкаМоиДокументы as String
ПапкаМоиДокументы=VBA.environ("USERPROFILE") & "\Мои Документы"
Приношу конечно свои извинения, что я так не далек и не все понимаю, что Вы пишите попробуйте ответить себе, что возвращает environ("USERPROFILE"). А потом подумайте, а действительно папка мои документы там должна находится, что произойдет если ее переместить?
...
Рейтинг: 0 / 0
07.04.2006, 17:43
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33653047
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
извините, я и не претендую на универсальное решение.
можете заюзать сооответствующее API, которое ,скорее всего, вернет Вам, то что Вы ,как думаете , является правильным ответом на Ваш неоднозначный вопрос
...
Рейтинг: 0 / 0
07.04.2006, 17:46
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33653055
Фотография SmeL_md
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SmeL_md
Участник
Konst_Oneизвините, я и не претендую на универсальное решение.
можете заюзать сооответствующее API, которое ,скорее всего, вернет Вам, то что Вы ,как думаете , является правильным ответом на Ваш неоднозначный вопросТак это не мой вопрос, а ответ уже давно дан он выше :)
...
Рейтинг: 0 / 0
07.04.2006, 17:49
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33653071
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
но он не точен
тогда уж укажите челу, что нужно ключ смотреть Personal
...
Рейтинг: 0 / 0
07.04.2006, 17:55
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33653082
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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:01
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33653112
Toking
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Toking
Участник
Код: plaintext
1.
2.
set Wsh = CreateObject("WScript.Shell")
MsgBox Wsh.SpecialFolders("MyDocuments"), vbInformation
set Wsh = Nothing

_______________________________
нет ничего невозможного ... :-)
...
Рейтинг: 0 / 0
07.04.2006, 18:12
| Ответить | Цитировать | Написать  
Как узнать путь к папке Мои документы ?
    #33653474
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
07.04.2006, 22:48
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как узнать путь к папке Мои документы ?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33653030&tid=2166079]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 164ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 225ms
total:  488ms
созд. / загр.: 488ms
x
x
Закрыть


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