Tags Tags

Animate GIF files in Windows Explorer?

June 22nd, 2012 - 02:20 am ET by Peter Jason | Report spam
Help Create a new topic
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
email Follow the discussionReplies 7 repliesReplies Make a reply

Similar topics

Replies

#1 Dave \Crash\ Dummy
June 22nd, 2012 - 05:00 am ET | Report spam
Peter Jason wrote:
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>
'--
Crash

Atheism is a matter of faith, too.
Replies Reply to this message
#2 Peter Jason
June 22nd, 2012 - 09:21 pm ET | Report spam
On Fri, 22 Jun 2012 05:00:19 -0400, "Dave
\"Crash\" Dummy" wrote:

Peter Jason wrote:
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>
'


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
Replies Reply to this message
#3 Dave \Crash\ Dummy
June 22nd, 2012 - 10:07 pm ET | Report spam
Peter Jason wrote:
On Fri, 22 Jun 2012 05:00:19 -0400, "Dave \"Crash\" Dummy"
wrote:

Peter Jason wrote:
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>
'>


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.
Crash

Life is short. Eat dessert first.
Replies Reply to this message
#4 Paul
June 22nd, 2012 - 10:25 pm ET | Report spam
Peter Jason wrote:
On Fri, 22 Jun 2012 05:00:19 -0400, "Dave
\"Crash\" Dummy" wrote:

Peter Jason wrote:
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>
'>


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
Replies Reply to this message
#5 Peter Jason
June 23rd, 2012 - 12:12 am ET | Report spam
On Fri, 22 Jun 2012 22:25:44 -0400, Paul
wrote:

Peter Jason wrote:
On Fri, 22 Jun 2012 05:00:19 -0400, "Dave
\"Crash\" Dummy" wrote:

Peter Jason wrote:
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>
'>>


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




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
Replies Reply to this message
Help Create a new topicNext page Replies Make a reply
Search Make your own search