The problem is that in the scrap window, even if the pictures are grouped together, in reality they still point to their original locations so that a sequential view, only of those ones, cannot be done.
Any solution to this?
Thanks
Moderators: fgagnon, nikos, Site Mods



First, let it be said that I strongly recommend you use wperkins99 suggestion. It's simple, and it works.wperkins99 wrote:...why not activate the Preview Pane (Ctrl-Q) in your Scrap Container and use it?
Code: Select all
Viewer = "C:\Program Files\IrfanView\i_view32.exe"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("WScript.Shell")
Set objEnv = objShell.Environment("Process")
Louis = objEnv("TMP") & "\Daguerreotype"
if objFSO.FolderExists(Louis) then objFSO.DeleteFolder Louis, True
objFSO.CreateFolder(Louis)
Start = ""
for param = 0 to Wscript.Arguments.Count - 1
strName = objFSO.GetFileName(Wscript.Arguments(param))
Select Case LCase(Right(strName,4))
case ".png", ".jpg", ".bmp"
strName = "" & Right("0" & CStr(param), 2) & "_" & strName
if (Start = "") then Start = strName
objFSO.CopyFile Wscript.Arguments(param), Louis & "" & strName
end select
next
objShell.Run """" & Viewer & """" & Louis & "" & Start & """", 1, True
objFSO.DeleteFolder Louis, TrueCode: Select all
> wscript "C:\Scripts\PicView.vbs" $A



The only reason I can think no JPG's would be included is that their extensions may be .JPEG instead? Other than that, I have no idea. Just in case I took out that "safety filter" for filetypes in the script below, so there's no reason it shouldn't work.CrossX wrote:no jpg is copied inside
Done. This just creates Daguerreotype.txt in your temp folder, and feeds it to Irfan (thanks Frizzle). Simple. As I mentioned, no checks are done for filetypes, so be careful what you select - Irfan doesn't digest other stuff well.CrossX wrote:Could Kilmatead create the proper script?
Code: Select all
Viewer = "C:\Program Files\IrfanView\i_view32.exe"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set Shell = CreateObject("WScript.Shell")
Set objEnv = Shell.Environment("Process")
Louis = objEnv("TMP") & "\Daguerreotype.txt"
Set outFile = objFSO.CreateTextFile(Louis, True)
for param = 0 to Wscript.Arguments.Count - 1
outFile.WriteLine(Wscript.Arguments(param))
next
outFile.Close
Shell.Run """" & Viewer & """" & " /filelist=" & """" & Louis & """" , 1, True
objFSO.DeleteFile Louis, True






Perfect!Kilmatead wrote:Yeah, that would do it - x2 doesn't pass the $-tokens in interpreted form via the built-in command line, so the script never received the list of selected files as it should have. You could have just run it from the Customize -> User Commands drop-down instead.
Once the user-command is defined (Customize -> User Commands -> Add New), you just Right-click on a toolbar (any toolbar, including scrap windows) and select Customize... from the context menu that appears.
Then find the new command by name from the long list of Bookmarks, Commands, etc that opens up on the left (for convenience, repeatedly type the first-letter of the name you want until it shows up). Just select it, click "Add" and Bob's your uncle.

Sometimes it is quicker to use the command line to run repetitive stuff since you can access the command line history with Ctrl-F10... no need for rodent useKilmatead wrote:Hmm... rather odd - I just tried it again myself from the command line and it works now - but it definitely didn't work last night, whatever I was doing.That's what I get for never using the command bar - so much easier to just use buttons for repetitive tasks. Apparently tokens are translated via the bar - learn something new every day.