Папка WINDOWS

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Егор
Обычный пользователь
Обычный пользователь
 
Сообщения: 50
Зарегистрирован: 27.06.2003 (Пт) 7:24
Откуда: Сургут

Папка WINDOWS

Сообщение Егор » 12.11.2003 (Ср) 12:51

ПРивет!!! Как узнать название папки. Например WINDOWS, WINNT ...
"BASIC-программисты - люди меченые,
путём насилия или подкупа нас можно
заставить работать на другом языке,
но думать-то мы всё равно будем
на BASIC..."

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 12.11.2003 (Ср) 13:00

Код: Выделить всё
Function GetWinDir() As String
GetWinDir = "C:\WINDOWS"
End Function

Код: Выделить всё
Function GetWinDir() As String
GetWinDir = Environ$("windir")
End Function

Код: Выделить всё
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Function GetWinDir() As String
Dim res As String, L As Long
res = String$(255, vbNullChar)
L = GetWindowDirectory(res, Len(res))
GetWinDir = Left$(res, L)
End Function

Код: Выделить всё
Function GetWinDir() As String
Dim FN As Integer, L As String
ChDir "C:\"
Shell "dir win.ini /b /s >C:\lst"
FN = FreeFile
Open "C:\lst" For Input As #FN
If Not EOF(FN) Then Line Input #FN, L
Close #FN
Kill "C:\lst"
If InStr(L, "\win.ini") > 0 Then L = Left$(L, InStr(L, "\win.ini") - 1)
GetWinDir = L
End Function
Lasciate ogni speranza, voi ch'entrate.

Daddy
Начинающий
Начинающий
 
Сообщения: 17
Зарегистрирован: 24.10.2003 (Пт) 10:37

Re: Папка WINDOWS

Сообщение Daddy » 13.11.2003 (Чт) 21:18

Егор писал(а):ПРивет!!! Как узнать название папки. Например WINDOWS, WINNT ...


В модуль
Код: Выделить всё
Declare Function GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
ByVal nSize As Long) As Long

Function GetWinDir() As String
    Dim a As String
    Dim retSize As Long
    a = String$(255, 0)
    retSize = GetWindowsDirectory(a, Len(a))
    a = Left$(a, retSize)
    GetWinDir = a
End Function

вот в умной книге срисовал и пользуюсь
FSO
Код: Выделить всё
dim GetWinFolder as New FileSystemObject
dim WinFolder as String

WinFolder=GetWinFolder.GetSpecialFolder(WindowsFolder)




Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: PetalBot, SemrushBot и гости: 10

    TopList  
cron