파일정보 가져오기

 

.NET에서 파일목록 및 파일명 가져오기

Imports Microsoft.VisualBasic.FileIO

Dim Fs, F, Fc, F1, FName, Folder

Dim Path as String = "C:\Data\"

Fs = CreateObject("Scripting.FileSystemObject")		'파일을 가져올때 사용할 객체
F = Fs.Getfoler(Path)					'Data라는 폴더의 정보를 가져옴
Fc = F.subfolders					'Data폴더 하위 폴더의 개수를 가져옴

For Each F1 In Fc
	FName = F1.Name					'하위폴더의 이름을 가져옴
Next

'First라는 폴더를 삭제
Folder = Fs.Getfolder(Path + "\" + "First")
Folder.Delete(True)

'폴더 생성
'C드라이브에 Data폴더의 유무를 구한 후 없을 시 해당 경로에 폴더 생성
'C:\Data\ 같이 경로를 잡았을 경우 해당 경로에 Data 폴더가 없을땐 문제가 없으나 Data폴더가 있으면 오류 발생
  > Dir함수는 해당 경로에서 모든 파일, 폴더를 찾는 함수
  > 마지막에 \가 붙으면 Data 하위 폴더에서 파일, 폴더를 찾기 때문에 하위 폴더에 다른 파일이나 폴더가 있으면
    괜찮으나 비어있다면 True로 값을 도출하여 Data폴더를 생성하려다가 오류가 뜸 
'C:\Data 와 같은 경로로 지정해줘야 해당 지점에서 오류 발생하지 않음
If Dir(Path, vbDirectory) = "" then
	 MkDir(Path)
end if

'또는
If (GetAttr(Path) And vbDirectory) <> vbDirectory then
	MkDir(Path)
end if