Конференция VBStreets

**Chek** » 12.07.2003 (Сб) 19:05

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

**STING** » 12.07.2003 (Сб) 19:51

Chek писал(а):Порой бывает не просто найти ответ на элементарный вопрос. Подскажите, пожалуйста, как получить полное имя каталога Windows?

Код: Выделить всё: Dim objFSO As FileSystemObject Dim fol As String Set objFSO = New FileSystemObject fol = ObjFSO.GetSpecialFolder(0)

1 - системная папка
2 - папка системы для хранения временных файлов
Не забудь создать ссылку на scrrun.dll

**FaKk2** » 12.07.2003 (Сб) 20:07

Зачем мучаться? :shock:

И все дела :lol:

**Demonx** » 12.07.2003 (Сб) 21:59

FAKK2 писал(а):Зачем мучаться?
Код: Выделить всё
ABC = Environ ("windir")

И все дела

Это тоже очень мучительно

Код: Выделить всё: Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Private Sub Form_Load() Dim winDir As String winDir = String(200, Chr$(0)) GetWindowsDirectory winDir, Len(winDir) MsgBox winDir End Sub

**Chek** » 13.07.2003 (Вс) 3:32

Господа, спасибо за помощь. Мне понравились все три способа. Возьму на вооружение.

Как получить путь к папке Windows?