Как узнать путь к системной папке?

Ведь не во всех системах Windows установлена в одноименную папку, а путь надо знать наверняка.

0

set fso=new Scripting.FileSystemObject 'если включить в проект ссылку на Microsoft Scripting Runtime
'или set fso=CreateObject('Scripting.FileSystemOb ject')
msgbox fso.GetSpecialFolder(WindowsFolder).Path

vba.Environ$('SystemRoot')

0

Вот тебе API ф-я, подключи ее и не надо извращаться

Private Declare Function GetWindowsDirectory Lib 'kernel32' Alias 'GetWindowsDirectoryA' (ByVal lpBuffer As String, ByVal nSize As Long) As Long

0

' Kак програмно определить где Windows:
' Запучти VB и на чистую форму и скопируй туда:

Private Declare Function GetWindowsDirectory Lib 'kernel32' Alias 'GetWindowsDirectoryA' (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Private Sub Form_Load()
Dim strFileName
strFileName = GetWinDir
MsgBox 'A вот он где: ' & vbNewLine & strFileName, vbInformation, ' Где папка WinXX'
End sub

Public Function GetWinDir() As String

On Error GoTo DirError
Dim WinDir As String * 255
Dim DirLen As Long

DirLen = GetWindowsDirectory(WinDir, 255)
GetWinDir = Left(WinDir, DirLen)
Exit Function
DirError:
End Function
'---- и запусти приложение через F8 - пошаговое выполнение ----
'---- это также нужно уметь запускать .......

0

Спасибо всем большое за помощь!

0