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.
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.
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.
***********************************************************************************
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.
Parannamme palvelua
simpleGU
15.6.2014 20:47
simpleGUI
15.6.2014 21:13
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.
SimpleGUI
16.6.2014 13:21
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
16.6.2014 14:32
**************
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
16.6.2014 14:33
SimpleGUI
16.6.2014 15:30
*****************'''
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)
***********************