bueno, como nunca he usado ninguna API, ya es hora de empezar, y he empezado usando una sencilla para conseguir informacion de las unidades de almacenamiento.
GetVolumeInformation
he mirado un ejemplo sobre como usarla, pero hay cosas que no entiendo bien y me gustaria que me lo aclaraseis por favor.
Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String,
ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long,
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long,
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String,
ByVal nFileSystemNameSize As Long) As Long
Private Sub Command1_Click()
Dim unidad As String
Dim serie As Long
Dim sistemaArchivos As String
Dim volumen As String
Dim retorno As Long
volumen = String$(255, Chr$(0))
sistemaArchivos = String$(255, Chr$(0))
unidad = Drive1
unidad = Left(unidad, 2) & "\"
retorno = GetVolumeInformation(unidad, volumen, Len(volumen), serie, 0, 0, sistemaArchivos, Len(sistemaArchivos))
Label1.Caption = Trim(volumen)
Label2.Caption = serie
Label3.Caption = Trim(sistemaArchivos)
End Sub
-1º -> por que en el ejemplo, a las variables volumen y sistemaArchivos se les asignan esos valores para luego pasarselos a la funcion?
-2º-> por que a la hora de pasar variables a la funcion algunas como volumen y sistemaArchivos se pasan, y ademas, tambien se pasa su longitud?
y bueno, esas pequeñas dudas solo con esta API, pero seguramente me iran surgiendo muchas dudas, porque a primera vista, parece complicado su uso debido a la cantidad de valores que hay que pasarles y demas.
pero bueno, a empollar se ha dicho.
saludos