提取文件名

小学生　发表于：2015-10-20 15:17:03 　

打开文件夹打开access（提取文件名文件）文件

点击按钮（提取）

把当前文件夹的文件名写入表（提取文件名）里面

小学生发表于：2015-10-20 16:14:50

请路过的老师帮帮忙，谢谢！

chinasa 发表于：2015-10-21 08:16:47

chinasa 发表于：2015-10-21 08:16:59

chinasa 发表于：2015-10-21 08:22:06

    i = 0
    Dim fso As New FileSystemObject
    Dim fld As Folder, f As File
    Dim ssql As String
    folderpath = "\\10.16.47.234\npedi\BACKUP\"

If fso.FolderExists(folderpath) = True Then
        Set fld = fso.GetFolder(folderpath)

    Zwjs = fld.Files.Count '×ÜÎÄ¼þÊý

For Each f In fld.Files

         MsgBox f.Name
        Next
End If

    Set f = Nothing
    Set fld = Nothing
    Set fso = Nothing

小学生发表于：2015-10-21 16:42:37

谢谢chinasa老师！

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

Access交流中心