I need an application to file and access files.

Balliol · #1 12-18-2020, 11:11 AM

I hope that my title offers an accurate description of what I am looking for which I will now elaborate on.

I have at least many hundreds of Folders and loose files in my hard drive and that means that it takes far too long to find a particular file. I think that If I copied every file I have onto one document the "Find" mechanism might work but it would be an enormous file.
Is there any software that could offer me help with what I have mentioned?

What do you want to do ?
New mailCopy

Charles Kenyon · #2 12-18-2020, 11:29 AM

Good descriptive file names with dates are your friend. When I add a date I do it in the format YYYY-MM-DD. Naming Files - A System is the Key

You could use Graham Mayor's boiler app to compile your files but I don't know that this is a particularly good idea. Boiler - Insert a selection of documents by Graham Mayor, MVP

If you can add RAM to your computer that will likely help with searches.

macropod · #3 12-18-2020, 06:54 PM

If you just want to create a file list by folder, try:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim StrFolder As String
' Browse for the starting folder
StrFolder = GetTopFolder
If StrFolder = "" Then Exit Sub
StrFolder = StrFolder & "\*.doc"
If UBound(Split(CreateObject("wscript.shell").Exec("Cmd /c Dir """ & StrFolder & """ /B/S").StdOut.ReadAll, vbCrLf)) > 0 Then
  ActiveDocument.Range.Text = CreateObject("wscript.shell").Exec("Cmd /c Dir """ & StrFolder & """ /B/S").StdOut.ReadAll
End If
Application.ScreenUpdating = True
End Sub

Function GetTopFolder() As String
Dim oFolder As Object
GetTopFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetTopFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function

As coded, the above macro finds all Word documents in the chosen folder and its subfolders. For other file types, simply change the '.doc' reference (e.g. '.xls' for all Excel workbooks, '.pdf' for all PDFs).

For PC macro installation & usage instructions, see: Installing Macros

PS: Please update your user profile; I seriously doubt you're running Office 2007 on Windows XP.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
MS Word Error: This file is in use by another application or user	conky	Word	4	02-26-2019 09:21 AM
Inserting pictures in a word document launched from another application	Fritesmodern	Word VBA	2	11-13-2017 02:21 PM
Opening a MS .dot file through ASP.Net application	eljapo4	Word	0	09-14-2012 01:11 AM
Application not found error when trying to open .pdf files.	Dave	Outlook	2	12-15-2005 01:01 PM
access runtime application will not install	markjean	Office	1	12-06-2005 02:15 AM