用excel取文件名问题

yyyeng

当用文本 取文件名1.bat  dir /a-d/s/b D:\000\a1 >1.txt
取文件名时取得列表如下：
D:\000\a1\大3213.rar
D:\000\a1\小658.rar
D:\000\a1\文361.rar
D:\000\a1\新6692.rar
这个排序与资源管理器里显示不一致

当用文本 取文件名2.bat  dir /a-d/s/b/o:n D:\000\a1 >2.txt
加了0:n取文件名时取得列表如下：
D:\000\a1\大3213.rar
D:\000\a1\文361.rar
D:\000\a1\小658.rar
D:\000\a1\新6692.rar
这个排序与资源管理器里显示一致了

在excel表里用vba取得的列表与“取文件名1”一个结果，怎么样才能取得与资源管理器里显示一致的列表？
Sub 取文件名()
f = Dir("d:\000\a1\")
han = 1
Do While f > ""
Cells(han, 1).Value = f
han = han + 1
f = Dir
Loop
End Sub


谢谢各位大师！

longwin

顺序有要求的话，可能要先取出来再排序了。

ssfx1982

取完后再排下序就可以了。loop后面加句Range("A1").Resize(han, 1).Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlNo 试下

ww87725244

1. Sub aa()
   
2.     Dim WSH, wExec, Result As String, ar, i
   
3.     Set WSH = CreateObject("WScript.Shell")
   
4.     Set wExec = WSH.exec("cmd /c dir /b/o:n  D:\000\a1")
   
5.     Result = wExec.StdOut.ReadAll
   
6.     ar = Split(Result, vbCrLf)
   
7.     For i = 0 To UBound(ar)
   
8.         Sheet1.Cells(i + 1, 1) = ar(i)
   
9.     Next
   
10.     Set wExec = Nothing
    
11.     Set WSH = Nothing
    
12. End Sub

复制代码

yyyeng

谢谢各位大师！