home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Tiny_Dev_E1795559192004.psc / BizCard / class / clsDrive.cls next >
Text File  |  2002-04-28  |  561b  |  18 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4.   Persistable = 0  'NotPersistable
  5.   DataBindingBehavior = 0  'vbNone
  6.   DataSourceBehavior  = 0  'vbNone
  7.   MTSTransactionMode  = 0  'NotAnMTSObject
  8. END
  9. Attribute VB_Name = "clsDrive"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Function DriveType(ByVal mDriveLetter As String) As Long
  15.     If Len(Trim(mDriveLetter)) = 0 Then: DriveType = 1: Exit Function
  16.     DriveType = GetDriveType(mDriveLetter)
  17. End Function
  18.