cftpfile.cls

来自「用vb开发的ftp客服端」· CLS 代码 · 共 62 行

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"
'local variable(s) to hold property value(s)
Private mvarFileName        As String
Private mvarLastWriteTime   As Date
Private mvarFileSize        As Long
Private mvarIsDirectory     As Boolean
Private mvarFilePath        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