줄 번호를 기반으로 폴더에있는 파일 확인

Question

좋아, 나는 목록 상자를 통해 다른 수를 기반으로 폴더의 내용을 확인하는 가장 좋은 방법을 찾아 내려하고있다. 더 설명해 드리겠습니다.

두 개의 서로 다른 위치에있는 PDF의 수를 계산하여 총계로 계산하는 현재 코드는 다음과 같습니다.

'counts test1 pdfs 
    Dim f As String, c As Long 
    f = Dir$("\\Test1\PDFs\*.pdf") 
    Do While Len(f) <> 0 
     c = c + 1 
     f = Dir$() 
    Loop 

    'counts test2 pdfs 
    Dim n As String, d As Long 
    n = Dir$("\\Test2\PDFs\*.pdf") 
    Do While Len(f) <> 0 
     d = d + 1 
     n = Dir$() 
    Loop 

    GtotalPDFs = c + d 

다음은 현재 목록 상자에서 선택한 파일 수를 계산하는 코드입니다.

'adds temp1 files 
    Dim sum1 As Double 
    For Each item As String In Me.ListBox6.Items 
     sum1 += Double.Parse(item) 
    Next 

    'adds temp2 files 
    Dim sum2 As Double 
    For Each item As String In Me.ListBox7.Items 
     sum2 += Double.Parse(item) 
    Next 

    'adds temp3 files 
    Dim sum3 As Double 
    For Each item As String In Me.ListBox8.Items 
     sum3 += Double.Parse(item) 
    Next 

    'adds all files together to get a grand total 
    Gtotal = sum1 + sum2 + sum3 

목록 상자에 나열된 파일을 기반으로 PDF를 만드는 또 다른 프로세스가 있습니다.

내가 문제가되는 것은 Test1 및 Test2 폴더에서 생성 된 PDF가 목록 상자의 개수와 동일한 지 확인하는 것입니다. 이 계수는 다음 프로세스를 실행하기 전에 일치해야합니다. 두 가지 카운트가 일치 할 때까지 wait 또는 loop를 찾고, 다시 다음 프로세스를 실행하기 전에 다시 찾고 있습니다.

제안 사항?

Answer 1

기꺼이 도와 드리 겠지만, 앞으로 무엇을하려고하고 무엇이 문제인지 설명해야합니다. 지금 당장 필요한 것은 분명하지 않습니다. 그러나 시작하기에 앞서 코드에 대한 몇 가지 확실한 개선 사항이 있습니다.

먼저 Dir과 Len을 사용하지 마십시오. 이러한 메서드는 VB6과의 하위 호환성을 위해서만 존재하며 VB6에서 사용하기에 좋은 프로그래밍 연습조차되지 않았습니다! 왜 두 번째 코드 예제에서 두 배를 사용하고,

Dim count1 As Integer = Directory.GetFiles("\\Test1\PDFs", "*.pdf").Length 
Dim count2 As Integer = Directory.GetFiles("\\Test2\PDFs", "*.pdf").Length 

둘째, 같은 System.IO 네임 스페이스의 개체를 사용? 파일 수가 단순한 경우 Doubles가 아닌 정수를 사용해야합니다. 그러나 여기서하고있는 일은 분명하지 않습니다. 이 경우 Double.Parse 메서드가 작동하는 유일한 유령은 목록의 각 항목에 숫자가 포함되어있는 경우입니다. 그러나 설명에서 파일 이름이 들어있는 것처럼 목록에 대해 설명합니다. 당신이 multiple``에 목록 상자`SelectionMode` 설정 않은 경우

Answer 2

Imports System.IO 

Dim PDFFileCount As Integer = 0 
Dim ListboxCount As Integer = 0 
While Not (PDFFileCount > 0 And PDFFileCount = ListboxCount) 
    PDFFileCount = Directory.GetFiles("\\Test1\PDFs", "*.pdf").Count + _ 
       Directory.GetFiles("\\Test2\PDFs", "*.pdf").Count 
    ListboxCount = ListBox6.SelectedItems.Count + ListBox7.SelectedItems.Count + _ 
       ListBox8.SelectedItems.Count 
    Application.DoEvents() 
End While