以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎样从一个文件夹提取文件名到表中？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82006)
--  作者：zgjmost
--  发布时间：2016/3/10 9:02:00
--  [求助]怎样从一个文件夹提取文件名到表中？
怎样从一个文件夹提取文件名到表中？
下面的我从网上找的，不知怎么修改？

Sub 文件名列表()
MyPath = "X:\\某一文件夹\\"               \'  指定具体的文件夹
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
    If MyName <> "." And MyName <> ".." Then
        If (GetAttr(MyPath & MyName) And vbDirectory) <> vbDirectory Then
        i = i + 1
        Cells(i, 1) = MyName
        End If
    End If
    MyName = Dir
Loop
End Sub
--  作者：9602084
--  发布时间：2016/3/10 9:30:00
--  
For Each File As String In FileSys.GetFiles("C:\\")
Output.Show(File)
Next
--  作者：大红袍
--  发布时间：2016/3/10 10:39:00
--  

把帮助文档看一遍

 

http://www.foxtable.com/help/topics/0331.htm