如何用代码找出文件夹中最早保存的文件名？

小铁匠

找出文件夹中最早保存的文档的代码怎么写，请高手指教！

小铁匠

Private Sub Form_Load()
Dim conn As ADODB.Connection
    Set conn = CurrentProject.Connection
    Dim rst As New ADODB.Recordset
    Dim strsql As String
    Dim TemPath As String
    Dim strDBFileName As String
    strsql = "SELECT  top 1 源文件, 备份文件 FROM 备份"
    rst.Open strsql, conn, 1, 1
if not rst.eof then
If Not IsNull(rst("源文件")) And Not IsNull(rst("备份文件")) Then
        strDBFileName = Year(Now()) & Month(Now()) & Day(Now()) & Hour(Now()) & Minute(Now()) & ".mdb"
       TemPath = rst("备份文件") & "\"
          FileCopy rst("源文件"), TemPath & strDBFileName
    End If
end if
   rst.Close
    Set rst = Nothing
    Set conn = Nothing
End Sub
以上是我备份的代码我想在这代码中加入只保存20个备份的循环保存方法，就是在 rst("备份文件") 的文件夹中如果超过20个就删除第一个保存的文档。
        Set fs = Application.FileSearch
        fs.LookIn = rst("备份文件")
        fs.FileName = "*.mdb"
if fs.FoundFiles.Count >=20 then  删除第一个保存的文档，请高手指教完整

[ 本帖最后由 小铁匠 于 2008-1-29 21:25 编辑 ]

tyhtyq

值得详细研究一下!谢谢

小铁匠

没人给我回复吗？求教高手指点！！！

andymark

Dim TemPath As String
Dim StrKey As String
Dim Tem As String
Set fs = Application.FileSearch
TemPath = CurrentProject.Path & "\bak\"

With fs

.LookIn = CurrentProject.Path & "\bak"
.FileName = "*.mdb"

If .Execute > 0 Then

IntTem = Year(Now()) & Month(Now()) & Day(Now()) & Hour(Now()) & Minute(Now())

If .FoundFiles.Count > 3 Then

For I = 1 To .FoundFiles.Count

StrKey = Right(fs.FoundFiles(I), Len(fs.FoundFiles(I)) - Len(TemPath)) 'filename
StrKey = Left(StrKey, Len(StrKey) - 4)


If IntTem > StrKey Then
IntTem = StrKey
End If

Next I

If IntTem <> Year(Now()) & Month(Now()) & Day(Now()) & Hour(Now()) & Minute(Now()) Then
Kill TemPath & IntTem & ".mdb"
End If

End If

End If
End With

andymark

If .FoundFiles.Count > 3 Then   这里根据情况修改