如何将文件夹中的所有文件名插入Access表? [英] How can I insert all the files names in a folder into Access table?

问题描述

我是Access和VBA编码的入门者，我很想将文件夹中的所有文件名列出到访问表中(ID(自动)，文件名)?

I'm a begginer in Access and VBA coding and I would love to list all files names I have in a folder into my access table (ID (automatic), File Name) ?

推荐答案

尝试一下:

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 ([FieldName]) VALUES ('" & F & "');"
Next
Docmd.SetWarnings True

这篇关于如何将文件夹中的所有文件名插入Access表?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！