none
Obtener la duración de un archivo de sonido RRS feed

Todas las respuestas

  • 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. 

    jueves, 15 de octubre de 2020 1:26
    Moderador