DIR 함수가 모든 파일 이름을 인쇄하지 않습니다.

Question

같은 폴더 안에 모든 파일 이름을 나열하는 코드를 작성하고 있습니다. 코드도 작동하지만 하나의 파일을 남겨 두는 것이 문제입니다. 폴더에 10 개의 파일이 있다고 가정하고 직접 실행 창에 9 개의 이름 만 인쇄하는 매크로를 실행합니다. Pls는 제대로

Answer 1

당신은 아마, 즉 사용이 뭔가를 원하는 나는 내가 DIR 기능을 사용하고 있지 않다 생각

Option Explicit 

Sub test() 
    Dim curpath As String, path As String 

    path = "H:\NAFIS STUDY\Excel vba\New Folder\" 

    curpath = Dir(path) 

    Do Until curpath = vbNullString Or curpath = "" 
     Debug.Print Dir() 
    Loop 

End Sub 

아래의 코드에서 잘못된 어딘지 날 수정하여 디버그 출력에 쓸 수 curpath를 변수 그런 다음 Dir의 다음 리턴 값을 지정하십시오. 당신은 루프를 종료하려면 모두`curpath = vbNullString`와`curpath 필요가 = ""없습니다 curpath

Option Explicit 

Sub test() 
    Dim curpath As String, path As String 

    path = "c:\\temp\\" 

    curpath = Dir(path) 

    Do Until curpath = vbNullString Or curpath = "" 
     Debug.Print curpath 
     curpath = Dir() 
    Loop 

End Sub