请教怎样从指定文件夹中，获取文件名及路径后，写入表中

随心飞去　发表于：2014-12-31 22:35:49 　

复制

怎样在ACCESS中,在窗体的按钮上设置获取指定文件夹中的所有文件名和路径后,写入表中?请大师门给予帮助。jb

Top

竹笛发表于：2014-12-31 22:49:36

遍历文件夹与文件或者遍历某文件夹下的子文件夹中的文件名称到一个集合里面

点击附件下载

Top

随心飞去发表于：2015-01-01 23:53:51

可惜还有点偏差，我的目标是要把获取到的名称插入表中的字段“文件名”中，下面二段语句子怎改？

Private Sub cmd_OK_Click()
    On Error Resume Next
    With FileDialog(msoFileDialogFolderPicker)
        .Filters.Clear
        If .Show Then
            Me.filepath = .SelectedItems(1)
        End If
    End With
    Me.List1.RowSource = ""
    Me.List2.RowSource = ""
    Me.List3.RowSource = ""
    Call ShowFolderList(Me.filepath)
    Call ShowFileList(Me.filepath)
    Call SoSuoFile(Me.filepath)
End Sub

Private Sub ShowFileList(FolderSpec As String)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(FolderSpec)
    Set fc = f.Files
    For Each f1 In fc
       Me.List2.AddItem f1.Name
'       Call ShowFileList(folderspec & "\" & f1.Name)
    Next

End Sub

单击下载

Top

随心飞去发表于：2015-01-04 11:40:22

上面问题还没有得到解决，如果不能在获取文件名的同时导入，那么1楼给出的示例中，获取了文件名后，能否把这些文件名插入数据库表中呢？

Top

随心飞去发表于：2015-01-05 22:35:46

虽然没有达到最初的设想，但借用了论坛上的示例，解决了问题。��ش˸��

Top

总记录：4篇页次：1/1 9 1 :

Access交流中心

请教怎样从指定文件夹中，获取文件名及路径后，写入表中