列举文本文件操作方法,不是shell path & wenjian, vb....先抛砖:1  ADODB.Stream
2  open path & file for append (output,input,binary) as #1
3  fso.CreateTextFile
4  CreateObject("Scripting.FileSystemObject")
5  ActiveSheet.QueryTables.Add(Connection:="text;" & path & file, Destination:=...)  ’EXCEL
6  Workbooks.OpenText Filename:=ThisWorkbook.Path & "\" & "test.txt", Comma:=True    ’EXCEL
7  fileReader = My.Computer.FileSystem.ReadAllText(app.Path & "\test.txt")   ' 没用过,谁用过?
8  Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath _
            & ";Extended Properties=""text;HDR=no;FMT=Delimited"""        ‘(ADO)
谢谢各位告之。 

解决方案 »

  1.   

    我用过 fileReader = My.Computer.FileSystem.ReadAllText(app.Path & "\test.dpp")  
      

  2.   

    还有一种 p 什么c.什么ccp,....,因为没记住怎么写的,所以不好查找,很奇怪的代码,可惜找不到,知道的朋友能否告之,谢谢了
     
      

  3.   

    补充几点
    '1、拷贝文本文件
    filecopy "文本.txt" "d:\文本2.txt"  '这个算不算
    '2、分隔文本文件   这个算不算
    fileInfofile.origfileName=splitfileName
    fileInfofile.origProjsize=fileLen(splitfileName)
    .....
    '3、DOS文件转换成UNIX文本文件