如何获取新上传文件的文件名

我想监控某个路径下，当有新的文件上传时，获取新上传文件的文件名，怎么弄啊？ --------------------编程问答-------------------- 读取所有文件的创建时间，取出最大的就是 --------------------编程问答-------------------- Private Function GetFileAttr(sPath As String, iAttr As Integer) 
Dim oFSO As New FileSystemObject 
Dim oFile As File 
Dim sOut As String 

Set oFile = oFSO.GetFile(sPath) 

Select Case iAttr 
Case 0 '创建日期 
sOut = oFile.DateCreated 
Case 1 '修改日期 
sOut = oFile.DateLastModified 
Case 2 '访问日期 
sOut = oFile.DateLastAccessed 
Case 3 '文件大小 
sOut = oFile.Size 
Case 4 '文件类型 
sOut = oFile.Type 
End Select 

GetFileAttr = sOut 

End Function

仅供参考 --------------------编程问答-------------------- 谢谢哦。那如果我每天获取系统的日期，时间固定为00点00分，如，今天获取的日期时间就为“0812290000”，然后监控某个路径下的文件，一旦有文件的创建日期大于0812290000，则获取该文件的文件名，以方便进行后续的操作。你觉得可以吗？ --------------------编程问答-------------------- 如果函数调用语句
ls=GetFileAttr（"d:\1","1.txt"）
ls的值是文件名1还是文件1.txt的创建时间啊？
我是新手，问题比较低级哦。 --------------------编程问答-------------------- 取出来看看就知道了
帮忙定

补充：VB ,  基础类