comment: 同步下注释
This commit is contained in:
@@ -166,7 +166,7 @@
|
|||||||
If di.GetDirectories.Length + di.GetFiles.Length = 0 Then Return If(AllowEmpty, 2, 0)
|
If di.GetDirectories.Length + di.GetFiles.Length = 0 Then Return If(AllowEmpty, 2, 0)
|
||||||
'如果有一个文件不在列表,则 hasExclude = True
|
'如果有一个文件不在列表,则 hasExclude = True
|
||||||
Dim hasExclude As Boolean = False
|
Dim hasExclude As Boolean = False
|
||||||
'如果有一个文件在列表,则 hasTrue = True
|
'如果有一个文件在列表,则 hasInclude = True
|
||||||
Dim hasInclude As Boolean = False
|
Dim hasInclude As Boolean = False
|
||||||
For Each d In Directory.EnumerateDirectories(TargetPath)
|
For Each d In Directory.EnumerateDirectories(TargetPath)
|
||||||
If Directory.EnumerateFileSystemEntries(d).Count = 0 Then Continue For
|
If Directory.EnumerateFileSystemEntries(d).Count = 0 Then Continue For
|
||||||
|
|||||||
Reference in New Issue
Block a user