Animate GIF files in Windows Explorer?

Discussion in 'alt.windows7.general' started by Peter Jason, Jun 22, 2012.

  1. Peter Jason

    Peter Jason Guest

    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
     
    Peter Jason, Jun 22, 2012
    #1
    1. Advertisements

  2. 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>
    '==============================================
     
    Dave \Crash\ Dummy, Jun 22, 2012
    #2
    1. Advertisements

  3. Peter Jason

    Peter Jason Guest

    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
     
    Peter Jason, Jun 23, 2012
    #3
  4. Not my department. I posted a complete, standalone script that will run
    in Windows without any third party gadgets. Use it or don't.
     
    Dave \Crash\ Dummy, Jun 23, 2012
    #4
  5. Peter Jason

    Paul Guest

    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
     
    Paul, Jun 23, 2012
    #5
  6. Peter Jason

    Peter Jason Guest


    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
     
    Peter Jason, Jun 23, 2012
    #6
  7. Peter Jason

    Peter Jason Guest

    Thank you very much. I finally figured it out.
    Peter
     
    Peter Jason, Jun 23, 2012
    #7
  8. The dotted lines are expendable; the quotes aren't.
     
    Dave \Crash\ Dummy, Jun 23, 2012
    #8
  9. Peter Jason

    MourningStar

    Joined:
    Oct 6, 2012
    Messages:
    33
    Likes Received:
    0
    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
     
    MourningStar, Oct 6, 2012
    #9
  10. Peter Jason

    manok

    Joined:
    Nov 26, 2018
    Messages:
    1
    Likes Received:
    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>
    '==============================================
     
    manok, Nov 26, 2018
    #10
    1. 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 (here). After that, you can post your question and our members will help you out.