excel vba - Reading all folders in VBA -


i put following code in excel. script found on net.. 

   sub testlistfolders()         application.screenupdating = false         workbooks.add ' create new workbook folder list         ' add headers         range("a1")             .formula = "folder contents:"             .font.bold = true             .font.size = 12         end         range("a3").formula = "folder path:"         range("b3").formula = "folder name:"         range("c3").formula = "size:"         range("d3").formula = "subfolders:"         range("e3").formula = "files:"         range("f3").formula = "short name:"         range("g3").formula = "short path:"         range("a3:g3").font.bold = true         listfolders "c:\foldername\", true         application.screenupdating = true     end sub  sub listfolders(sourcefoldername string, includesubfolders boolean) ' lists information folders in sourcefolder ' example: listfolders "c:\foldername", true dim fso scripting.filesystemobject dim sourcefolder scripting.folder, subfolder scripting.folder dim r long     set fso = new scripting.filesystemobject     set sourcefolder = fso.getfolder(sourcefoldername)     ' display folder properties     r = range("a65536").end(xlup).row + 1     cells(r, 1).formula = sourcefolder.path     cells(r, 2).formula = sourcefolder.name     cells(r, 3).formula = sourcefolder.size     cells(r, 4).formula = sourcefolder.subfolders.count     cells(r, 5).formula = sourcefolder.files.count     cells(r, 6).formula = sourcefolder.shortname     cells(r, 7).formula = sourcefolder.shortpath     if includesubfolders         each subfolder in sourcefolder.subfolders             listfolders subfolder.path, true         next subfolder         set subfolder = nothing     end if     columns("a:g").autofit     set sourcefolder = nothing     set fso = nothing     activeworkbook.saved = true end sub

the script fails because missing object.

new scripting.filesystemobject

how object's library? there script can use instead, doesnt rely on object?

vba has built-in functions access file system (e.g. dir), they're pretty unpleasant use.

to make code above work, add reference (tools->references) microsoft scripting runtime".


Comments

Post a Comment

Popular posts from this blog

curl - PHP fsockopen help required -

i trying work on cloudflare api , have found in documentation. unfortunately have no idea how can use in fsockopen or through curl. here example of post request. need know how can make request below data post using curl or fsockopen curl https://www.cloudflare.com/api_json.html -d 'a=cache_lvl' \ -d 'tkn=8afbe6dea02407989af4dd4c97bb6e25' \ -d 'email=sample@example.com' \ -d 'z=example.com' \ -d 'v=agg' here link cloudflare https://www.cloudflare.com/docs/client-api.html#s4.2 try one: $ch = curl_init("https://www.cloudflare.com/api_json.html"); curl_setopt($ch, curlopt_returntransfer,1); curl_setopt($ch, curlopt_followlocation, 1); curl_setopt($ch, curlopt_ssl_verifypeer,false); // handling of -d curl parameter here. $param = array( 'a' => 'cache_lvl', 'tkn' => '8afbe6dea02407989af4dd4c97bb6e25', 'email' => 'sample@example.com', 'z' =>
Read more

HTTP/1.0 407 Proxy Authentication Required PHP -

i working in restricted network/limited access internet. since have use proxy make web service call. here php code calling web service , response . $client = new soapclient("http: //www.xyz.com/abc/wsdls/login.wsdl", array("trace" => 1, "exceptions" => 1, 'proxy_host' => $proxy_host, 'proxy_port' => $proxy_port, 'proxy_login' => $proxy_login, 'proxy_password' => $proxy_password)); response is fatal error: uncaught soapfault exception: [wsdl] soap-error: parsing wsdl: couldn't load ' http://www.xyz.com/abc/wsdls/login.wsdl ' : failed load external entity if copy url error message , paste in browser(with same proxy settings) works. 2nd scenario is, if pass values instead of variables giving me diffarant response $client = new soapclient("http: //www.xyz.com/abc/wsdls/login.wsdl", array("trace" => 1, "exceptions" => 1, 'proxy_host'
Read more

c# - Resource not found error -

i have problem accessing method on homecontroller. show code of method : [httpget] public actionresult decriptidentifiantetredirige(string login_crypter, string mdp_crypter) { string loginacrypter = _globalmanager.protegemotdepasse(login_crypter); string mdpacrypter = _globalmanager.protegemotdepasse(mdp_crypter); user userapp = new models.user(login_crypter, mdp_crypter); if (userapp.authentificationvalidee(userapp.userlogin, userapp.password)) { session["name"] = userapp.userlogin; return redirecttoaction("accueil", "home"); } else { return redirecttoaction("validerauthentification", "home"); } } then in routeconfig.cs wrote route : routes.maproute( name: "authentificationapresdecryptage", url: "{controller}/{action}/{login_crypter}/{mdp_crypter}", defaults: new
Read more