NewestFile only for visible?

[toopnad]

How can I change the function to only work for visible files?

Code: Select all

Function NewestFile(Folder)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(Folder)
dPrevDate = "0"
For each oFile In oFolder.Files
If DateDiff("s", dPrevDate, oFile.DateLastModified) > 0 Then
sNewestFile = oFile.Path
dPrevDate = oFile.DateLastModified
End If
Next
NewestFile = sNewestFile
End Function

[Grovkillen]

Get the attributes of the file.

Code: Select all

oFile.Attributes

https://docs.microsoft.com/en-us/office ... s-property

[toopnad]

[toopnad]

I think you are absolutely right, but my inexperience prevents me from fully understanding the syntax of the language. Tell me how to write correctly?

Code: Select all

Function NewestFile(Folder)
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(Folder)
dPrevDate = "0"
For Each oFile.attributes IsNot 2 In oFolder.Files
If DateDiff("s", dPrevDate, oFile.DateLastModified) > 0 Then
sNewestFile = oFile.Path
dPrevDate = oFile.DateLastModified
End If
Next
NewestFile = sNewestFile
End Function

Please help to understand

[Grovkillen]

Get the attribute first and only do the diff check if the value is below 2...?

https://docs.microsoft.com/en-us/office ... r-function

By the way, can't you do this with MS commands?