home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 72 / IOPROG_72.ISO / soft / c++ / NCTDiscWriter2.exe / {app} / MS VB 6.0 Samples / TestVBDataCDWriter / moduleTestVBDataCDWriter.bas < prev    next >
Encoding:
BASIC Source File  |  2002-12-02  |  870 b   |  29 lines
  1. Attribute VB_Name = "mdlTestVBDataCDWriter"
  2. Option Explicit
  3.  
  4. Declare Function apiGetWindowsDirectory& Lib "kernel32" Alias _
  5.    "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long)
  6. Declare Function apiGetEnvironmentVariable& Lib "kernel32" Alias _
  7.    "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long)
  8.  
  9. Function GetWinDir() As String
  10.    Dim lpBuffer As String * 255
  11.    Dim Length As Long
  12.    Length = apiGetWindowsDirectory(lpBuffer, Len(lpBuffer))
  13.    GetWinDir = Left(lpBuffer, Length)
  14. End Function
  15.  
  16.  
  17. Function GetUserHomePath() As String
  18.    Dim lpBuffer As String * 255
  19.    Dim lpName As String
  20.    Dim Length As Long
  21.    
  22.    lpName = "HOMEPATH"
  23.    
  24.    Length = apiGetEnvironmentVariable(lpName, lpBuffer, Len(lpBuffer))
  25.    GetUserHomePath = Left(lpBuffer, Length)
  26. End Function
  27.  
  28.  
  29.