如何将一个文件夹中的所有文件名插入到Access表中？

-2

我是一个在Access和VBA编码的初学者，我很想将我在文件夹中的所有文件名列入我的访问表（ID（自动），文件名）？如何将一个文件夹中的所有文件名插入到Access表中？

2016-07-20 Tarik Kaoukab

看在''FileSystemObject'看DIR'我想在VBA循环的文件应该给你一个谷歌的答案，也是在这里搜索上应。 http://stackoverflow.com/questions/10380312/loop-through-files-in-a-folder-using-vba和'SQL插入' –

我做过，我用DIR但它没有显示给我，因为所有我可以找到具有“单元格”功能的excel示例，我想在我的表格中插入名称（称为table1） –

试试这个：

Dim F as Variant, FSO As Object 
Set FSO = CreateObject("Scripting.FileSystemObject") 
Docmd.SetWarnings False 
For each F in FSO.getFolder("Path to your folder").Files 
    Docmd.RunSQL "INSERT INTO table1 ('File Name') VALUES ('" & F & "');" 
Next 
Docmd.SetWarnings True

来源

2016-07-20 12:06:28

谢谢！这是工作！！但我怎样才能显示文件名？带有或不带扩展名的 –

（例如.exe）？ –

F.Name给我带扩展名，但只是为了知道，如何只显示扩展名？ –