关于文件：打开，读、写，关闭

能介绍一下文件打开，读/写，关闭吗？

最好要一些Code;

'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
'过程功能：
'功能描述：Input方式读入文件
'％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％％
Private Sub btnInput_Click()
On Error GoTo errSub
  strMemo = ""
  intFileNum = FreeFile(0)
  Open strFile For Input As #intFileNum
  Do While Not EOF(intFileNum)
  Line Input #intFileNum, strMemo
  txtMemo.Text = txtMemo.Text & strMemo & vbCrLf
  Loop
  Close #intFileNum
  Exit Sub
errSub:

End Sub