SOLVED Animate All GIF files in Windows Explorer?


Joined
Oct 6, 2012
Messages
34
Reaction score
0
I have a folder with a ton of animated gifs. When I open this folder I desire all of the icons to display with the animations cycling. Someone I am unable to contact wrote the following script as a not too fancy, but definitely clean and functioning workaround :

'====================animator.hta=================
<html><head><title>Animator</title></head>
<body><script type="text/vbs">
set fso=CreateObject("Scripting.FileSystemObject")
set fldr=fso.GetFolder(".")
for each file in fldr.files
if lcase(right(file.name,4))=".gif" then
document.write "<img src=""" & file.name & """>"
end if
next
</script></body></html>
'==============================================

unless someone knows of another utility that will display the win explorer contents as desired, this works for me. However, I would like to know if someone is able to modify this script so that the filenames will also display next (or under/over/inside ...) to the gif.

thnx
 
Ad

Advertisements

TrainableMan

^ The World's First ^
Moderator
Joined
May 10, 2010
Messages
9,321
Reaction score
1,584
It's not pretty but you can insert this line just after the current document.write:
document.write file.name & "& #160;& #160;& #160;& #160;& #160;& #160;"
(remove the space between each "&" and "#160" ... I couldn't here or this webpage immediately converts it to spacing just like what I want it to do when you run your script)

Here is the script zipped if you prefer...
View attachment _aniscript.zip
 
Last edited:
Ad

Advertisements


Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top