获取文件名称

[lys1706228]

我有一批学生照片（jpg文件），是以身份证号命名的！
我怎么能把文件名读到数据库里，然后和数据库学审记录匹配，知道哪个人没有照片呢？

[up1002]

参考：

FileSystemObject的GetFile方法：

描述
返回与指定路径中某文件相应的 File 对象。

语法
object.GetFile(filespec)
GetFile 方法的语法有以下部分：

部分 描述
object 必选。应为 FileSystemObject 的名称。
filespec 必选。filespec 是指定文件的路径（绝对路径或相对路径）。

说明
如果指定文件不存在，则会出现错误。
下面例子举例说明如何使用 GetFile 方法:

Function ShowFileAccessInfo(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
s = f.Path & "<br>"
s = s & "Created: " & f.DateCreated & "<br>"
s = s & "Last Accessed: " & f.DateLastAccessed & "<br>"
s = s & "Last Modified: " & f.DateLastModified
ShowFileAccessInfo = s
End Function

[up1002]

解释一下。你利用FSO的上述方法，可以得到你的照片保存路径下的所有文件。
通过一个循环，可以实现对数组成员的遍历，也就是对每一张照片的遍历。
分别取得文件名，分离扩展名，得到学生的身份证号。
然后根据身份证号，更新数据库中的相关记录。

最后，就知道谁没照片了。

[jaroc818]

帮顶了,不大清楚.

[xieqi]

fso读文件名。把取得的文件名到数据库中比较
select * from table where 身份证号=文件名

....
if rs.eof then
数据库中没有
else
有的
end if

[up1002]

抱歉，刚才提供的参考有误。应该用这一个：

Files 集合

描述
文件夹中所有 File 对象的集合.

说明
以下代码举例说明如何获得 Folders 集合并使用 For Each...Next 语句枚举集合成员：

Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
s = s & "<BR>"
Next
ShowFolderList = s
End Function