vba - Count files in folder and subfolders, exlucing folders with string -


given folder tree:

c:\example\ c:\example\2014-01-01\ c:\example\2014-01-01\entered\ c:\example\2014-01-02\ c:\example\2014-01-02\entered etc.

i want count pdf files in tree, excluding in "entered\" subfolders.

is possible vba? count needs spit out onto excel sheet.

copy code in excel-vba module. if want use button should use cntfiles() on button. if don't want use button can use fcount(strpath) formula on worksheet i.e =fcount("your-path"), parameter string make double-quoted when using on worksheet.

function fcount(strpath)     dim fcnt integer     fcnt = showfolderlist(strpath)     fcount = fcnt end function  sub cntfiles()     dim strpath string     strpath = "a:\asif\answers\abc"     showfolderlist (strpath) end sub  function showfolderlist(path)     dim fso, folder, subflds, fld     dim tfiles integer      tfiles = showfileslist(path)      set fso = createobject("scripting.filesystemobject")     set folder = fso.getfolder(path)     set subflds = folder.subfolders      each fld in subflds         if fld.name = "entered"             goto skipfld:         else             path = fld.path             tfiles = tfiles + showfileslist(path)         end if skipfld:     next      'msgbox tfiles & " files"     showfolderlist = tfiles end function  function showfileslist(folderspec)    dim fso, f, f1, fc, s    dim cnt integer     set fso = createobject("scripting.filesystemobject")     set f = fso.getfolder(folderspec)    set fc = f.files          each f1 in fc              if getanextension(f1) = "pdf"                 cnt = cnt + 1             else              end if          next     showfileslist = cnt end function  function getanextension(drivespec)    dim fso    set fso = createobject("scripting.filesystemobject")    getanextension = fso.getextensionname(drivespec) end function

this code count files in specified folder sub-folders excluding folder named "entered" specified.


Comments

Post a Comment

Popular posts from this blog

android - Get AccessToken using signpost OAuth without opening a browser (Two legged Oauth) -

i using signpost oauth access data magento server. have read various tutorials on same , reach point open browser user can enter credentials. however, per requirement have automate part. hence, user should not browser page. have set-up done on server side ( magento ), hit url , returned call page. same through program in android. i have tried below, consumer = new commonshttpoauthconsumer(key, secret); provider = new commonshttpoauthprovider(oauth_init_url,access_token_url, authorize_url); try { provider.retrieverequesttoken(consumer, oauth.out_of_band); log.d("tokens" , consumer.gettoken() + " -- " + consumer.gettokensecret()); } and request tokens. dont know how bypass next step. tried directly accessing accesstoken (stupid of me) provider.retrieveaccesstoken(consumer, "mycallback://callback"); no luck, ends in oauth.signpost.exception.oauthnotauthorizedexception: authorization failed (server replied 401). ...
Read more

org.mockito.exceptions.misusing.InvalidUseOfMatchersException: mockito -

getting error org.mockito.exceptions.misusing.invaliduseofmatchersexception: invalid use of argument matchers! 1 matchers expected, 2 recorded. exception may occur if matchers combined raw values: //incorrect: somemethod(anyobject(), "raw string"); when using matchers, arguments have provided matchers. example: //correct: somemethod(anyobject(), eq("string matcher")); at when( getprogramservice .callservice(any(getprogramtype.class))) .thenreturn(jaxbresponse); please explain error , possible resolution the code posted looks fine; don't see problem it. code before or above causing exception. key here: invalid use of argument matchers! 1 matchers expected, 2 recorded. any , used above, doesn't return "special kind of null" or "special kind of getprogramtype"; don't exist. instead, returns null , side effect puts matcher on stack. whe...
Read more

google shop client API returns 400 bad request error while adding an item -

i'm working on solution add items in google shopping market java application. following tutorial real mess because of missing classes of laste release, after setting 1.5-beta maven managed make base example typecheck correctly classes. still can make simple task of adding 1 item. instead of posting whole code i'm posting part creates product feed. private product createproduct(string id) { product product = new product(); product.title = "red wool sweater"; product.content = new content( "text", "comfortable , soft, sweater keep warm on " + "cold winter nights. red , blue stripes."); product.appcontrol = new appcontrol(); product.appcontrol.addrequireddestination("productads"); product.externalid = id; product.lang = "it"; product.country = "it"; product.condition = "nuovo"; product.price = new price("eu...
Read more