Hi
i still use iview because i love it
well but there some bugs
one is the 8+3 files names and often the helper application don't work perfectly
so i use this script
but i
need helpmay i add in the script to ability to run a program with a command line
well there is a script to send to photoshop
but for example to send to geosetter (it's only an example) with a command line geosetter.exe /Edit
how can i edit to script to accept a command line
i mean if i substitute "C:\Programs\Adobe\Adobe Photoshop CS3\Photoshop.exe" with "C:\Programs\geosetter\geosetter.exe" /edit it doesn't work
Option Explicit
Const Title = "Photoshop cs3"
Const appEditor = "C:\Programs\Adobe\Adobe Photoshop CS3\Photoshop.exe"
Const maxcmd = 8192
Dim fso, app, file, ext, sh, cmd, skipped, selected
Set app = CreateObject("iView.Application")
If (app.Catalogs.count > 0) Then
If (app.ActiveCatalog.Selection.Count = 0) Then
MsgBox "Select at least one raw file", vbCritical, Title
Else
skipped = 0 : selected = 0 : cmd = """" & appEditor & """"
For Each file In app.ActiveCatalog.Selection
If file.Mounted Then
selected = selected+1
cmd = cmd & " """ & file.Path & """"
Else
skipped = skipped+1
End If
Next
If Len(cmd) >= maxcmd Then
MsgBox "Too many files selected", vbCritical, Title
ElseIf selected > 0 then
Set app = Nothing
If skipped > 0 Then
MsgBox "Some selected items are not available" & vbCrLf & _
"online and will be ignored", vbExclamation, Title
End If
Set sh = CreateObject("wscript.shell")
sh.Exec cmd
Set sh = Nothing
Else
MsgBox "No selected files are online", vbCritical, Title
End If
End If
End If