Önceki konularda klasördeki dosyaları (path, name, size) bilgilerine göre listeye almıştık
aynı yöntemle tabloya veya listeye alıp eklenme veya oluşturulma zamanına göre en sonuncuyu bulabiliriz
genelde yaptığım işlem uzun yoldan ve işlevsiz oluyor
benim yapmak istediğim kısaca şöyle
Local ağda herkesin ulasabildiği klasöre personel işlerine bakan görevli son Excel dosyasını ekleyecek
bende bu son Excel dosyasını vertabanına güncelleyeceğim
bu Excel dosyası son oluşturulan veya değiştirilen veya klasöre son eklenen vs olabilir ama olmayadabilir. ama isimlendirme formatı şöyle
EGITmM (11.05.2020).XLS
dediğim gibi uzun yoldan tüm dosyaları listeye alıp
içlerindeki tarihleri büyüklük sırasına koyup en büyük tarihli dosyayı getirebiliriz
ama kolay bir yöntemi var mı
mesela bir klasördeki son eklenen dosyanın metin kutusuna fullpath i alınabilir mi
şöyle bir kod var
Function NewestFile()
Dim FileName As String
Dim MostRecentFile As String
Dim MostRecentDate As Date
Dim FileSpec As String
'Specify the file type, if any
FileSpec = "*.*"
'specify the directory
Directory = "C:"
FileName = Dir(Directory & FileSpec)
If FileName <> "" Then
MostRecentFile = FileName
MostRecentDate = FileDateTime(Directory & FileName)
Do While FileName <> ""
If FileDateTime(Directory & FileName) > MostRecentDate Then
MostRecentFile = FileName
MostRecentDate = FileDateTime(Directory & FileName)
End If
FileName = Dir
Loop
End If
NewestFile = MostRecentFile
End Function