读取文本文件的全部内容

Tesla.Angela

这大概是我在2004年找到的，极好用，发出来备份，顺便给新人参考。

1. 
   
2. Public Function GetTxt(ByVal szFileName As String) As String
   
3.     Open szFileName For Binary As #1
   
4.         GetTxt = StrConv(InputB(LOF(1), 1), vbUnicode)
   
5.     Close #1
   
6. End Function
   
7. 
   

复制代码

阿杰

我就喜欢学习文件目录操作的代码