Private Function FilesAndDetails()
On Error GoTo Err_FilesAndDetails
Dim rs As Recordset
Dim vDir As Variant
Dim sPath As String
sPath = CurrentProject.Path & "\" & Me.AltKlasor & "\"
CurrentDb.Execute "Delete tTempFiles.* from Tbl_Dosya;"
Set rs = CurrentDb.OpenRecordset("Tbl_Dosya")
vDir = Dir(sPath & "*.*")
Do Until vDir = ""
rs.AddNew
rs!FilePathName = sPath & vDir
rs!FilePath = sPath
rs!FileName = vDir
rs!ModifiedDate = FileDateTime(sPath & vDir)
rs!FileSize = FileLen(sPath & vDir)
rs.Update
vDir = Dir
Loop
rs.Close
Set rs = Nothing
DoCmd.Requery
Exit_FilesAndDetails:
Exit Function
Err_FilesAndDetails:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_FilesAndDetails
End Function
Merhaba, fonksiyonu aşağıdaki ile değiştirerek deneyiniz.