From a174c4856a2992ba7b7f6ce9e86b709a5d688b54 Mon Sep 17 00:00:00 2001
From: Ciilu <109708109+Ciilu@users.noreply.github.com>
Date: Fri, 7 Mar 2025 22:12:58 +0800
Subject: [PATCH] update

---
 .../Pages/PageSetup/PageSetupUI.xaml.vb           | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/Plain Craft Launcher 2/Pages/PageSetup/PageSetupUI.xaml.vb b/Plain Craft Launcher 2/Pages/PageSetup/PageSetupUI.xaml.vb
index 1f697f4..1ec2d98 100644
--- a/Plain Craft Launcher 2/Pages/PageSetup/PageSetupUI.xaml.vb	
+++ b/Plain Craft Launcher 2/Pages/PageSetup/PageSetupUI.xaml.vb	
@@ -1,4 +1,6 @@
-Public Class PageSetupUI
+Imports NAudio.Wave
+
+Public Class PageSetupUI
 
     Public Shadows IsLoaded As Boolean = False
 
@@ -355,7 +357,16 @@ Refresh:
             PanMusicVolume.Visibility = Visibility.Visible
             PanMusicDetail.Visibility = Visibility.Visible
             BtnMusicClear.Visibility = Visibility.Visible
-            CardMusic.Title = "背景音乐（" & EnumerateFiles(Path & "PCL\Musics\").Count & " 首）"
+            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
+                Catch ex As Exception
+                End Try
+            Next
+            CardMusic.Title = "背景音乐（" & validMusicCount & " 首）"
         Else
             PanMusicVolume.Visibility = Visibility.Collapsed
             PanMusicDetail.Visibility = Visibility.Collapsed