My Name is Kay....

DIY , 먹방 , 개발 , 육아 , 여행 좋아합니다.
AdBlock 사용시 화면이 정상적으로 노출되지 않습니다.
포스팅 관련 문의 및 개발 문의는 Email : wkzkfmxksi@gmail.com

추가 포스팅이 이뤄지지 않는 블로그입니다. 문의는 wkzkfmxksi@gmail.com 으로 연락주세요.
kay
조회 수 3950 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

특정 폴더 위치의 파일목록을 읽어오거나 파일을 읽고, 쓰기 , 삭제 , 이동 샘플이며 

상세내용 및 추가 옵션 사항은 아래 MSDN 정보를 참고해주세요.


MSDN Link : File Methods ( http://msdn.microsoft.com/en-us/library/System.IO.File_methods.aspx )


읽어온 파일에 대한 정보 확인은 http://msdn.microsoft.com/en-us/library/System.IO.FileSystemInfo_properties.aspx 참고.

( 생성일 , 작성자, 파일명, 확장자, 최종 엑세스 시간, 등등..)


Dim dirInfo As DirectoryInfo
Dim fileInfo As FileInfo
Dim sRead As StreamReader
Dim fn As StreamWriter

dirInfo = New DirectoryInfo("D:\FILE\")

For Each fileInfo In dirInfo.GetFiles()
	sRead = System.IO.File.OpenText(fileInfo.FullName)
	cont = sRead.ReadToEnd()
	sRead.Close()
 
	Try  
		' fileInfo.FullName 
		' http://msdn.microsoft.com/en-us/library/System.IO.FileSystemInfo_properties.aspx
 
		If Directory.Exists("D:\SUCCESSFILE\") = False Then
			Directory.CreateDirectory("D:\SUCCESSFILE\")
		End If

		File.Move(fileInfo.FullName, "D:\SUCCESSFILE\" & fileInfo.Name)
		'File.Delete(fileInfo.FullName)
		'File.Copy(fileInfo.FullName, "D:\SUCCESSFILE\" & fileInfo.Name);

		fn = New StreamWriter("D:\SUCCESSFILE\fileNameList.txt")
		fn.WriteLine(fileInfo.Name & vbCrLf)
		fn.Close()

	Catch ex As Exception

	End Try
Next
?