DotNetZip循環邏輯的邏輯幫助

Question

我有一個邏輯問題，只需要更多的工作就可以了。

For Each JobNode In JobNodes 
        Dim Source = JobNode.SelectNodes("Source") 
        For Each item As System.Xml.XmlNode In Source 
         Dim infoReader As System.IO.FileInfo 

         ''''Discerns whether a file or directory 

         If item.InnerText.Contains(".") Then 'is a file 

          If Dir$(item.InnerText) <> vbNullString Then 
           mySize += FileLen(item.InnerText) 
          End If 


          zip.AddFile(item.InnerText, "") 


          Dim numFiles2 = filenames.Count 
          mySize = BytesTO(mySize, convTo.MB) 
          Console.WriteLine("...Added all " & numFiles2 & " files. Total loose file collection size is " & Math.Round(mySize, 2) & " MB") 
          Console.WriteLine(vbCrLf) 


         Else 'is a directory 

          zip.AddDirectory(item.InnerText, GetLastDirName(item.InnerText & " ")) 
          Dim dinfo As New DirectoryInfo(item.InnerText) 
          Dim sizeOfDir As Long = DirectorySize(dinfo, True) 
          Dim numFiles As Integer = CountFiles_FolderAndSubFolders(item.InnerText) 

          Console.WriteLine("...Added all " & numFiles & " files. Total directory size is {0:N2} MB", (CDbl(sizeOfDir))/(1024 * 1024)) 
          Console.WriteLine(vbCrLf) 
         End If 

        Next 

這是我製作的備份程序的一部分。這是確定要添加到zip的對象是文件（IF語句的第一部分）還是目錄（IF語句的ELSE部分）的部分。

我的問題是，我試圖添加以下代碼：

Dim numFiles2 = filenames.Count 
mySize = BytesTO(mySize, convTo.MB) 
Console.WriteLine("...Added all " & numFiles2 & " files. Total loose file collection size is " & Math.Round(mySize, 2) & " MB") 
Console.WriteLine(vbCrLf) 

就在zip.AddFile(item.innertext,"")部分之後。我想添加這個，這樣我就可以從控制檯打印出這些信息。

問題是，如果我只是把它放在zip.addfile()之後，它會直接在每次上面輸出代碼。我只希望它打印出來的那部分（正上方），一旦完成將所有鬆散的文件（或文件添加使用zip.AddFile()）

編輯：添加在頂環更多的澄清

Answer 1

添加一個標誌，然後在循環完成後查找它。看起來好像你在循環文件而不是遞歸地調用它。我猜你現在只有一個循環。

循環迭代之前：

Dim FilesBeingAdded as Boolean = False 
Dim numFiles2 as Integer = 0 

內迭代：

If item.InnerText.Contains(".") Then 'is a file 
    If FilesBeingAdded = False Then 
     FilesBeingAdded = true   
    End If 

    If Dir$(item.InnerText) <> vbNullString Then 
     mySize += FileLen(item.InnerText) 
    End If 

    zip.AddFile(item.InnerText, "") 
    numFiles2 +=1 

Else 'is a directory 
    zip.AddDirectory(item.InnerText, GetLastDirName(item.InnerText & " ")) 
    Dim dinfo As New DirectoryInfo(item.InnerText) 
    Dim sizeOfDir As Long = DirectorySize(dinfo, True) 
    Dim numFiles As Integer = CountFiles_FolderAndSubFolders(item.InnerText) 

    Console.WriteLine("...Added all " & numFiles & " files. Total directory size is {0:N2} MB", (CDbl(sizeOfDir))/(1024 * 1024)) 
    Console.WriteLine(vbCrLf) 
End If 

循環迭代後：

If FilesBeingAdded = True Then 
    mySize = BytesTO(mySize, convTo.MB) 
    Console.WriteLine("...Added all " & numFiles2 & " files. Total loose file collection size is " & Math.Round(mySize, 2) & " MB") 
    Console.WriteLine(vbCrLf) 
    mySize = 0 
    numFiles2 = 0 
    FilesBeingAdded = False 
End If 

所以當它完成當前迭代將採取的理貨它添加的文件以及大小並打印到控制檯。然後它將變量清零，以便內循環的下一次迭代具有乾淨的值。我假設你在多個目錄上運行這個。通過檢查FilesBeingAdded，您可以確保避免在目錄中不包含文件時顯示醜陋的零計數輸出的情況。

這個解決方案假設了很多關於你如何輸入這段代碼。如果我的推定不正確，請修改問題以啓用更好的解決方案。