仮＿File - toolstorage

仮＿File

• ソース

Private filename As String
Private filepath As String

Private Sub class_initialize()
    filename = ""
    filepath = ""
End Sub

Public Function GetFileName() As String
    GetFileName = filename
End Function

Public Function GetFilePath() As String
    GetFilePath = filepath
End Function

Public Function SetFileName(ByVal iStr As String)
    filename = iStr
End Function

Public Function SetFilePath(ByVal iStr As String)
    filepath = iStr
End Function

トップ