扩展名排除

2025-03-08 07:18:05 +08:00
parent a174c4856a
commit 855ff55495
1 changed files with 2 additions and 3 deletions
@@ -360,9 +360,8 @@ Refresh:
            Dim validMusicCount As Integer = 0
            For Each File In EnumerateFiles(Path & "PCL\Musics\")
                Try
-                    Using reader As New AudioFileReader(File.FullName)
-                        validMusicCount += 1
-                    End Using
+                    If {".ini", ".jpg", ".txt", ".cfg", ".lrc", ".db", ".png"}.Contains(File.Extension.ToLower) Then Continue For
+                    validMusicCount += 1
                Catch ex As Exception
                End Try
            Next