主题：【求助】如何代码统计文本文档里内容的行数

1、你的是什么文档？

2、如果是txt，参考 http://www.foxtable.com/webhelp/scr/2629.htm

参考代码

Dim dlg As new OpenFileDialog
dlg.Filter = "文本文件|*.txt"
Tables("表A").StopRedraw
If dlg.ShowDialog = DialogResult.OK Then
    Dim strs As String = FileSys.ReadAllText(dlg.FileName)
    Dim ary() = strs.split(chr(10))
    msgbox(ary.length)
end if

根据什么排序？

Dim ls = FileSys.GetFiles("d:\")
msgbox(ls(0))
'根据时间排序
Dim maxdate As Date
Dim firstfile As String = ""
For Each s As String In ls
    Dim f As new FileInfo(s)
    If maxdate < f.LastWriteTime Then
        maxdate = f.LastWriteTime
        firstfile = s
    End If
Next
msgbox(firstfile)