※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

仮_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