Drive 개체

이 글은 도움말을 번역한 글입니다.

Drive 개체

특정 디스크 드라이브나 네트워크 공유 속성에 액세스할 수 있습니다.

비고

아래 코드는 Drive 개체를 사용하여 드라이브 속성에 액세스하는 방법을 보여줍니다.

Sub ShowFreeSpace(drvPath)

    Dim fs, d, s
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    
    s = "Drive " & UCase(drvPath) & " - "
    s = s & d.VolumeName & vbCrLf
    s = s & "Free Space: " & FormatNumber(d.FreeSpace / 1024, 0)
    s = s & " Kbytes"
    MsgBox s
    
End Sub

Sub CallShowFreeSpace()

    Dim drvPath As String
    
    drvPath = "C:\"
    
    ShowFreeSpace drvPath
    
End Sub

속성

AvailableSpace property

지정한 드라이브나 네트워크 공유 영역에서 사용자가 사용할 수 있는 공간의 크기를 반환합니다.

Syntax
object.AvailableSpace

object는 항상 Drive 개체입니다.

비고

대개 AvailableSpace 속성으로 반환되는 값은 FreeSpace 속성으로 반환되는 값과 같지만, 할당 크기를 지원하는 컴퓨터 시스템에 따라 그 값이 달라질 수 있습니다.

아래 코드는 AvailableSpace 속성의 사용법을 보여줍니다.

