vba - List folders in directory, with update function -


im trying list of folders in directory. , have button enables update, on list, without re-creating every time. listing new folder not in excel sheet.

this code have working. able search sheet if folder there, if skip it, if not add it. once update completed filter name in column c

sub folder_names_including_subfolder() application.screenupdating = false dim fldpath dim fso object, j long, folder1 object if activesheet.name = "test"     fldpath = "z:\\" elseif activesheet.name = "test1"     fldpath = "y:\\" end if cells(3, 1).value = fldpath cells(4, 1).value = "path" cells(4, 2).value = "dir" cells(4, 3).value = "name" cells(4, 4).value = "folder size" cells(4, 5).value = "date created" cells(4, 6).value = "date last modified" cells(4, 7).value = "codec" set fso = createobject("scripting.filesystemobject") set folder1 = fso.getfolder(fldpath) get_sub_folder folder1 set fso = nothing range("a3").font.size = 9 activewindow.displaygridlines = false range("a3:g" & range("a4").end(xldown).row).font.size = 9 range("a4:g4").interior.color = vbcyan application.screenupdating = true end sub  sub get_sub_folder(byref prntfld object) dim subfolder object, subfld object, j long each subfolder in prntfld.subfolders j = range("a3").end(xldown).row + 1 cells(j, 1).value = subfolder.path cells(j, 2).value = left(subfolder.path, instrrev(subfolder.path, "\")) cells(j, 3).value = subfolder.name cells(j, 4).value = application.worksheetfunction.rounddown((((subfolder.size / 1024) / 1024) / 1024), 2) & " " & "gb" cells(j, 5).value = subfolder.datecreated cells(j, 6).value = subfolder.datelastmodified cells(j, 7).validation         .add type:=xlvalidatelist, alertstyle:=xlvalidalertstop, operator:= _         xlbetween, formula1:="=sheet3!$a$1:$a$5"         .ignoreblank = true         .incelldropdown = true         .inputtitle = ""         .errortitle = ""         .inputmessage = ""         .errormessage = ""         .showinput = true         .showerror = true end next subfolder each subfld in prntfld.subfolders get_sub_folder subfld next subfld columns("c:f").autofit columns("g").columnwidth = 10 end sub

just test before storing material:

for each subfolder in prntfld.subfolders    checkit = subfolder.name    if application.worksheetfunction.countif(range("c:c"), checkit) = 0       j = range("a3").end(xldown).row + 1       cells(j, 1).value = subfolder.path       cells(j, 2).value = left(subfolder.path, instrrev(subfolder.path, "\"))       cells(j, 3).value = subfolder.name       cells(j, 4).value = application.worksheetfunction.rounddown((((subfolder.size / 1024) / 1024) / 1024), 2) & " " & "gb"       cells(j, 5).value = subfolder.datecreated       cells(j, 6).value = subfolder.datelastmodified       cells(j, 7).validation               .add type:=xlvalidatelist, alertstyle:=xlvalidalertstop, operator:= _               xlbetween, formula1:="=sheet3!$a$1:$a$5"               .ignoreblank = true               .incelldropdown = true               .inputtitle = ""               .errortitle = ""               .inputmessage = ""               .errormessage = ""               .showinput = true               .showerror = true       end    end if next subfolder

Comments

Post a Comment

Popular posts from this blog

sublimetext3 - what keyboard shortcut is to comment/uncomment for this script tag in sublime -

Image
i have script tag in code, keyboard shortcut comment/uncomment script tag in sublime. after selecting script open , close tag. <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> i pressing ctrl + shift + / , getting this /*<script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script>*/ also pressed ctrl + / , got this // <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> // </script> instead of <!-- <script src="http://code.jquery.com/jquery-latest.min.js" type="text/javascript"> </script> --> script open , close tag in 2 lines not in 1 line , not have spaces too. for mac,high light lines want comment. hold 'command , / ' commented. for windows: high line or select lines ,then hold ctrl + / if not work: ...
Read more

java - No use of nillable="0" in SOAP Webservice -

i have received xsd 3rd party supplier generated java based system; used create soap endpoint receive data transfers. xsd not make use of nillable attribute defined within w3c/xsd namespace, example: <xs:complextype name="customer"> <xs:sequence> <xs:element minoccurs="1" maxoccurs="1" name="id" type="xs:integer"/> <xs:element minoccurs="0" maxoccurs="1" name="titleid" type="xs:integer"/> <xs:element minoccurs="0" maxoccurs="1" name="firstname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" name="familyname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" name="previousname" type="xs:string"/> <xs:element minoccurs="0" maxoccurs="1" nam...
Read more

ubuntu - Laravel 5.2 quickstart guide gives Not Found Error -

edit: think problem due not setting apache properly, these 2 links helped me. solution: http://laravel.io/forum/06-11-2014-not-found-but-route-exists https://www.digitalocean.com/community/tutorials/how-to-set-up-apache-virtual-hosts-on-ubuntu-14-04-lts end edit i'm following laravel 5.2 quickstart guide. https://laravel.com/docs/5.2/quickstart i'm running ubuntu 14.04.2 the website runs initially, when click on add task button run 404 not found error. as per guide run following commands setup complete quickstart project. git clone https://github.com/laravel/quickstart-basic quickstart cd quickstart composer install php artisan migrate additionally run following commands because i'm on ubuntu server: sudo chown -r www-data.www-data quickstart sudo chmod -r 755 quickstart sudo chmod 777 quickstart/storage the routes.php file looks like: <?php use app\task; use illuminate\http\request; route::group(['middleware' => ['web']]...
Read more