Option Explicit

Dim goFile As New cFile

Sub call_cFile_getStatus()

  MsgBox _
    goFile.getStatus( _
    )

End Sub

Sub call_cFile_Initialize()

  MsgBox _
    goFile.Initialize( _
      getSysParaBySheet(ActiveSheet.Name, "E01P1") _
    )

End Sub

Sub call_cFile_getPathName()

  MsgBox _
    goFile.getPathName( _
    )

End Sub

Sub call_cFile_getFileName()

  MsgBox _
    goFile.getFileName( _
    )

End Sub

Sub call_cFile_isExist()

  MsgBox _
    goFile.isExist( _
    )

End Sub

Sub call_cFile_deleteFile()

  MsgBox _
    goFile.deleteFile( _
    )
  
End Sub

Sub call_cFile_openFileForRead()

  MsgBox _
    goFile.openFileForRead( _
    )
  
End Sub
Sub call_cFile_openFileForOutput()

  MsgBox _
    goFile.openFileForOutput( _
    )
  
End Sub

Sub call_cFile_openFileForAppend()

  MsgBox _
    goFile.openFileForAppend( _
    )
  
End Sub

Sub call_cFile_writeFileLine()

  MsgBox _
    goFile.writeFileLine( _
      getSysParaBySheet(ActiveSheet.Name, "E01P2") _
    )
  
End Sub

Sub call_cFile_closeFile()

  MsgBox _
    goFile.closeFile( _
    )
  
End Sub

Sub call_cFile_Terminate()

  MsgBox _
    goFile.Terminate( _
    )
  
End Sub