Zuviel Werbung? - > Hier kostenlos beim SPS-Forum registrieren

Ergebnis 1 bis 1 von 1

Thema: VBScript (Windows) Dialogbox zur Dateiauswahl

  1. #1
    Registriert seit
    20.06.2003
    Ort
    Sauerland.NRW.Deutschland
    Beiträge
    4.843
    Danke
    77
    Erhielt 799 Danke für 542 Beiträge

    Standard


    Zuviel Werbung?
    -> Hier kostenlos registrieren
    Dialogbox um eine Datei auszuwählen

    Code:
    'GetFileDlg
    'Dim oDlg, sIniDir, sFilter, sTitle, GetFileDlgEx, rep
    sIniDir = "C:\\Windows\\*" 'Startverzeichnis  'wird nur * angegeben ist Startverzeichnis der aktuelle Pfad des Aufrufs
    sFilter = "docx|Adobe pdf (*.pdf)|*.pdf|Image files (*.gif;*.png;*jpg;*.bmp)|*.gif;*.png;*jpg;*.bmp|Html files (*.htm;*.html;*.mht)|*.htm;*.html;*.mht|"  
    sTitle = "GetFileDlg by omen999 2014 - http://omen999.developpez.com"  
     Set oDlg = CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);eval(new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(0).Read("&Len(sIniDir)+Len(sFilter)+Len(sTitle)+41&"));function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg(iniDir,null,filter,title)));close();}</script><hta:application showintaskbar=no />""")  
     
     oDlg.StdIn.Write "var iniDir='" & sIniDir & "';var filter='" & sFilter & "';var title='" & sTitle & "';"     'öffnet den dialog
     GetFileDlgEx = oDlg.StdOut.ReadAll
     msgbox GetFileDlgEx 'ausgewählte Datei
    Code:
    Function GetFileDlg(sIniDir,sFilter,sTitle) 
     GetFileDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" & sIniDir & "',null,'" & sFilter & "','" & sTitle & "')));close();}</script><hta:application showintaskbar=no />""").StdOut.ReadAll 
    End Function
    Code:
    Function GetFileDlgBar(sIniDir,sFilter,sTitle) 
     GetFileDlgBar=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<object id=d classid=clsid:3050f4e1-98b5-11cf-bb82-00aa00bdce0b></object><script>moveTo(0,-9999);function window.onload(){var p=/[^\0]*/;new ActiveXObject('Scripting.FileSystemObject').GetStandardStream(1).Write(p.exec(d.object.openfiledlg('" & sIniDir & "',null,'" & sFilter & "','" & sTitle & "')));close();}</script>""").StdOut.ReadAll 
    End Function
    Geändert von volker (18.07.2016 um 12:35 Uhr)
    .
    mfg Volker .......... .. alles wird gut ..

    =>Meine Homepage .. direkt zum Download

    Meine Definition von TIA: Total Inakzeptable Applikation
    Zitieren Zitieren VBScript (Windows) Dialogbox zur Dateiauswahl  

Ähnliche Themen

  1. Dialogfenster zur Dateiauswahl
    Von saumann im Forum HMI
    Antworten: 5
    Letzter Beitrag: 12.05.2016, 06:50
  2. Antworten: 0
    Letzter Beitrag: 28.12.2013, 12:38
  3. Dateiauswahl in WINCC 7.0
    Von sailor im Forum HMI
    Antworten: 3
    Letzter Beitrag: 10.07.2013, 18:36
  4. Antworten: 1
    Letzter Beitrag: 20.08.2009, 14:10
  5. Wincc Flexible Dateiauswahl-Dialog
    Von repök im Forum HMI
    Antworten: 3
    Letzter Beitrag: 29.11.2006, 22:55

Lesezeichen

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •