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

222

Ää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. Persujen mukaan rasismi on huumoria

      Vaan kun koomikko kutsui Halla-ahoa fasistiksi, niin piti haastaa oikeuteen. Mihin se huumorinitaju yhtäkkiä hävisi? ⠀
      Maailman menoa
      76
      4263

    2. BOIKOTOIN - Ei mitään Suomi.fi postilaatikoita käyttöön

      Ainakaan minulle! Vai että pitäisi alkaa siellä käyädä katselemassa tammikuusta 2026 siis periaatteessa päivittäin että
      Maailman menoa
      190
      3479

    3. Mitä haluaisit sanoa hänelle juuri nyt?

      💜
      Ikävä
      194
      2804

    4. Lasse Lehtonen vaatii persuja pyytämään anteeksi aasialaisilta

      Persut ova romahduttaneet Suomen maakuvan parissa päivässä negatiiviseksi rasismillaan ja se alkaa vaikuttamaan jo Suome
      Maailman menoa
      66
      2716

    5. Hallitus on kaadettava ja Orpon on erottava

      Mikään muu hallitus ei ole oman elämäni aikana tuhonnut näin paljon tämän maan taloutta ja työllisyyttä sekä suomen main
      Maailman menoa
      40
      2626

    6. Mikä on kaivattusi toinen nimi

      🙈
      Ikävä
      57
      1156

    7. Lasse Lehtonen palasi ambulanssilennolla Suomeen

      Nyt on syytä lopettaa irvailu.
      Maailman menoa
      76
      1027

    8. Aitolehti Capital

      HehkuB on myynnissä, kovalla työllä saavutettu unelma joka sekin lässähti kuten kaikki mihin ryhtyy! Nyt Sewen asialle
      Kotimaiset julkkisjuorut
      238
      1002

    9. MOT: Työmarkkinatori on olemattomien työpaikkojen hakupaikka

      Työpaikkojen tietoja ei tarkisteta, ja ainakin noin noin 10% on olemattomia työpaikkoja ja sen lisäksi eri rekryfirmat t
      Maailman menoa
      107
      866

    10. Missä kuussa

      Rakkaasi on syntynyt?
      Ikävä
      55
      860
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt