performance - efficient directory traversal for archivable folders -



performance - efficient directory traversal for archivable folders -

there file server have been asked clean (pentium 4! 512 meg of ram!!). gets files added directory construction consists of few provinces, within each province directory town directories, within each town directory are 'newspaper' directories, within each paper directory 'story' directories, , within each story directory are files named string consisting of topic , date. each file looks this: water poisons yak 2013-04-11.doc, malaria peak 2012-01-05, etc. have filter collection story directories inactive (no contributions within 3 years). collection filtered 1 time month. 1000 new files added every month. collection has 80,000 files.

my solution run through each story directory , check name of each file this:

sub loopthroughfiles(storyfolder) dim myobj object, mysource object, file variant file = dir(storyfolder) while (file <> "") if (instr(file, "2013") or instr(file, "2014") > 0) msgbox "recent file found. move on next directory" recentdir = true exit sub end if file = dir wend end sub

this checks if year 2013 or 2014 in filename. if years not found,then run through story folder 1 time again checking year 2012 , month in similar way. if month more recent current 1 not found, whole story directory moved. in visual basic, accomplished changing pathname of every file in particular story directory. means run through story folder 1 time again (a 3rd time), time assigning different pathname each file.

my question has right design of algorithm efficient. know if folder can archived, filenames of contents have inspected. if loop through whole collection in origin , load array (to create subsequent searches faster ) need ton of memory. on other hand, looping through each directory 3 times seems wasteful. sense question should have been solved ask.

although have utilize visual basic, principles behind question fundamental , applicable language. not hesitate reply in computer language (in english language though).

performance vba directory-structure

Comments

Post a Comment

Popular posts from this blog

Delphi change the assembly code of a running process -

Delphi change the assembly code of a running process - i'm trying alter address 00741fa5 has push test.009e721c . alter push test.009e71c8 . procedure callback; asm force $9e71c8 end; procedure tform2.btn1click(sender: tobject); var ppid :dword; pprocess : cardinal; begin getwindowthreadprocessid(findwindow(nil,pchar('test')), @ppid); pprocess := openprocess(process_all_access, false, ppid); injectasm(pprocess, $741fa5, 10, integer(@callback), 0); end; here injectasm function (with error checking) function injectasm(process: longword; injectaddress, injectsize, codeaddress, codesize : integer): pointer; var csize, rsize : integer; replaced : array of byte; jmp : array [0..4] of byte; jmpaddress : integer; nopv : byte; : integer; nbr: ulong_ptr; begin //injectsize must equal or greater 5, because need space our //(far) jmp wwxxyyzz instruction //if there's no space, inject in place of few instructions if injectsize ...
Read more

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) -

json - Hibernate and Jackson (java.lang.IllegalStateException: Cannot call sendError() after the response has been committed) - hello have problem hibernate , jackson. have 2 pojos @entity @table(name = "users") public class user implements serializable { static final long serialversionuid = 4235637833262722256l; @id @generatedvalue private int id; @column(name = "creation_date") private date creationdate; @column(name = "first_name") private string firstname; @column(name = "last_name") private string lastname; @version @column(name = "version") private int version; @column(name = "e_mail") private string email; @column(name = "enabled") private boolean enabled; @column(name = "login") private string login; @column(name = "password") private string password; @jsonmanagedreference("role") @onetomany(mappedby = "user", cascade = cascadetype.all,fetch = fetchtyp...
Read more

C++ 11 "class" keyword -

C++ 11 "class" keyword - i've started using c++ 11 little bit more , have few questions on special uses of class keyword. know it's used declare class, there's 2 instances have seen don't understand: method<class t>(); and class class_name *var; why precede typename keyword class in first example, , keyword pointer in sec example? that known elaborated type specifier , necessary when class name "shadowed" or "hidden" , need explicit. class t { }; // love of god don't t t; t t2; if compiler smart, give these warnings: main.cpp:15:5: error: must utilize 'class' tag refer type 't' in scope t t2; ^ class main.cpp:14:7: note: class 't' hidden non-type declaration of 't' here t t; ^ if class not defined, deed forwards declaration. for example: template <typename t> void method() { using type = typename t::value_type; } method...
Read more