关于文件与VBA？
我已经将一个文件夹下面的文件名以及文件的大小倒入到EXCEL中程序如下：
--------------------------------------------------------------
Dim xlApp As excel.Application
Dim xlBook As excel.Workbook
Dim xlSheet As excel.Worksheet
Dim i As Integer
--------------------------------------------------------------
Private Sub Command1_Click()
Set xlsApp = excel.Application
With xlsApp
.Visible = True
'打开一个已经做好的EXCEL模板文件
excel.Workbooks.Open ("C:\backup.xlt")
End With
’在TEXT1中输入路径
mypath = Text1.Text
myname = Dir(mypath, vbDirectory)
i = 1
Do While myname <> "
If myname <> "." And myname <> ".." Then
excel.ActiveCell(i, 1).Value = UCase(myname)
excel.ActiveCell(i, 2).Value = FileLen(mypath & myname)
i = i + 1
End If
myname = Dir
Loop
Command1.Enabled = False
End Sub
---------------------------------------------------------------
Private Sub Command2_Click()
End
'close the workbook
xlsApp.Workbooks.Close
'Close Excel
xlsApp.Quit
End Sub
现在我遇到一个问题就是比如说：文件夹里面有如下六个文件：NP27112A.TXT 、OP27112A.TXT 、NP47145A.TXT、OP47145A.TXT、NS4F210A.TXT、OS4F210A.TXT
在执行以上程序后就会等到以下结果（文件长度那一列省略）：
NP27112A.TXT
NP47145A.TXT
NS4F210A.TXT
OP27112A.TXT
OP47145A.TXT
OS4F210A.TXT
是按照文件名排列的，我的问题就是能否修改以上程序使得运行程序后得到以下结果：
NP27112A.TXT
OP27112A.TXT
NP47145A.TXT
OP47145A.TXT
NS4F210A.TXT
OS4F210A.TXT
