---

Hej

Kan man lave en funktion i VBA der finder den nyeste fil i et Bibliotek.

Man venlig hilsen

Jan Bang Madsen
Access siden http://accesssiden.homepage.dk/
Salg af databaser: www.jbmsoft.dk

---

Jan Bang Madsen skrev:
> Kan man lave en funktion i VBA der finder den nyeste fil i et Bibliotek.

Det her skulle i hvert fald (forhåbentlig) virke i VB...
Jeg har ingen erfaring med VBA - men der er vil ikke den store forskel... ?

Private Function FindNewestFile(ByVal Path As String) As String
Dim Filename As String
Dim NewestDate As Date
Dim FileDate As Date
If Right$(" " & Path, 1) <> "\" Then
Path = Path & "\"
End If
FindNewestFile = ""
Filename = Dir$(Path & "*.*", vbArchive + vbReadOnly + vbHidden)
If Filename <> "" Then
NewestDate = FileDateTime(Path & Filename)
End If
While Filename <> ""
FileDate = FileDateTime(Path & Filename)
If FileDate > NewestDate Then
NewestDate = FileDate
FindNewestFile = Filename
End If
Filename = Dir$()
Wend
End Function

- Bjarke Walling Petersen

---

Hej Bjarke

Det virker. Mange tak skal du have.

Med venlig hilsen

Jan
"Bjarke Walling Petersen" <bwp@bwp.dk> skrev i en meddelelse
news:9jht0m$1i1i$1@news.cybercity.dk...
> Jan Bang Madsen skrev:
> > Kan man lave en funktion i VBA der finder den nyeste fil i et Bibliotek.
>
> Det her skulle i hvert fald (forhåbentlig) virke i VB...
> Jeg har ingen erfaring med VBA - men der er vil ikke den store forskel...
?
>
> Private Function FindNewestFile(ByVal Path As String) As String
> Dim Filename As String
> Dim NewestDate As Date
> Dim FileDate As Date
> If Right$(" " & Path, 1) <> "\" Then
> Path = Path & "\"
> End If
> FindNewestFile = ""
> Filename = Dir$(Path & "*.*", vbArchive + vbReadOnly + vbHidden)
> If Filename <> "" Then
> NewestDate = FileDateTime(Path & Filename)
> End If
> While Filename <> ""
> FileDate = FileDateTime(Path & Filename)
> If FileDate > NewestDate Then
> NewestDate = FileDate
> FindNewestFile = Filename
> End If
> Filename = Dir$()
> Wend
> End Function
>
> - Bjarke Walling Petersen
>
>