Finde navn på nyeste .txt fil

Det kan gøre ved hjælp af VBS script, men ikke for blot 30 point.

Jeg spurgte om der var nogen der havde en løsning, ikke hvor mange points De skulle have for det!

Her er løsningen!

Public Const cPath = "C:\TEMP\"
Sub HentNyesteFil()
    Const FiltTxt = "*.txt"
   
    Dim strFile As String, dtmFile As Date
    Dim strLatestFile As String, dtmLatestFile As Date
   
    strFile = Dir(cPath & FiltTxt)

    Do Until strFile = ""
        dtmFile = FileDateTime(cPath & strFile)
        If dtmFile > dtmLatestFile Then
            strLatestFile = strFile
            dtmLatestFile = dtmFile
        End If
        strFile = Dir
    Loop
        Q = MsgBox(" Nyeste fil hedder " & strLatestFile & vbLf _
& " Vil du hente denne fil?", vbOKCancel, "Advarsel eksisterende faktura")

If Q <> vbOK Then

 
 
Else
FilSti = cPath & strLatestFile
FileExist = CStr(cPath) & CStr(strLatestFile) '(FilSti)


End If
End Sub

HAR SELV FUNDET LØSNINGEN