excel vba - VBA - Get the Second-Last modified file (FSO) without built-in functions -

-

i'm trying 1 before last modified file in folder using excel vba, have managed last modified file, couldn't second one. herein below code used last modified file, without using system functions or built-in function.

sub lastfilemodified()      dim fso new scripting.filesystemobject     dim fill scripting.file       dim integer     dim forstep integer      dim arr() variant      redim arr(fso.getfolder("c:\users\shahim\desktop\xxxx").files.count - 1, 1) variant    = 0  each fill in fso.getfolder("c:\users\shahim\desktop\xxxx").files      arr(i, 0) = fill.name     arr(i, 1) = cdbl(fill.datelastmodified)      = + 1  next fill   dim filename string dim initializer double  initializer = arr(0, 1)  forstep = lbound(arr) ubound(arr)           if arr(forstep, 1) > initializer          initializer = arr(forstep, 1)         filename = arr(forstep, 0)          end if    next forstep  debug.print filename  erase arr  end sub 

sub secodlastmodified()      const fldr_path string = "c:\test"      dim long, j long, filearr() string, maxfiles long     dim fso variant, fldr variant, f variant, l1 string, l2 string      set fso = createobject("scripting.filesystemobject")     set fldr = fso.getfolder(fldr_path)     maxfiles = fldr.files.count     redim filearr(1 maxfiles, 1 2)      = 1     each f in fldr.files         filearr(i, 1) = f.name         filearr(i, 2) = f.datelastmodified         = + 1     next     = 1 maxfiles         j = + 1 maxfiles             if filearr(j, 2) > filearr(i, 2)                 l1 = filearr(i, 2)                 l2 = filearr(i, 1)                 filearr(i, 2) = filearr(j, 2)                 filearr(i, 1) = filearr(j, 1)                 filearr(j, 2) = l1                 filearr(j, 1) = l2             end if         next     next     msgbox filearr(2, 1) end sub

Comments

Post a Comment

Popular posts from this blog

dns - How To Use Custom Nameserver On Free Cloudflare? -

-
i have problem. i own small hosting company. trying add cloudflare site free cdn. problem when sign have change nameservers nameservers. have nameserver dns set through godaddy, how add them cloudflare? main site uses company's nameservers whenever add them site goes offline. when go cloudflare's dns records click on dropdown, click ns, , there's 2 boxes 'name' , 'nameserver'. mean input 'ns1' 'name' , 'ns1.domain.com' 'nameserver'? input server's ip addresses? is there way of accomplishing free version of cloudflare? that impossible. option have custom name servers available on business , enterprise. see https://www.cloudflare.com/plans . also, might mistaken. must change name servers in domain register settings, not on cloudflare.
Read more

python - Pygame screen.blit not working -

-
in program creating in python/pygame, screen.blit not working. in other programs have made, screen.blit works. error: traceback (most recent call last): file "c:...\main.py", line 46, in <module> screen.blit(sight.image, sight.rect) attributeerror: 'int' object has no attribute 'blit' the error in question caused screen variable being allocated integer instead of pygame.surface() object.perhaps accidentally rewrote variable somewhere? from can make of doing, seems stating position of blit full rect instead of coordinate. when do: screen.blit(sight.image,sight.rect) what program seeing is: screen.blit(sight.image,(sight.rect.x,sight.rect.y,sight.rect.width,sight.rect.height)) i assuming don't intend this. remember rect object consists of position, width , height. to correct code, put (sight.rect.x,sight.rect.y) location goes instead this: screen.blit(sight.image,(sight.rect.x,sight.rect.y)) the .x , .y corres
Read more

c# - Web API response xml language -

-
i having simple post url clients send post request. http://mydomain.com/requests/request post data: <request> <orderid>1e008921</orderid> <ordername>mc1</ordername> </request> to respond sending them xml <srequest> <requestedby>client 1 </requestedby> <requestname>test name</requestname> <requeststatus>success</requeststatus> <srequest> now client wants above xml in different language (say french ) how handle ? how send response language preference in web api ? specially post scenario ? (append language string ? or best practices ?) i suggest either include in url: http://mydomain.com/fr/requests/request or use http header accept-language . read more in answer to: good way changing language resources dynamically request
Read more