Private Sub Form_Load()
'열 머리글 개체를 만듬
With ListView1.ColumnHeaders
.Add 1, "Name", "이 름", , lvwColumnLeft '첫 번째 열은 왼쪽 맞추어야 함
.Add 2, "Size", "크 기", , lvwColumnCenter
.Add 3, "Class", "종 류", , lvwColumnCenter
.Add 4, "DateModified", "수정일시", , lvwColumnCenter
.Add 5, "DateAccessed", "접근일시", , lvwColumnCenter
End With
DisplayListView 'ListItem 개체 및 ListItem 개체의 서브 개체들을 만듬
End Sub
Private Sub DisplayListView()
On Error GoTo errDate '오류가 발생될 때, "알 수 없음"을 설정하고, 다음 문장을 수행
Dim i As Integer '인덱스 변수
Dim v 'Variant 변수
Dim fso As New FileSystemObject 'FSO 개체를 생성하면서 FSO 개체 변수 선언
Dim curFolder As Folder 'Folder 개체 변수
Dim tmpListItem As ListItem 'ListItem 개체 변수
Set curFolder = fso.GetFolder(Dir1.List(-1)) '현행 폴더를 의미하는 Folder 개체
ListView1.ListItems.Clear '목록의 항목들을 모두 지움
For Each v In curFolder.SubFolders '자식 폴더들 중의 하나의 자식 폴더에 대하여
'자식 폴더의 이름을 ListItem 개체로 설정
Set tmpListItem = ListView1.ListItems.Add(, , v.Name)
With tmpListItem '생성된 ListItem 개체에 대하여
tmpListItem.Bold = True '자식 폴더의 문자열을 굵게
'자식 폴더의 크기는 표시하지 않음
i = 2: .SubItems(i) = v.Type '자식 폴더의 유형을 서브 항목 2번으로 함
i = 3: .SubItems(i) = v.DateLastModified '최종 수정일시를 서브 항목 3번으로 함
i = 4: .SubItems(i) = v.DateLastAccessed '최종 접근일시를 서브 항목 4번으로 함
End With
Next v
For Each v In curFolder.Files '자식 파일 중의 하나의 자식 파일에 대하여
'자식 파일의 이름을 ListItem 개체로 설정
Set tmpListItem = ListView1.ListItems.Add(, , v.Name)
With tmpListItem '생성된 ListItem 개체에 대하여
i = 1: .SubItems(i) = FileLen(Dir1.Path & "" & v.Name) '파일 이름을 항목 1번으로 함
i = 2: .SubItems(i) = v.Type '자식 파일의 유형을 서브 항목 2번으로 함
i = 3: .SubItems(i) = v.DateLastModified '최종 수정일시를 서브 항목 3번으로 함
i = 4: .SubItems(i) = v.DateLastAccessed '최종 접근일시를 서브 항목 4번으로 함
End With
Next v
Set tmpListItem = Nothing '개체 변수 해제
Exit Sub
errDate: '오류가 발생하면, "알 수 없음"으로 설정하고, 오류가 발생한 다음 문장을 수행하도록 함
tmpListItem.SubItems(i) = "알 수 없음"
Resume Next '오류가 발생한 다음 문장을 수행
End Sub
Private Sub Drive1_Change()
On Error GoTo errExit '오류가 발생한 경우, 무시하기로 함
Dir1.Path = Drive1.Drive '드라이브가 변경되면, 이를 DirListBox 컨트롤에 알려 줌
errExit:
End Sub
Private Sub Dir1_Change()
DisplayListView '현행 폴더가 변경되면, 변경된 폴더에 대한 정보를 다시 표시함
End Sub
Private Sub optView_Click(Index As Integer)
ListView1.View = Index 'ListView 컨트롤의 항목 유형을 선택한 유형으로 변경
End Sub
Private Sub cmdExit_Click()
Unload Me
End Sub
이런 vb 소스인데요..
왼쪽에 폴더 불러오는건 하겠는데요..
오른쪽에서..
라디오 버튼으로 선택해서..부르는걸 못하겠어요..
파일이 어떻게 해서나오는건지..
조언좀 부탁드립니다.
첨부파일로 exe 파일 같이 올릴께요..
꼭 좀 도와주세요..ㅜ.ㅜ
답변을 간단히 말씀드리면
각 라디오 버튼 클릭시
ListView의 ViewStyle을 바꿔 주시면 됩니다.
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
ListView1.ViewStyle := vsIcon; //vsList, vsReport, vssmallIcon
end;
이렇게 하시면 될거 같네요...
즐프....