Hi After about 3 minutes (30Gig on hardrives) it came up with: Run-time error '-2144010224 (803500 10)': Method 'Execute' of object 'FileSearch' failed
Your comments would be appreciated. Thanks Charlie Harris On Fri, Dec 23, 2011 at 5:28 PM, siti Vi <setiyowati.d...@gmail.com> wrote: > Hi Charlie, > Please check and try this code, if it helps... > > '-------standard Module--------- > Sub *GenerateList*() > ' sitiVi / jakarta 23 Dec 2011 > ' in answering: > ' http://groups.google.com/group/ _ > ' excel-macros/browse_thread/thread/9dbda650f1d09d65# > '---------------------------------------------------- > Dim ArDir As Variant, iDir As Integer > ' please edit this list of Path.. > ArDir = Array(*"C:\MyData", "F\", "E:\", "D\xFolder\yFolder"*) > ' ~~~~~~~~~~~~~~~~~~~~~~~~~~ > Application.Calculation = xlCalculationManual > Application.ScreenUpdating = False > For iDir = LBound(ArDir) To UBound(ArDir) > Call ListFiles(ArDir(iDir)) > Next iDir > Columns("A:B").EntireColumn.AutoFit > Application.ScreenUpdating = True > Application.Calculation = xlCalculationAutomatic > End Sub > > Private Sub *ListFiles*(ByVal SpecifiedDir As String) > ' sitiVi / jakarta 23 Dec 2011 > ' in answering: > ' http://groups.google.com/group/ _ > ' excel-macros/browse_thread/thread/9dbda650f1d09d65# > '---------------------------------------------------- > Dim vFName As Variant, RowN As Long > RowN = Cells(1).CurrentRegion.Rows.Count > If RowN = 1 Then RowN = 0 > With Application.FileSearch > .NewSearch > .LookIn = SpecifiedDir > .SearchSubFolders = True > .FileType = msoFileTypeExcelWorkbooks > REM .Execute > If .Execute > 0 Then > For Each vFName In .FoundFiles > RowN = RowN + 1 > ActiveSheet.Cells(RowN, 1).Value = SpecifiedDir > ActiveSheet.Cells(RowN, 2).Value = vFName > Next > End If > End With > End Sub > '----------end of code ------------- > > Looking forward to hear if this code works (or not).. > > Thx, Best regards & Wassalamualaikum wr wb. > siti Vi > > > > On Fri, Dec 23, 2011 at 4:45 AM, Cab Boose <swch...@gmail.com> wrote: > > > > Hi > > There are plenty of solutions for listing open excel files. > > I would like to list all excel workbooks on my C: and F: drives. They > are all over the place. My bad housekeeping! > > How do I get the complete address for each workbook ? either with a > hyperlink or not. But do need to print out the list. > > Using Excel 2000 at the moment but soon hopefully to upgrade to 2003 > > Thanks & Merry Christmas to all > > > > regards > > Charlie > > -- > FORUM RULES (934+ members already BANNED for violation) > > 1) Use concise, accurate thread titles. Poor thread titles, like Please > Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice > will not get quick attention or may not be answered. > > 2) Don't post a question in the thread of another member. > > 3) Don't post questions regarding breaking or bypassing any security > measure. > > 4) Acknowledge the responses you receive, good or bad. > > 5) Cross-promotion of, or links to, forums competitive to this forum in > signatures are prohibited. > > NOTE : Don't ever post personal or confidential data in a workbook. Forum > owners and members are not responsible for any loss. > > > ------------------------------------------------------------------------------------------------------ > To post to this group, send email to excel-macros@googlegroups.com > -- FORUM RULES (934+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com
