TopPicLogo TopPicText

Системная Директория Windows

По материалам http://am.rusimport.ru/MSAccess/default.aspx

Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" _
        (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'--------------------------------------------------------------------

Public Function CurSysDir() As String
On Error GoTo CurSysDirErr
Dim WinPath As String
Const MAXWINPATH = 255

    WinPath = Space$(MAXWINPATH)
    Call GetSystemDirectory(WinPath, MAXWINPATH)

    CurSysDir = StrZ(WinPath)   'См функцию StrZ ниже
    
CurSysDirExit:
    Exit Function
CurSysDirErr:
    Resume CurSysDirExit
End Function

Private Function StrZ(par As String) As String
'API функция возвращает строковое значение
'заканчивающееся Chr(0) - за ним могут быть пробелы
'или "мусор" - и функция сея как раз и отсекает
'справа Chr(0) вместе с пробелами (мусором).
Dim nSize As Long, i As Long
    nSize = Len(par)
    i = InStr(1, par, Chr(0)) - 1
        If i = nSize Then i = nSize
        If i = 0 Then i = nSize
StrZ = Mid(par, 1, i)
End Function


Назад ToTop
L.E. 22.11.2012
Рейтинг@Mail.ru