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

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 = "CFtpFile"
  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" ,"Yes"
  16. 'local variable(s) to hold property value(s)
  17. Private mvarFileName        As String
  18. Private mvarLastWriteTime   As Date
  19. Private mvarFileSize        As Long
  20. Private mvarIsDirectory     As Boolean
  21. Private mvarFilePath        As String
  22. '
  23. Public Property Let IsDirectory(ByVal vData As Boolean)
  24.     mvarIsDirectory = vData
  25. End Property
  26. Public Property Get IsDirectory() As Boolean
  27.     IsDirectory = mvarIsDirectory
  28. End Property
  29. Public Property Let FileSize(ByVal vData As Long)
  30.     mvarFileSize = vData
  31. End Property
  32. Public Property Get FileSize() As Long
  33.     FileSize = mvarFileSize
  34. End Property
  35. Public Property Let LastWriteTime(ByVal vData As Date)
  36.     mvarLastWriteTime = vData
  37. End Property
  38. Public Property Get LastWriteTime() As Date
  39.     LastWriteTime = mvarLastWriteTime
  40. End Property
  41. Public Property Let FileName(ByVal vData As String)
  42.     mvarFileName = vData
  43. End Property
  44. Public Property Get FileName() As String
  45.     FileName = mvarFileName
  46. End Property
  47. Public Property Let FilePath(ByVal vData As String)
  48.     mvarFilePath = vData
  49. End Property
  50. Public Property Get FilePath() As String
  51.     FilePath = mvarFilePath
  52. End Property