home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Programmer'…arterly (Limited Edition) / Visual_Basic_Programmers_Journal_VB-CD_Quarterly_Limited_Edition_1995.iso / code / ch18code / getsyste.bas < prev    next >
Encoding:
BASIC Source File  |  1995-08-13  |  303 b   |  13 lines
  1. Attribute VB_Name = "Module1"
  2. ' Declare and object variable.
  3. Private mobjFileIO As FileIO
  4. Sub Main()
  5.     ' Create a new instance of the object.
  6.     Set mobjFileIO = New FileIO
  7.     ' Use an object method to display the Windows
  8.     ' directory.
  9.     MsgBox mobjFileIO.SystemDirectory
  10. End Sub
  11.  
  12.  
  13.