با سلام و سپاس خدمت عزیزان
امروز براتون کد یا همون تابع منحصر به فردی رو مهیا کردیم که خیلی کارآمد می باشد.
با تابع زیر شما در جا میتونید مقدار زمان فیلم و بگیرید.
امیدوار هستم مورد قبول شما عزیزان واقعگردد.
Sub GetVideoDuration(Dir As String,Filename As String) Dim player1 As SimpleExoPlayer player1.Initialize("player") player1.Prepare(player1.CreateFileSource(Dir,Filename)) Wait For player_Ready Log(player1.Duration/1000) End Sub
مدرس آقای آقاخانی