Module Module1
 
    Declare Auto Function GetVolumePathName Lib "kernel32" Alias _
      "GetVolumePathNameA" ( _
       ByVal lpszFileName As String, _
       ByVal lpszVolumePathName As String, _
       ByVal cchBufferLength As Long) As Long
 
 
    Sub Main()
        'Platte D: ist nach C:\Mount gemountet
        'C:\mount\etc\atjobs.cmd entspricht damit D:\etc\atjobs.cmd 
        Dim datei As String = "c:\mount\etc\atjobs.cmd"
 
        Dim volume As String = ExtractMountpoint(datei)
        Console.WriteLine(volume)
        Console.ReadKey()
    End Sub
 
    Function ExtractMountpoint(ByVal strEVFoldername As String) As String
        Dim strVolumePathname As String = ""
        Dim lngBuffer As Long
        'API Funktion nutzen um echte Partitionen zu ermitteln
        GetVolumePathName(strEVFoldername, strVolumePathname, lngBuffer)
        Return strVolumePathname
    End Function
End Module