CFtpFiles.cls
上传用户:nicktai
上传日期:2010-01-26
资源大小:40k
文件大小:1k
源码类别:

Ftp服务器

开发平台:

Visual Basic

  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 = "CFtpFiles"
  10. Attribute VB_GlobalNameSpace = False
  11. Attribute VB_Creatable = True
  12. Attribute VB_PredeclaredId = False
  13. Attribute VB_Exposed = False
  14. Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
  15. Attribute VB_Ext_KEY = "Top_Level" ,"No"
  16. Attribute VB_Ext_KEY = "Collection" ,"CFtpFile"
  17. Attribute VB_Ext_KEY = "Member0" ,"CFtpFile"
  18. 'local variable to hold collection
  19. Private mCol As Collection
  20. Public Function Add(oFtpFile As CFtpFile, vKey As Variant) As CFtpFile
  21.     mCol.Add oFtpFile, vKey
  22.     Set Add = oFtpFile
  23.     
  24. End Function
  25. Public Property Get Item(vntIndexKey As Variant) As CFtpFile
  26. Attribute Item.VB_UserMemId = 0
  27.     Set Item = mCol(vntIndexKey)
  28. End Property
  29. Public Property Get Count() As Long
  30.     Count = mCol.Count
  31. End Property
  32. Public Sub Remove(vntIndexKey As Variant)
  33.     mCol.Remove vntIndexKey
  34. End Sub
  35. Public Property Get NewEnum() As IUnknown
  36. Attribute NewEnum.VB_UserMemId = -4
  37. Attribute NewEnum.VB_MemberFlags = "40"
  38.     Set NewEnum = mCol.[_NewEnum]
  39. End Property
  40. Private Sub Class_Initialize()
  41.     Set mCol = New Collection
  42. End Sub
  43. Private Sub Class_Terminate()
  44.     Set mCol = Nothing
  45. End Sub