cftpfile.cls

来自「vb网络通信协议,参考例程」· CLS 代码 · 共 116 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CFtpFile"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'类模块内部变量
Private mvarFileName        As String
Private mvarLastWriteTime   As Date
Private mvarFileSize        As Long
Private mvarIsDirectory     As Boolean
Private mvarFilePath        As String
'
Private mvarPermissions     As String
Private mvarOwner           As String
Private mvarGroup           As String

Public Property Let IsDirectory(ByVal vData As Boolean)
'设置是否是目录属性值
    mvarIsDirectory = vData
End Property

Public Property Get IsDirectory() As Boolean
'获得是否是目录属性值
    IsDirectory = mvarIsDirectory
End Property

Public Property Let FileSize(ByVal vData As Long)
'设置文件大小属性
    mvarFileSize = vData
End Property

Public Property Get FileSize() As Long
'获得文件大小属性
    FileSize = mvarFileSize
End Property

Public Property Let LastWriteTime(ByVal vData As Date)
'设置文件上次修改时间
    mvarLastWriteTime = vData
End Property

Public Property Get LastWriteTime() As Date
'获得文件上次修改时间
    LastWriteTime = mvarLastWriteTime
End Property

Public Property Let FileName(ByVal vData As String)
'设置文件名属性
    mvarFileName = vData
End Property

Public Property Get FileName() As String
'获得文件名属性
    FileName = mvarFileName
End Property

Public Property Let FilePath(ByVal vData As String)
'设置文件路径属性
    mvarFilePath = vData
End Property

Public Property Get FilePath() As String
'获得文件路径属性
    FilePath = mvarFilePath
End Property

Public Property Let Permissions(ByVal vData As String)
'设置权限属性
    mvarPermissions = vData
End Property

Public Property Get Permissions() As String
'获得权限属性
    Permissions = mvarPermissions
End Property

Public Property Let Owner(ByVal vData As String)
'获得所有者属性
    mvarOwner = vData
End Property

Public Property Get Owner() As String
'设置所有者属性
    Owner = mvarOwner
End Property

Public Property Let Group(ByVal vData As String)
'设置组属性
    mvarGroup = vData
End Property

Public Property Get Group() As String
'获得组属性
    Group = mvarGroup
End Property