Our training courses
Azure C# Excel Microsoft 365 MySQL Power Apps Power Automate Power BI and DAX Python Report Builder SQL SQL Server VBA Macros

Other training resources
Blogs Exercises YouTube tutorials YouTube shorts Test your skills Consultancy Courseware Self-paced courses Newsletters Publications

Our training venues
London Manchester Across the UK At your site Online

Why we are different
Hundreds of published reviews Small class sizes Outstanding courseware Online classroom (Almost) no cancellations Wise Owl trainers only Genuine integrity Invoices after training 30+ years of Wise Owl Our top 100 clients

Details for Vinod Kumar

Vinod Kumar has participated in the following threads:

Added by Vinod Kumar on 04 Dec 2017 at 15:31

Hi

I want to list the names and durations of all videos in a folder and its subfolders using Excel VBA.   From the code below I can get the duration of video files, but I can't exclude all other files. This gives me a list of all the file names, which I don't need. Also I am failing to loop through subfolders.

What I want to acheive is for the macro to loop through all subfolders in the the given root folder and list only video names and duration in coloumns A and B.

Some help with this is truly appreciated.

Option Explicit

Dim i As Long, SourceFldr
Dim c As Range, rng As Range
Dim sFile As Variant
Dim oWSHShell As Object
Dim WS As Worksheet
Dim lRow As Long

Sub GetDuration()

    Dim fldr As FileDialog
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    Set oWSHShell = CreateObject("WScript.Shell")

    With fldr
        .Title = "Select a Source Folder"
        .AllowMultiSelect = False
        .InitialFileName = oWSHShell.SpecialFolders("Desktop")
        If .Show <> -1 Then GoTo NextCode
        SourceFldr = .SelectedItems(1)
NextCode:
    End With

    Dim oShell: Set oShell = CreateObject("Shell.Application")
    Dim oDir:   Set oDir = oShell.Namespace(SourceFldr)
    
        i = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row + 1
 
       
            For Each sFile In oDir.Items
                Cells(i, 1).Value = oDir.GetDetailsOf(sFile, 0)   'File Name
                Cells(i, 2).Value = oDir.GetDetailsOf(sFile, 27)   'File Lenght
            i = i + 1
     Next sFile

    Set oDir = Nothing
    Set oShell = Nothing

End Sub

 

Head office

Kingsmoor House

Railway Street

GLOSSOP

SK13 2AA

London

Landmark Offices

99 Bishopsgate

LONDON

EC2M 3XD

Manchester

Holiday Inn

25 Aytoun Street

MANCHESTER

M1 3AE

© Wise Owl Business Solutions Ltd 2024. All Rights Reserved.

End of small page here
Please be aware that our website uses cookies!
I'm OK with this Tell me more ...