다음 함수는 파일 디렉터리가 차지하는 바이트 수를 계산하는 데 사용됩니다.
REM 함수는 디렉터리가 차지하는 바이트 수를 반환합니다.
함수 DirUsedBytes(ByVal dirName As String) 길이
희미한 파일 이름을 문자열로
파일 크기를 통화로 희미하게 표시
If Right$(dirName, 1) <> / Then
dirName = dir이름 & /
엔디프
파일 크기 = 0
파일 이름 = Dir$(dirName & *.*)
FileName <> 동안 수행
파일 크기 = 파일 크기 + FileLen(dirName & 파일 이름)
파일명 = Dir$
고리
DirUsedBytes = 파일 크기
함수 종료
사용 방법:
MsgBox DirUsedBytes(D:/musics)