0
Dim diar1 As IO.FileInfo() = ContractDirectory.GetFiles()
Dim dra As IO.FileInfo
Dim CC As Integer
Dim c As Integer
For Each dra In diar1
Dim FILE_NAME As String = "C:\Users\Owner\Documents\"[Dra]
Next
그래서 diar 1은 디렉토리의 모든 파일 이름을 수집합니다. 이제 각 파일을 디렉토리의 각 파일에 액세스하는 루프를 통해 처리하려고합니다.파일 경로에서 FileInfo 변수를 사용하십시오.
그래서 [Dra]는 text.txt가됩니다.