none
Como cambiar el volumen del sistema en visual basic 2010 RRS feed

Todas las respuestas

  • desde visual basic.net o vb6?

    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    miércoles, 12 de junio de 2013 15:13
  • <DllImport("kernel32.dll", SetLastError := True)> _
    Private Shared Function GetVolumeNameForVolumeMountPoint(lpszVolumeMountPoint As String, <Out> lpszVolumeName As StringBuilder, cchBufferLength As UInteger) As Boolean
    End Function
    
    <DllImport("kernel32.dll")> _
    Private Shared Function DeleteVolumeMountPoint(lpszVolumeMountPoint As String) As Boolean
    End Function
    
    <DllImport("kernel32.dll")> _
    Private Shared Function SetVolumeMountPoint(lpszVolumeMountPoint As String, lpszVolumeName As String) As Boolean
    End Function
    
    Const MAX_PATH As Integer = 260
    
    Private Sub ChangeDriveLetter()
    	Dim volume As New StringBuilder(MAX_PATH)
    	If Not GetVolumeNameForVolumeMountPoint("D:\", volume, CUInt(MAX_PATH)) Then
    		Marshal.ThrowExceptionForHR(Marshal.GetHRForLastWin32Error())
    	End If
    
    	If Not DeleteVolumeMountPoint("D:\") Then
    		Marshal.ThrowExceptionForHR(Marshal.GetHRForLastWin32Error())
    	End If
    
    	If Not SetVolumeMountPoint("Z:\", volume.ToString()) Then
    		Marshal.ThrowExceptionForHR(Marshal.GetHRForLastWin32Error())
    	End If
    End Sub
    


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    miércoles, 12 de junio de 2013 15:22
  • UPS! Pues yo crei que hablaba de cambiar la letra del volumen de del disco...


    Si se solucionó tu consulta no olvides marcar la respuesta. Si te ayudó vótala como útil. Saludos

    miércoles, 12 de junio de 2013 17:15