[탐색기] Visual Basic로 만든 탐색기

등록일 2003.06.04 압축파일 (zip) | 5페이지 | 가격 700원

*해당 문서는 미리보기가 지원되지 않습니다.

소개글

Visual Basic으로 만든 탐색기입니다.

상단에는 전체경로, 드라이브표시, 폴더표시, 파일표시
표시할 파일형식이 표시됩니다

하단에는 선택된 파일크기, 선택된 디렉토리 크기는 라벨로 표시되고
선택된 드라이브 전체용량, 선택된 드라이브 사용 가능 용량이
Lable과 차트로 표시됩니다.

컴파일 실행환경

없음

본문내용

Option Explicit

Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

Private Function getFreeDisk(CurrentDrive As String) As String
Dim deep As Integer
Dim deep1 As Integer
Dim lAnswer As Long
Dim lpRootPathName As String
Dim lpSectorsPerCluster As Long
Dim lpBytesPerSector As Long
Dim lpNumberOfFreeClusters As Long
Dim lpTotalNumberOfClusters As Long
Dim lBytesPerCluster As Long
Dim lNumFreeBytes As Double
Dim lNumTotalBytes As Double

Dim tString As String

Dim TotalBig, FreeBig

Const KByte As Long = 1024
Const MByte As Long = KByte * 1024
Const GByte As Long = MByte * 1024
deep = 0
deep1 = 0
lpRootPathName = CurrentDrive

lAnswer = GetDiskFreeSpace(lpRootPathName, lpSectorsPerCluster, _
lpBytesPerSector, lpNumberOfFreeClusters, lpTotalNumberOfClusters)

lBytesPerCluster = lpSectorsPerCluster * lpBytesPerSector

압축파일내 파일목록

mssccprj.scc
mynavigator3.exe
mynavigator3.frm
mynavigator3.frx
mynavigator3.vbp
mynavigator3.vbw
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      최근 본 자료더보기