Animate GIF files in Windows Explorer?

P

Peter Jason

I have Win7 SP1 and I have a collection of GIF
files that I store in Explorer. To animate these
I have to use some other software such as Firefox
or IrfanView.

How can I animate them all at once in Windows
Explorer?

Peter
 
D

Dave \Crash\ Dummy

Peter said:
I have Win7 SP1 and I have a collection of GIF files that I store in
Explorer. To animate these I have to use some other software such
as Firefox or IrfanView.

How can I animate them all at once in Windows Explorer?
I don't know of any way to have Explorer run animations directly, but
until something better comes along, you could put the script below in
any folder containing animated gif's and run it whenever you want to see
the animations in action. It ain't fancy, but it works.

'====================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>
'==============================================
 
P

Peter Jason

I don't know of any way to have Explorer run animations directly, but
until something better comes along, you could put the script below in
any folder containing animated gif's and run it whenever you want to see
the animations in action. It ain't fancy, but it works.

'====================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>
'==============================================
I get this from a site....

***


Creating, Saving, and Running Scripts

Unlike scripts in web pages, a Kirix Strata™
script is not embedded inside HTML markup.
Instead, they are simply standalone text files
that contain JavaScript that can be executed
inside Strata as a program, or rolled up into
extensions that execute when Strata runs.

To create a new script that shows a message:

Go to the File menu and select New->Script,
which will open a new text editor without any
script.
In the script editor, enter the the following
command

alert("test");

To save this script to the project and run it:

Go to the File menu and select “Save As”.
In the project “Save As” dialog, enter the
name “Test_script”, then press “Save”.
Then, while the script is open, run it by
either selecting Run/Script Query from the Tools
menu, or pressing Alt-Enter hotkey to issue a
keyboard command to run the script.

While we saved this script in the project, we
could also have saved it to the file system. To
save this script to the filesystem:

Go to the File menu, and select “Save As
External”
Then, save the script as you would any other
file on your system.

****

Where do I "go to the Find Menu and select New-->
script." ?

Peter
 
D

Dave \Crash\ Dummy

Peter said:
I get this from a site....

***


Creating, Saving, and Running Scripts

Unlike scripts in web pages, a Kirix Strata™ script is not embedded
inside HTML markup. Instead, they are simply standalone text files
that contain JavaScript that can be executed inside Strata as a
program, or rolled up into extensions that execute when Strata runs.

To create a new script that shows a message:

Go to the File menu and select New->Script, which will open a new
text editor without any script. In the script editor, enter the the
following command

alert("test");

To save this script to the project and run it:

Go to the File menu and select “Save As”. In the project “Save As”
dialog, enter the name “Test_script”, then press “Save”. Then, while
the script is open, run it by either selecting Run/Script Query from
the Tools menu, or pressing Alt-Enter hotkey to issue a keyboard
command to run the script.

While we saved this script in the project, we could also have saved
it to the file system. To save this script to the filesystem:

Go to the File menu, and select “Save As External” Then, save the
script as you would any other file on your system.

****

Where do I "go to the Find Menu and select New--> script." ?
Not my department. I posted a complete, standalone script that will run
in Windows without any third party gadgets. Use it or don't.
 
P

Paul

Peter said:
I get this from a site....

***


Creating, Saving, and Running Scripts

Unlike scripts in web pages, a Kirix Strata™
script is not embedded inside HTML markup.
Instead, they are simply standalone text files
that contain JavaScript that can be executed
inside Strata as a program, or rolled up into
extensions that execute when Strata runs.

To create a new script that shows a message:

Go to the File menu and select New->Script,
which will open a new text editor without any
script.
In the script editor, enter the the following
command

alert("test");

To save this script to the project and run it:

Go to the File menu and select “Save As”.
In the project “Save As” dialog, enter the
name “Test_script”, then press “Save”.
Then, while the script is open, run it by
either selecting Run/Script Query from the Tools
menu, or pressing Alt-Enter hotkey to issue a
keyboard command to run the script.

While we saved this script in the project, we
could also have saved it to the file system. To
save this script to the filesystem:

Go to the File menu, and select “Save As
External”
Then, save the script as you would any other
file on your system.

****

Where do I "go to the Find Menu and select New-->
script." ?

Peter
1) Start Notepad.
2) Paste Dave's script into the Notepad window.

'====================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>
'==============================================

3) Go to File : Save As and save the file as "animator.hta".
Put it somewhere, where you'll find it.

4) Then, go test your new file and see what happens.
I think the idea is, that file goes where the .gif files
are located. Try putting it in the folder with the GIFs.
Then click it and see what it does...

And no, I didn't test it. That's your job.

Paul
 
P

Peter Jason

1) Start Notepad.
2) Paste Dave's script into the Notepad window.

'====================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>
'==============================================

3) Go to File : Save As and save the file as "animator.hta".
Put it somewhere, where you'll find it.

4) Then, go test your new file and see what happens.
I think the idea is, that file goes where the .gif files
are located. Try putting it in the folder with the GIFs.
Then click it and see what it does...

And no, I didn't test it. That's your job.

Paul

Thanks Paul; after much initial angst because I
left out the dotted lines and the "'", it's now
working perfectly. Will wonders never cease?
Peter
 
P

Peter Jason

Not my department. I posted a complete, standalone script that will run
in Windows without any third party gadgets. Use it or don't.
Thank you very much. I finally figured it out.
Peter
 
D

Dave \Crash\ Dummy

Peter said:
On Fri, 22 Jun 2012 22:25:44 -0400, Paul
Thanks Paul; after much initial angst because I
left out the dotted lines and the "'", it's now
working perfectly. Will wonders never cease?
The dotted lines are expendable; the quotes aren't.
 
Joined
Oct 6, 2012
Messages
34
Reaction score
0
I don't know of any way to have Explorer run animations directly, but
until something better comes along, you could put the script below in
any folder containing animated gif's and run it whenever you want to see
the animations in action. It ain't fancy, but it works.

'====================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>
'==============================================
--
Crash
thnx for this! One small request (if possible, i'm a nobody at this stuff). would it be too much to ask for a modification of this script so that the filenames will also display next (or under/over/inside ...) to the gif?

-thnx
 
Joined
Nov 26, 2018
Messages
1
Reaction score
0
There are some errors in that script. Below is a version that worked for me. It also prints the file names.

It does not perform very well though. The frame rate is very slow, if if only one files is shown. It's better to just open them in a browser.

'====================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 "<br><img src=""" & file.name & """><br>"
document.write file.name &"<br><br>"
end if
next
</script></body></html>
'==============================================
 

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