VBNet - Форум - обнаружения системной директории винды

Вопрос: обнаружения системной директории винды Добавлено: 21.07.08 12:25

Автор вопроса: bozer

каким образом можно обнаружить системную директорию винды, например в том случае, если мне нужно создать там папку а в ту папку перенести файл?
Ответить

Ответы Всего ответов: 7

Номер ответа: 1 Автор ответа: J. Smith ICQ: ненавижу Вопросов: 40 Ответов: 477	Web-сайт: Не хочу ломать голову, если её уже сломал кто-то другой. Профиль \| \| #1	Добавлено: 21.07.08 12:46
	Обнаружить можно визуально, открываешь проводник и обнаруживаешь Забыл указать в чём пишешь. VB6, VBNET, VBA, VBScript Cамый простой способ это получить путь из переменных окружения msgbox Environ$("windir" Ответить

Номер ответа: 2 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732	Профиль \| \| #2	Добавлено: 21.07.08 12:55
	Из API-Guide: Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim sSave As String, Ret As Long 'Create a buffer sSave = Space(255) 'Get the system directory Ret = GetSystemDirectory(sSave, 255) 'Remove all unnecessary chr$(0)'s sSave = Left$(sSave, Ret) 'Show the windows directory MsgBox "Windows System directory: " + sSave End Sub Ответить

Номер ответа: 3 Автор ответа: bozer Вопросов: 2 Ответов: 1	Профиль \| \| #3	Добавлено: 21.07.08 14:30
	пишу в VB6. Вариант про визуальное обнаружение не подходит Ответить

Номер ответа: 4 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732	Профиль \| \| #4	Добавлено: 21.07.08 15:28
	пишу в VB6. Вариант про визуальное обнаружение не подходит А второй пост чем не устроил? самый, что ни на есть VB6... Ответить

Номер ответа: 5 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #5	Добавлено: 21.07.08 16:24
	Ну там же папка в сообщении показывается! Так что твой способ никуда не годится, Арсений, извини... Ответить

Номер ответа: 6 Автор ответа: Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732	Профиль \| \| #6	Добавлено: 21.07.08 18:06
	2бранд, а ты чего тут без мотороллера?! Ответить

Номер ответа: 7 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| \| #7	Добавлено: 21.07.08 19:52
	Я тут: http://vbnet.ru/forum/show.aspx?id=171424 Ответить

Страница: 1 |