winxp

E de pe net, pentru problema cu directorul system. '--> CODE FOR THE MODULE, TO GET THE WINDOWS SYSTEM DIRECTORY -START- Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long Public Const MAX_PATH = 260 '--> CODE FOR THE MODULE, TO GET THE WINDOWS SYSTEM DIRECTORY -END- '--> CODE FOR THE FORM TO LOAD THE PATH OF THE SYSTEM DIR INTO A STRING -START- Public Function GetSystemPath() Dim strFolder As String Dim lngResult As Long strFolder = String(MAX_PATH, 0) lngResult = GetSystemDirectory(strFolder, MAX_PATH) If lngResult <> 0 Then GetSystemPath = Left(strFolder, InStr(strFolder, _ Chr(0)) - 1) Else GetSystemPath = "" End If End Function '--> CODE FOR THE FORM TO LOAD THE PATH OF THE SYSTEM DIR INTO A STRING -END-