Sub ShowAvailableSpace(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Drive " & UCase(drvPath) & " - "
    s = s & d.VolumeName & vbCrLf
    s = s & "Available Space: " & FormatNumber(d.AvailableSpace / 1024, 0)
    s = s & " Kbytes"
    MsgBox s
End Sub

Sub CallShowAvailableSpace()
    Dim drvPath As String
    Dim availableSpaceInfo As String

    drvPath = "C:\"

    ShowAvailableSpace (drvPath)

End Sub

DriveLetter property

실제의 로컬 드라이브나 네트워크 공유의 드라이브 문자를 반환합니다. 읽기 전용 속성입니다.

Syntax
object.DriveLetter

object는 항상 Drive 개체입니다.

비고

DriveLetter 속성은 지정된 드라이브가 드라이브 문자와 연결되지 않은 경우(예: 드라이브 문자에 매핑되지 않은 네트워크 공유) 빈 문자열("")을 반환합니다.

아래 코드는 DriveLetter 속성의 사용법을 보여줍니다.

Sub ShowDriveLetter(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Drive " & d.DriveLetter & ": - "
    s = s & d.VolumeName & vbCrLf
    s = s & "Free Space: " & FormatNumber(d.FreeSpace / 1024, 0)
    s = s & " Kbytes"
    MsgBox s
End Sub

Sub CallShowDriveLetter()
    Dim drvPath As String

    drvPath = "C:\"

    ShowDriveLetter drvPath
End Sub

DriveType property

지정한 드라이브의 종류를 나타내는 값을 반환합니다.

Syntax
object.DriveType

object는 항상 Drive 개체입니다.

비고

아래 코드는 DriveType 속성의 사용법을 보여줍니다.

Sub ShowDriveType(drvPath)
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(drvPath)
    Select Case d.DriveType
        Case 0: t = "Unknown"
        Case 1: t = "Removable"
        Case 2: t = "Fixed"
        Case 3: t = "Network"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM Disk"
    End Select
    s = "Drive " & d.DriveLetter & ": - " & t
    MsgBox s
End Sub

Sub CallShowDriveType()

    Dim drvPath As String
    
    drvPath = "C:\"
   
    ShowDriveType drvPath
    
End Sub

DriveTypeConst Enumeration

지정된 드라이브의 유형을 나타내는 값을 반환합니다.

FileSystem property

지정한 드라이브에서 사용하는 파일 시스템의 형식을 반환합니다.

Syntax
object.FileSystem

object는 항상 Drive 개체입니다.

비고

사용할 수 있는 반환 형식에는 FAT, NTFS 및 CDFS가 있습니다.

아래 코드는 FileSystem 속성의 사용법을 보여줍니다.

Sub ShowFileSystemType()

    Dim fs, d, s
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive("e:")
    
    s = d.FileSystem
    MsgBox s
    
End Sub

FreeSpace property

지정한 드라이브나 네트워크 공유에서 사용할 수 있는 빈 공간 크기를 반환합니다. 읽기 전용 속성입니다.

object.FreeSpace

object는 항상 Drive 개체입니다.

비고

대개 FreeSpace 속성으로 반환되는 값과 AvailableSpace 속성으로 반환되는 값은 같지만, 할당 크기를 지원하는 컴퓨터 시스템에 따라 그 값이 달라질 수 있습니다.

아래 코드는 FreeSpace 속성의 사용법을 보여줍니다.

Sub ShowFreeSpace(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(drvPath))
    s = "Drive " & UCase(drvPath) & " - "
    s = s & d.VolumeName & vbCrLf
    s = s & "Free Space: " & FormatNumber(d.FreeSpace / 1024, 0)
    s = s & " Kbytes"
    MsgBox s
End Sub

Sub CallShowFreeSpace()
    Dim drvPath As String

    drvPath = "C:\"

    ShowFreeSpace drvPath
End Sub

IsReady property

지정한 드라이브가 준비되었으면 True를, 그렇지 않으면 False를 반환합니다

Syntax
object.IsReady

object는 항상 Drive 개체입니다.

비고

IsReady 속성은 이동식 매체 드라이브와 CD-ROM 드라이브에서 해당 매체를 삽입하고 액세스할 준비가 되었을 경우에만 True를 반환합니다.

아래 코드는 IsReady 속성의 사용법을 보여줍니다.

Sub ShowDriveInfo(drvPath)
    Dim fs, d, s, t
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(drvPath)
    
    Select Case d.DriveType
        Case 0: t = "Unknown"
        Case 1: t = "Removable"
        Case 2: t = "Fixed"
        Case 3: t = "Network"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM Disk"
    End Select
    
    s = "Drive " & d.DriveLetter & ": - " & t
    
    If d.IsReady Then
        s = s & vbCrLf & "Drive is Ready."
    Else
        s = s & vbCrLf & "Drive is not Ready."
    End If
    
    MsgBox s
    
End Sub

Sub CallShowDriveInfo()

    Dim drvPath As String

    drvPath = "C:\"
  
    ShowDriveInfo drvPath
    
End Sub

Path property

지정한 파일, 폴더 또는 드라이브의 경로를 반환합니다.

Syntax

object.Path

object는 항상 File, Folder 또는 Drive 개체입니다.

참고

루트 드라이브는 드라이브 문자에 포함되지 않습니다. 예를 들어 C 드라이브의 경로는 C:\가 아니라 C:입니다.

아래 코드는 Drive 개체에 의한 Path 속성의 사용법을 보여줍니다.

Sub GetDrivePathExample()
    Dim driveLetter As String
    Dim drive As drive
    
    ' 드라이브 문자 지정 (예: "C:\")
    driveLetter = "C:\"
    
    ' 지정한 드라이브의 Drive 개체 가져오기
    Set drive = CreateObject("Scripting.FileSystemObject").GetDrive(driveLetter)
    
    ' 드라이브 경로 출력
    Debug.Print "Drive " & driveLetter & " 경로: " & drive.Path
End Sub

' Output
' Drive C:\ 경로: C:

RootFolder property

지정한 드라이브의 루트 폴더를 나타내는 Folder 개체를 반환합니다. 읽기 전용 속성입니다.

Syntax
object.RootFolder

object는 항상 Drive 개체입니다.

비고

반환되는 Folder 개체를 사용하여 드라이브에 들어 있는 모든 파일과 폴더를 액세스할 수 있습니다.

아래 예제는 RootFolder 속성 사용법을 보여줍니다.

Function ShowRootFolder(drvSpec) As String
    Dim fso, f
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetDrive(drvSpec)
    
    ShowRootFolder = f.RootFolder
    
End Function

Sub CallShowRootFolder()

    Dim drvSpec As String
    Dim rootPath As String

    drvSpec = "C:\"

    rootPath = ShowRootFolder(drvSpec)

    MsgBox "Root Folder: " & rootPath
    
End Sub

SerialNumber property

디스크 볼륨을 고유하게 식별하는 데 사용하는 십진 일련 번호를 반환합니다.

Syntax
object.SerialNumber

object는 항상 Drive 개체입니다.

비고

SerialNumber 속성을 사용하여 이동식 매체를 가지고 있는 드라이브에 올바른 디스크가 삽입되었는지를 확인할 수 있습니다.

아래 코드는 SerialNumber 속성의 사용법을 보여줍니다.

Sub ShowDriveInfo(drvPath)
    Dim fs, d, s, t
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvPath)))
    
    Select Case d.DriveType
        Case 0: t = "Unknown"
        Case 1: t = "Removable"
        Case 2: t = "Fixed"
        Case 3: t = "Network"
        Case 4: t = "CD-ROM"
        Case 5: t = "RAM Disk"
    End Select
    
    s = "Drive " & d.DriveLetter & ": - " & t
    s = s & vbCrLf & "SN: " & d.SerialNumber
    MsgBox s
    
