2014-05-21 2 views
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가됩니다.

답변

0

파일의 이름 + 확장자가 필요합니다. dra.Name은 다음을 수행합니다.

For Each dra In diar1 
     Dim FILE_NAME As String = "C:\Users\Owner\Documents\" & dra.Name 
    Next 
관련 문제