主题：[求助]关于多文件，如何自动获取指定目录的文件

求助，关于多文件

类似：

 

For Each dir As String In FileSys.GetDirectories("C:\foxtable")
    For Each fl As String In filesys.GetFiles(dir)
        Dim dr As DataRow = DataTables("表A").AddNew
        dr("款号") = dir
        dr("文件") = filesys.GetName(dir) & "\" & filesys.GetName(fl)
    Next
Next

 

在命令窗口执行，具体具体自己调整

多谢狐爸抽空回指点，按以下代码，执行后是每个文件生成一行，如何将同一个文件夹中的多个文件，都放在同一行文件列中呢，谢谢

For Each dir As String In FileSys.GetDirectories("C:\foxtable")
    Dim v As String = ""
    Dim dr As DataRow = DataTables("表A").AddNew
    dr("款号") = filesys.GetName(dir)
    For Each fl As String In filesys.GetFiles(dir)
        If v > "" Then
            v =  v & vbcrlf & filesys.GetName(fl)
        Else
            v = filesys.GetName(fl)
        End If
    Next
    dr("文件") = v
Next

狐爸，谢谢您百忙之中解答！

狐爸，打开文件时，找不到文件不能打开，我按以下加了路径才可以打开。

如果你不是将文件保存在默认的位置，就得在列属性中指定文件存储位置：

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

明白了，再次感谢狐爸全程解答，谢谢！

也可用lines属性解决，见帮助文件中的“单元格多行内容的处理”

 

Dim lst As New List(of String)
For Each fl As String In FileSys.GetFiles("c:\data")
lst.Add(fl)
Next
Tables("表A").Current.DataRow.lines("文件") = lst