Public Declare Unicode Function GetPrinterDriverDirectory Lib "winspool.drv" Alias "GetPrinterDriverDirectoryW" _
  (ByVal pName As String, ByVal pEnvironment As String, ByVal Level As Integer, _
   ByVal pDriverDirectory As StringBuilder, ByVal cdBuf As Integer, ByRef pcbNeeded As Integer) As Boolean

  Public Function GetDriverCachePath() As String
    Dim the_str As String
    the_str = GetCorrectPath(RegGetValue_Net(Registry.LocalMachine, _
     "SOFTWARE\Microsoft\Windows\CurrentVersion\Setup", "DriverCachePath", ""))
    If Strings.Len(the_str) > 0 Then
      GetDriverCachePath = CorrectDir(the_str)
    Else
      GetDriverCachePath = the_str
    End If
  End Function

  Public Declare Unicode Function GetEnvironmentVariable Lib "Kernel32.dll" Alias "GetEnvironmentVariableW" _
  (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Integer) As Integer

    Dim sys_folder As String
    Dim path_modem_sys As String
    Dim path_catalogs As String
    sys_folder = GetFolderPath(SpecialFolder.System)
    path_modem_sys = IO.Path.Combine(sys_folder, "drivers\modem.sys")
    path_catalogs = IO.Path.Combine(sys_folder, "CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}")