fileitem

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

Private strName
Private vtValue
Private lngSize
Private strFileName
Private strFileExt
Private intWidth
Private intHeight
Private intState

Private Sub Class_Initialize()
    lngSize = 0
    intWidth = 0
    intHeight = 0
    intState = -1
End Sub

Private Sub Class_Terminate()
End Sub

Public Property Get Name()
    Name = strName
End Property

Public Property Let Name(ByVal strValue)
    strName = strValue
End Property

Public Property Get Value()
    Value = vtValue
End Property

Public Property Let Value(vtData)
    vtValue = vtData
End Property

Public Property Get Size()
    Size = lngSize
End Property

Public Property Let Size(ByVal lngValue)
    lngSize = lngValue
End Property

Public Property Get FileName()
    FileName = strFileName
End Property

Public Property Let FileName(ByVal strValue)
    strFileName = strValue
End Property

Public Property Get FileExt()
    FileExt = strFileExt
End Property

Public Property Let FileExt(ByVal strValue)
    strFileExt = strValue
End Property

Public Property Get Width()
    Width = intWidth
End Property

Public Property Let Width(ByVal intValue)
    intWidth = intValue
End Property

Public Property Get Height()
    Height = intHeight
End Property

Public Property Let Height(ByVal intValue)
    intHeight = intValue
End Property

Public Property Get State()
    State = intState
End Property

Public Property Let State(ByVal intValue)
    intState = intValue
End Property

Public Function SaveToFile(ByVal strPath)
    SaveToFile = CBool(intState = 0)
    If SaveToFile Then
        SetFileBinary strPath, vtValue, True
    End If
End Function