Tiedostonvalintadialogi vbscriptille

simpleGUI

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.

7

216

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • simpleGU

      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.

      • simpleGU

        vbs- sripti on kansiossa "qpdf-5.1.2", jossa kansiossa on kansio "bin" (ja siellä "qpdf.exe").


      • simpleGUI
        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.


      • SimpleGUI

        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
        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
        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
        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)

        ***********************


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Niin surullinen

      onnettomuus taas. Voimia ihan kaikille läheisille,kavereille ja kouluun 🙏
      Lapua
      122
      3481
    2. Kehutaan vaihteeksi Perussuomalaisia

      Perussuomalaiset ovat olleet melkoisen lokakampanjoinnin kohteena, vaikka ovat saaneet paljon hyvää aikaiseksi. Nyt on
      Maailman menoa
      128
      2556
    3. Paloautoko se oli kolarissa Juntusrannan risteyksessä?

      Oli kuva paloautosta nettijutussa.
      Suomussalmi
      24
      2106
    4. SDP ylivoimainen ykkönen

      En ole koskaan viitsinyt käydä äänestämässä, mutta nyt SDP:n etumatka on niin kutkuttava, että pakkohan se on vaivautua.
      Maailman menoa
      9
      1956
    5. Roiskeläpät takaisin niin alkaa lasit kestämään

      "Tuulilaseja hajottava talvi-ilmiö on ehkä ratkennut" Tämän päivän autoissa kun on esimerkiksi vanhempaa autokalustoa s
      Yleistä autoilusta
      24
      1580
    6. Mitä tapahtuu?

      Mitä säpäkän risteyksessä on tapahtunut kun poliiseja, ambulansseja ja kopteri paikalla?
      Outokumpu
      29
      1560
    7. Tiesitkö? Johannes Brotheruksen ex-isäpuoli on kuin onkin Mikko Kuustonen - Tästä on kyse!

      Tiesitkö? Ja hehän on kuin kaksi marjaa... Johannes Brotherus on KUUMAA-yhtyeen jäsen ja tänä syksynä mukana Vain elämää
      Suomalaiset julkkikset
      15
      1535
    8. Murtautuminen uimahalliin

      17.10. yöllä Kiuruveden uimahalliin murtauduttiin yläkerran oven ikkunasta. Onko kellään havaintoja tapauksesta?
      Kiuruvesi
      29
      994
    9. siis ihan oikeesti

      Tämä on naurettavaa
      Ikävä
      87
      952
    10. Mitä tarkalleen tunnet

      Minkälaisia tunteita sisälläsi liikkuu, kun tiedät, että ajattelen sinua lämmöllä ja jotain syttyy myös sinussa? Haluai
      Ikävä
      63
      900
    Aihe