![]() |
![]() |
||
Системная Директория 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 |
![]() ![]() |
||
L.E. 22.11.2012 |