Obtener la duración de un archivo de sonido

Question

Existe alguna forma de obtener esta propiedad en VB.NET?

Answer 1

Hola NewsomeCold,

a continuación te pongo un ejemplo. Este ejemplo te enseña a obtener varias propiedades más, por si te son de utilidad más adelante en lo que estás haciendo:

Option Strict Off

'Add reference browse C:\Windows\System32\Shell32.Dll

Public Class Form1

    Dim Path As String = ""
    Dim FileName As String = ""

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.CenterToScreen()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        RichTextBox1.Text = ""
        Dim OFD As New OpenFileDialog
        OFD.Multiselect = False
        If OFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            Path = OFD.FileName
            Label1.Text = Path
            Dim x As Integer = Path.LastIndexOf("\"c)
            FileName = Path.Substring(x + 1, Path.Count - x - 1)
            Path = Path.Remove(x, Path.Count - x)
            Dim objShell As Object
            Dim objFolder As Object
            Dim strDimensions As Object
            objShell = CreateObject("Shell.Application")
            objFolder = objShell.Namespace(Path.ToString) ' path to the foldercontaining the file
            strDimensions = objFolder.GetDetailsOf(objFolder.ParseName(FileName), 27) ' Filename use 27 for video or audio length
            Try
                For i = 1 To 1000
                    RichTextBox1.AppendText(i.ToString & " .. " & objFolder.GetDetailsOf(objFolder.ParseName(FileName), i) & vbCrLf)
                Next
            Catch ex As Exception
            End Try
            Label2.Text = "Files duration is " & strDimensions.ToString
        End If
    End Sub

End Class

Se ve de esta manera:

Espero que te sea de ayuda. Por favor no olvides marcar una respuesta si resolviste tu consulta (debajo de cada post hay una opción que dice “Marcar como Respuesta”). Quedo pendiente de cualquier actualización. Gracias por levantar tu consulta en los foros de msdn.

 

Saludos cordiales

Gabriel Castro

 ____________________________ 

Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.