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

243

Äänestä

    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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Vesikin maksaa, miksei hengitysilma?

      Jatkuvasti itketään ettei ole rahaa mihinkään, mutta tilastojen mukaan rahaa on enemmän kuin koskaan, joten miksei asial
      Maailman menoa
      31
      1935

    2. Satuolennoista tarinointi ei kuulu peruskoulun tehtäviin

      Opetustunteja on muutenkin käytössä vain rajallinen määrä. Eli nämä satuhommat koulun ulkopuolelle vapaaehtoisiin harras
      Maailman menoa
      165
      1890

    3. Suomalainen perheenisä vaatii Suvivirren esittämisestä hyvityksiä

      Itse lapsena uskonnonopetuksesta vissiin traumoja saanut ihka suomalainen (!) perheenisä vaatii Espoon kaupungilta korva
      Maailman menoa
      379
      1773

    4. Mies profiloin sinut

      Etsit täysin hallittavaa mutta samalla poikkeuksellista ihmistä. Etsit jotain mitä et koskaan tule saamaan.
      Ikävä
      216
      1248

    5. Lahkokasteen ja kristillisen kasteen erot

      Raamatun mukaan Kristillisessä yhdessä kasteessa Jumala pesee ja puhdistaa ihmisen sydämen ja poistaa perisynnin kirouks
      Kaste
      422
      1158

    6. Känsäkoura ja hotelli

      Tietoa kuka ostanut?
      Kuhmo
      12
      1131

    7. Nostetaanko nainen kissa pöydälle?

      Ja selvitetään nämä tunteet?
      Ikävä
      92
      1113

    8. Heikki Paasosen Marita-vaimo jätti tunteikkaat jäähyväiset: "Tällä kertaa me..."

      Heikki Paasonen on naimisissa Marita Paasosen (os. Alatalo) kanssa ja heillä on kaksi pientä lasta. Nyt koitti aika jätt
      Suomalaiset julkkikset
      8
      1076

    9. Salainen kastekoulutus

      Millainen on helluntailainen kastekoulutus ja kauanko se kestää ?
      Kaste
      285
      1025

    10. Pirkanlinna yleisötapahtuma

      Oli todella hyvä tilaisuus. Ja EERO. L. Aivan mahtava tyyppi. Veti rennosti ja asiallisesti. Ja yleisöltä hyviä kysymyks
      Ähtäri
      50
      1011
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt