MyTetra Share
Делитесь знаниями!
Системная Директория Windows
19.07.2018
19:34
Раздел: VBA - Access - msa.polarcom.ru - 12 Папки и Файлы


Системная Директория 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





Так же в этом разделе:
 
MyTetra Share v.0.52
Яндекс индекс цитирования