Tiedostonvalintadialogi vbscriptille

Miten saisi selattua ja valittua tiedoston Windowsin selaus dialogista vbscriptistä.

Tarkoitus olisi saada suoritettua qpdf.exe niin että voisi antaa sille avattavan pdf tiedoston nimi hiirellä windowsin selausikkunasta. Eli vbscriptilla tiedoston valinta ja välitys exe-ohjelmalle.
Ilmoita


Rankasti googlettamalla ja yrityserehdys-menetelmällä
***********************************************************************************
Dim objDialog
Set objDialog = CreateObject("MSComDlg.CommonDialog")
With objDialog
.Filter = "*.pdf"
' .InitDir = "C:"
.MaxFileSize = 256
.Flags = &H80000 &H4 &H8
End With

objDialog.ShowOpen

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run ".\bin\qpdf.exe " & chr(34) & objDialog.FileName & chr(34) & " " & chr(34) & objDialog.FileName & "avattu.pdf" & chr(34)

***********************************************************************************
Olis kyllä hyvä opetella mutta kun ei koskaan riitä kärsivällisyys.
6 VASTAUSTA:
vbs- sripti on kansiossa "qpdf-5.1.2", jossa kansiossa on kansio "bin" (ja siellä "qpdf.exe").
simpleGU kirjoitti:
vbs- sripti on kansiossa "qpdf-5.1.2", jossa kansiossa on kansio "bin" (ja siellä "qpdf.exe").
Jotta alkuperäinen tarkoitus tulee ohjelmalla niin pitää tietysti olla decrypt mukana

WshShell.Run ".\bin\qpdf.exe " & " " & "--decrypt" & " " & chr(34) & objDialog.FileName & chr(34) & " " & chr(34) & objDialog.FileName & "avattu.pdf" & chr(34)

Tää selostus menee samalla tavalla kuin ongelman ratkaisukin: tipotellen.

Tuosta puuttuu vielä virheenkäsitelly kokonaan.
ActiveX component can't create object."MSComDlg.CommonDialog"
Code:800A01AD

Eipä toimi joka koneessa. Koneissa joissa toimi on asennettu jokin ohjelma. Yhdessä koneessa on ainakin joskus ollut asennettuna Visual Studio.

Onko sellaista vaihtoetoa joko toimisi kaikissa Windows 7/Vista/8 koneissa?
Ettei tarvitse asentaa mitään koneeseen jossa käyttää skriptiä.
SimpleGUI kirjoitti:
ActiveX component can't create object."MSComDlg.CommonDialog"
Code:800A01AD

Eipä toimi joka koneessa. Koneissa joissa toimi on asennettu jokin ohjelma. Yhdessä koneessa on ainakin joskus ollut asennettuna Visual Studio.

Onko sellaista vaihtoetoa joko toimisi kaikissa Windows 7/Vista/8 koneissa?
Ettei tarvitse asentaa mitään koneeseen jossa käyttää skriptiä.
Tämä toimii seiskassa mutta kasissa ontaa kummallisen virheen "Määrittämätön virhe 80004005 rivi 3 merkki 1 eli rivin "Set file = shell.BrowseForFolder(0, "Choose a file:", &H4000,17)" alkuun.

**************
Dim shell
Set shell = CreateObject("Shell.Application")
Dim file
Set file = shell.BrowseForFolder(0, "Choose a file:", &H4000,17)
BrowseForFile = file.self.Path

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ".\bin\qpdf.exe " & " " & "--decrypt" & " " & chr(34) & BrowseForFile & chr(34) & " " & chr(34) & BrowseForFile & "avattu.pdf" & chr(34)*****

***************************
On vaikeeta kun mikä toimii xp:ssä ei toimi vistasta ylöpäin ja mikä toimii seiskassa ei toimi enää kasissa.
SimpleGUI kirjoitti:
Tämä toimii seiskassa mutta kasissa ontaa kummallisen virheen "Määrittämätön virhe 80004005 rivi 3 merkki 1 eli rivin "Set file = shell.BrowseForFolder(0, "Choose a file:", &H4000,17)" alkuun.

**************
Dim shell
Set shell = CreateObject("Shell.Application")
Dim file
Set file = shell.BrowseForFolder(0, "Choose a file:", &H4000,17)
BrowseForFile = file.self.Path

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ".\bin\qpdf.exe " & " " & "--decrypt" & " " & chr(34) & BrowseForFile & chr(34) & " " & chr(34) & BrowseForFile & "avattu.pdf" & chr(34)*****

***************************
On vaikeeta kun mikä toimii xp:ssä ei toimi vistasta ylöpäin ja mikä toimii seiskassa ei toimi enää kasissa.
Siis rivi 4 eikä 3
SimpleGUI kirjoitti:
Tämä toimii seiskassa mutta kasissa ontaa kummallisen virheen "Määrittämätön virhe 80004005 rivi 3 merkki 1 eli rivin "Set file = shell.BrowseForFolder(0, "Choose a file:", &H4000,17)" alkuun.

**************
Dim shell
Set shell = CreateObject("Shell.Application")
Dim file
Set file = shell.BrowseForFolder(0, "Choose a file:", &H4000,17)
BrowseForFile = file.self.Path

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run ".\bin\qpdf.exe " & " " & "--decrypt" & " " & chr(34) & BrowseForFile & chr(34) & " " & chr(34) & BrowseForFile & "avattu.pdf" & chr(34)*****

***************************
On vaikeeta kun mikä toimii xp:ssä ei toimi vistasta ylöpäin ja mikä toimii seiskassa ei toimi enää kasissa.
Tämä tomii mutten käsitä sitä
*****************'''
BrowseForFile = Replace(CreateObject("WScript.Shell").Exec("mshta.exe ""about:FILE.click();new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);close();moveTo(-32000,-32000);""").StdOut.ReadAll, vbCrLf, "")

Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.Run ".\bin\qpdf.exe " & " " & "--decrypt" & " " & chr(34) &_
BrowseForFile & chr(34) & " " & chr(34) & BrowseForFile & "avattu.pdf" & chr(34)

***********************
+Lisää kommentti

Vastaa alkuperäiseen viestiin

Tiedostonvalintadialogi vbscriptille

Miten saisi selattua ja valittua tiedoston Windowsin selaus dialogista vbscriptistä.

Tarkoitus olisi saada suoritettua qpdf.exe niin että voisi antaa sille avattavan pdf tiedoston nimi hiirellä windowsin selausikkunasta. Eli vbscriptilla tiedoston valinta ja välitys exe-ohjelmalle.

5000 merkkiä jäljellä

Peruuta