1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
Private Sub backgroundworker1_dowork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Try
Directory.GetFiles(Chemin, "*.*", SearchOption.AllDirectories)
Dim dossiersTrouvé = Directory.GetDirectories(Chemin)
For Each ligneD In dossiersTrouvé
'Label1.Text = ligneD
Next
Dim fichiersTrouvé = Directory.GetFiles(Chemin, "*.*", SearchOption.AllDirectories)
For Each ligneF In fichiersTrouvé
'Recuperation de l'extention
Extension = New System.IO.FileInfo(ligneF).Extension
If Extension <> ".db" Then
'Récuperation du Nom du Film sans l'extension
Film = Replace(Replace(ligneF, Chemin & "\", ""), Extension, "")
Dim MonFichier As New FileInfo(Chemin & "\" & Film & Extension)
Taille = MonFichier.Length
Taille1024 = Taille / 1024
'Définition de la durée du fichier
'Chargement de la localisation du fichier
AxVLCPlugin1.addTarget(ligneF, DBNull.Value, AXVLC.VLCPlaylistMode.VLCPlayListInsert, 0)
'Mise à Zéro du volume
Me.AxVLCPlugin1.Volume = 0
'Lance la lecture du fichier
Me.AxVLCPlugin1.play()
'Récupération de la taille
Dim Taildure As Integer = Me.AxVLCPlugin1.Length
'Conversion Millseconde en Seconde
Dim Millsec As Integer = Taildure / 1000
'Modificatiion du format, format du Type hh:mm:ss
Dim Duree As Date = Date.FromOADate(Millsec / 24 / 3600)
'Arret de la lecture du fichier
AxVLCPlugin1.stop()
MsgBox(Film & " " & Duree & " " & Taille1024)
' RichTextBox1.Text = RichTextBox1.Text & Film & vbCr
' RichTextBox1.SelectionStart = Len(RichTextBox1.Text)
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub |
Partager