Results 1 to 5 of 5

Thread: VBA code not executing and excel have to be shut down by endtask

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #1
    VBAX Newbie
    Dec 2019

    VBA code not executing and excel have to be shut down by endtask

    Hi everyone,

    There is a vba code which I developed in order to list down the details of all the files present in a particular folder/subfolder. Below is the code:

    Option Explicit
    Sub listallfiles()
    Dim objfso As Scripting.FileSystemObject
    Dim objfolder As Scripting.Folder
    Set objfso = CreateObject("scripting.filesystemobject")
    Set objfolder = objfso.GetFolder("E:\data\2019 data")
    Call getfiledetails(objfolder)
    End Sub
    Function getfiledetails(objfolder As Scripting.Folder)
    Dim objfile As Scripting.File
    Dim nextrow As Long
    Dim objsubfolder As Scripting.Folder
    nextrow = Cells(Rows.Count, 1).End(xlUp).Row + 1
    For Each objfile In objfolder.Files
    Cells(nextrow, 1) = objfile.Name
    Cells(nextrow, 5) = objfile.DateCreated
    nextrow = nextrow + 1
    For Each objsubfolder In objfolder.SubFolders
    Call getfiledetails(objsubfolder)
    End Function
    The end result is nearly 8000-9000 rows. However, the code is most of the time unresponsive. I have to make 5-6 fail attempt before it actually gets executed. I do know that it can take 5-10 mins or a little more. However, despite leaving my laptop free to let it execute this code, it is still not doing working properly.

    Can anyone please help in adjusting that code so that I can get results all of the time in a proper manner and in short time period ?

    Thanks and Regards
    Last edited by Paul_Hossler; 03-23-2020 at 05:30 AM. Reason: Added CODE tags

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts