如何将指定文件夹中的文件名导入到表中？（一个文件名一条记录）

cyber-bobo

查看了论坛中的很多帖子，但都找不到比较简单满意的解决办法。

andymark

文件名？

先枚举文件夹的文件名，可用ADO再写进相关的表

cyber-bobo

具体不会做，能给个例子吗？谢谢

cyber-bobo

还有个条件就是必须在office2000的环境下，希望哪位大侠能帮个忙，谢谢了！

cyber-bobo

找到了前半段，不知道正确否，请各位大侠帮忙指正和完成下装段。
Private Sub 命令2_Click()
Dim strFileName2     As String     '文件名称
          Dim aryFileName()     As String     '文件名数组
          Dim i     As Integer
          strFileName2 = Dir("D:\photo\*.jpg")       '这里改为你的路径！
          Do While strFileName2 <> ""
                          i = i + 1
                          ReDim aryFileName(i)
                          aryFileName(i) = strFileName2       '保存文件名
                          strFileName2 = Dir           '得到下一个文件名
                         ' 如何写入表1中呢？
          Loop
End Sub

cyber-bobo

急啊，帮帮忙吧

glw

Private Sub Command0_Click()
Dim strFileName2     As String     '文件名称
          Dim aryFileName()     As String     '文件名数组
          Dim i     As Integer
          strFileName2 = Dir("D:\*.xls")       '这里改为你的路径！
          Do While strFileName2 <> ""
                          i = i + 1
                          ReDim aryFileName(i)
                          aryFileName(i) = strFileName2
                          CurrentDb.Execute "insert into sheet1 (字段1) values('" & strFileName2 & "') "
                          
                          '保存文件名
                          strFileName2 = Dir           '得到下一个文件名
                         ' 如何写入表1中呢？
          Loop

End Sub

cyber-bobo

非常感谢！再请教：以上代码中如何才能只记录文件名，即不含后缀名。

glw

Private Sub Command0_Click()
Dim strFileName2     As String     '文件名称
          Dim aryFileName()     As String     '文件名数组
          Dim i     As Integer
         
          strFileName2 = Dir("D:\*.xls")       '这里改为你的路径！
          Do While strFileName2 <> ""
                          i = i + 1
                          ReDim aryFileName(i)
                          Debug.Print Split(strFileName2, ".")(0), Split(strFileName2, ".")(1)
'
                          CurrentDb.Execute "insert into sheet1 (字段1) values('" & Split(strFileName2, ".")(0) & "') "
                          
                          '保存文件名
                          strFileName2 = Dir           '得到下一个文件名
                         ' 如何写入表1中呢？
          Loop

End Sub