End Sub

Sub CallShowDriveInfo()

    Dim drvPath As String
    
    drvPath = "C:\"
   
    ShowDriveInfo drvPath
    
End Sub

ShareName property

지정한 드라이브의 네트워크 공유 이름을 반환합니다.

Syntax
object.ShareName

object는 항상 Drive 개체입니다.

비고

object가 네트워크 드라이브가 아니면 ShareName 속성은 길이가 0인 문자열("")을 반환합니다.

아래 코드는 ShareName 속성의 사용법을 보여줍니다.

Sub ShowDriveInfo(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvPath)))
    
    s = "Drive " & d.DriveLetter & ": - " & d.ShareName
    MsgBox s
    
End Sub

Sub CallShowDriveInfo()
    Dim drvPath As String

    drvPath = "I:\"

    ShowDriveInfo drvPath
End Sub

TotalSize property

드라이브나 네트워크 공유의 전체 공간을 바이트 단위로 반환합니다.

Syntax
object.TotalSize

object는 항상 Drive 개체입니다.

비고

아래 코드는 TotalSize 속성의 사용법을 보여줍니다.

Sub ShowSpaceInfo(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvPath)))

    s = "Drive " & d.DriveLetter & ":"
    s = s & vbCrLf
    s = s & "Total Size: " & FormatNumber(d.TotalSize / 1024, 0) & " Kbytes"
    s = s & vbCrLf
    s = s & "Available: " & FormatNumber(d.AvailableSpace / 1024, 0) & " Kbytes"
    MsgBox s

End Sub

Sub CallShowSpaceInfo()
    Dim drvPath As String

    drvPath = "D:"

    ShowSpaceInfo drvPath
    
End Sub

VolumeName property

지정한 드라이브의 볼륨 이름을 지정하거나 반환합니다. 읽기/쓰기 속성입니다.

Syntax
object.VolumeName [= newname ]

object : 필수적인 요소. 항상 Drive 개체입니다.

newname : 선택적인 요소. newname이 제공되는 경우 이는 지정한 object의 새 이름입니다.

비고

아래 코드는 VolumeName 속성의 사용법을 보여줍니다.

Sub ShowVolumeInfo(drvPath)
    Dim fs, d, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvPath)))

    s = "Drive " & d.DriveLetter & ": - " & d.VolumeName
    MsgBox s

End Sub

Sub CallShowVolumeInfo()
    Dim drvPath As String

    drvPath = "D:\"

    ShowVolumeInfo drvPath
End Sub

컴퓨터의 이름을 변경하지 않았다면 VolumnName은 빈 문자열("")을 반환합니다.

저작자표시 비영리 변경금지 (새창열림)

'Microsoft Scripting Runtime' 카테고리의 다른 글

Folder 개체 (0)	2023.08.10
Folders 컬렉션 (0)	2023.08.10
Drives 컬렉션 (0)	2023.08.09
FileSystemObject 개체 (0)	2023.07.30
Dictionary (0)	2023.07.29

엑셀 초보의 VBA 독학기

Drive 개체

Drive 개체

속성

AvailableSpace property

DriveLetter property

DriveType property

FileSystem property

FreeSpace property

IsReady property

Path property

RootFolder property

SerialNumber property

비고

ShareName property

TotalSize property

VolumeName property

'Microsoft Scripting Runtime' 카테고리의 다른 글

티스토리툴바

Drive 개체

Drive 개체

속성

AvailableSpace property

DriveLetter property

DriveType property

FileSystem property

FreeSpace property

IsReady property

Path property

RootFolder property

SerialNumber property

비고

ShareName property

TotalSize property

VolumeName property

'Microsoft Scripting Runtime' 카테고리의 다른 글

관련글

티스토리툴바