You can do something like this =>
Dim ListFiles = FileIO.FileSystem.GetFiles("G:\Music", FileIO.SearchOption.SearchAllSubDirectories, wildcards).Where(Function(f) (FileLen(f) > 0 AndAlso (File.GetAttributes(f) And FileAttributes.Hidden) <> FileAttributes.Hidden AndAlso (File.GetAttributes(f) And FileAttributes.System) <> FileAttributes.System))