<DllImport("kernel32.dll")> _
    Public Shared Function GetVolumeNameForVolumeMountPoint(ByVal _
    lpszVolumeMountPoint As String, ByVal lpszVolumeName As StringBuilder, _
    ByVal cchBufferLength As UInteger) As Boolean
    End Function
 
    <DllImport("kernel32.dll")> _
    Public Shared Function SetVolumeMountPoint(ByVal lpszVolumeMountPoint As _
    String, ByVal lpszVolumeName As String) As Boolean
    End Function
 
    <DllImport("kernel32.dll")> _
    Public Shared Function DeleteVolumeMountPoint(ByVal lpszVolumeMountPoint As _
    String) As Boolean
    End Function
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim old_mountpoint As String = "F:\"
        Dim new_mountpoint As String = "D:\"
 
        Dim unc_path As New StringBuilder(512)
 
        Dim res As Boolean = GetVolumeNameForVolumeMountPoint(old_mountpoint, _
          unc_path, 512)
        res = DeleteVolumeMountPoint(old_mountpoint)
        res = SetVolumeMountPoint(new_mountpoint, unc_path.ToString())
 
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist