Filter out system files when displaying files in a listbox

[marcin2k]

I am able to display all files from a folder into a listbox but I want to make it so that system or hidden files do not show up. How can i do this.

Here is my code to display the files:
Private Sub GetDir(sDrive As String)
On Error Resume Next
Dim strRowSource As String
Dim crt
Dim file
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
Set crt = FSO.GetFolder(sDrive)
'Files
For Each file In crt.Files
strRowSource = strRowSource & file.Name & ";"
Next
Me!lstFiles.RowSource = strRowSource
End Sub

Thanks,
Marcin

 

[PHV]

For Each file In crt.Files
If Not ((file.Attributes And 2) Or (file.Attributes And 4)) Then
strRowSource = strRowSource & file.Name & ";"
End If
Next

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[marcin2k]

Thanks, I made a slight change I noticed that if I checked if an files attribute = 6 Then i did not display it and it worked cause those ended up being the hidden files