VB obtiene el nombre de la letra de la unidad

Implementado por FSO (Modelo de objetos del sistema de archivos)

El modelo de objetos FSO está incluido en la biblioteca de tipos de script (SCRRUN .DLL). El método de llamada es el siguiente:

Seleccione Referencia en el menú del proyecto y seleccione Microsoft Script Runtime en COM.

Agregue un script de importación en la parte superior del código y agregue el siguiente código al evento de clic del botón:

Script de importación

private Sub btnFso _ Click( Remitente ByVal como System.Object,ByVal eAsSystem.EventArgs)Maneja btnFso. Haga clic en

Dim Fso como el nuevo objeto del sistema de archivos

Dim drvDisk como unidad y strResult como cadena

drvDisk = Fso. GetDrive("C:\ ")

strResult = " Unidad " & ampC:\ " & amp;vbCrLf

StrResult += "Etiqueta del disco:" & drvDisk.Nombre del volumen & ampvbCrLf

StrResult += "Número de serie del disco:" &;drvDisk Número de serie&vbCrLf

StrResult += "Tipo de disco:" &;drvDisk /p>

StrResult +. = "Sistema de archivos:" &drvDisk. Sistema de archivos&vbCrLf

StrResult += "Capacidad del disco (g):" &FormatNumber(((drvDisk.total size /1024)/1024)/1024, 2,,, Microsoft VisualBasic.TriState.True)vbCrLf

StrResult += "Espacio disponible (g):" & FormatNumber(((drvDisk.FreeSpace/ 1024)/1024)/1024,2,,,Microsoft. VisualBasic. .TriState.True)vbCrLf

StrResult += "Espacio utilizado (g):" &;FormatNumber(((((drvDisk. TotalSize - drvDisk)/1024)/1024)/1024),2, , Microsoft.VisualBasic.TriState.True)

MsgBox(strResult)

Conector final