50分求获得文件夹名[问题解决立马结帐]

Question

想获得C:\Documents and Settings下的目录文件夹名。像Administrator、All Users、Default User....这些文件夹名其实就是系统帐户。
如果有办法获得所有的系统帐户名也可以。将这些系统帐户名放到一个数组里。最好能类似于C#中的ArrayList,大小不固定。求各位版主及高人帮忙。解决后立马结帐

Answer 1

Sorry,忘记改分值了。问题解决后会重开一贴给分。

Answer 2

先用ChDir 把当前路径改到需要的地方。然后用dir可以返回了，如果为空就立即退出循环，否则错误
ChDir "X:\xxx\"
s=dir
do until s=""
  debug.print s
  s=dir
loop
用DirListBox，直接指定Path属性即可或者用以下方法
'引用Microsoft Scripting Rumtime
Private Sub Form_Load()
    Dim Fso As New FileSystemObject
    Dim Fd As Folder
    Dim Fd1 As Folder
    Dim Fl As File
    Set Fd = Fso.GetFolder("C:")
    For Each Fd1 In Fd.SubFolders
        Debug.Print Fd1.Name
    Next
    For Each Fl In Fd.Files
        Debug.Print Fl.Name
    Next
End Sub方法太多了
======================
VB群:13738584 欢迎参观

Answer 3

http://community.csdn.net/Expert/topic/4702/4702396.xml?temp=7.226199E-02