System32...
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 6
• Страница 1 из 1
- vovchikxxx
- Обычный пользователь
- Сообщения: 50
- Зарегистрирован: 22.01.2003 (Ср) 19:32
- Откуда: Сергиев Посад
- vovchikxxx
- Обычный пользователь
- Сообщения: 50
- Зарегистрирован: 22.01.2003 (Ср) 19:32
- Откуда: Сергиев Посад
- Amed
- Алфизик
- Сообщения: 5346
- Зарегистрирован: 09.03.2003 (Вс) 9:26
Amed » 16.04.2003 (Ср) 20:02
Option Explicit
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Const MAX_LEN as Integer=255 'максимальная длина пути (255 вполне хватит)
Private Sub Form_Load()
Dim tmp As String * MAX_LEN
GetSystemDirectory tmp, MAX_LEN
MsgBox tmp
'tmp - путь к system32
End Sub
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Const MAX_LEN as Integer=255 'максимальная длина пути (255 вполне хватит)
Private Sub Form_Load()
Dim tmp As String * MAX_LEN
GetSystemDirectory tmp, MAX_LEN
MsgBox tmp
'tmp - путь к system32
End Sub
- vovchikxxx
- Обычный пользователь
- Сообщения: 50
- Зарегистрирован: 22.01.2003 (Ср) 19:32
- Откуда: Сергиев Посад
vovchikxxx » 16.04.2003 (Ср) 20:03
Я короче сам разобрался!!!
Подключаешь FileSystemObject
и у нее есть свойство getspecialfolder(const)
1 - system32
....
Подключаешь FileSystemObject
и у нее есть свойство getspecialfolder(const)
1 - system32
....
Сообщений: 6
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Google-бот, Mail.ru [бот], Yandex-бот и гости: 59