From 68086200836ef6fd4b5eb79549cc471ee3123a2e Mon Sep 17 00:00:00 2001
From: youzi-2333 <youzi5201086@163.com>
Date: Tue, 23 Jul 2024 09:05:48 +0800
Subject: [PATCH] =?UTF-8?q?:bug:=20=E7=A9=BA=E6=96=87=E4=BB=B6=E5=A4=B9?=
 =?UTF-8?q?=E9=80=A0=E6=88=90=E9=80=89=E4=B8=AD=E5=88=A4=E6=96=AD=E9=94=99?=
 =?UTF-8?q?=E8=AF=AF?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../Pages/PageVersion/PageVersionExport.xaml.vb                | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb
index ebe060e..7a86a97 100644
--- a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb	
+++ b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb	
@@ -158,12 +158,13 @@
         End If
         If Directory.Exists(TargetPath) Then
             Dim di As New DirectoryInfo(TargetPath)
-            If (Not AllowEmpty) AndAlso di.GetDirectories.Length + di.GetFiles.Length = 0 Then Return 0
+            If di.GetDirectories.Length + di.GetFiles.Length = 0 Then Return If(AllowEmpty, 2, 0)
             '如果有一个文件不在列表，则 hasFalse = True
             Dim hasFalse As Boolean = False
             '如果有一个文件在列表，则 hasTrue = True
             Dim hasTrue As Boolean = False
             For Each d In Directory.EnumerateDirectories(TargetPath)
+                If Directory.EnumerateFileSystemEntries(d).Count = 0 Then Continue For
                 Select Case IsSelected(d, True)
                     Case 0
                         hasFalse = True