WCM - Das österreichische Computer Magazin Forenübersicht
 

Zurück   WCM Forum > Rat & Tat > Programmierung

Programmierung Rat & Tat für Programmierer

Microsoft KARRIERECAMPUS

 
 
Themen-Optionen Ansicht
Alt 12.02.2012, 22:46   #1
mankra
Schon länger dabei
 
Benutzerbild von mankra
 
Registriert seit: 19.08.2000
Ort: Steiermark
Alter: 50
Beiträge: 3.117

Mein Computer

Standard Hilfe zu VBS: PDF nach Ausdruck löschen

Mit VBS hab ich bis jetzt noch keine Erfahrung. Per Tante Google hab ich mir folgendes Skript zusammengesucht, welches einen Ordner auf neue PDF Dateien überwacht und gegebenenfalls ausdruckt.
Soweit klappt dies auch.

Code:
On Error Resume Next
strFolder = "T:\ordner" 'ohne abschließenden "\", auch bei Root-Folder

WScript.Echo "Druckprogramm gestartet"
strUserFolder = """" & Replace(strFolder, "\", "\\\\") & """"
strComputer = "."
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile("T:\ordner\*.pdf"),true
Set objShell = CreateObject("Wscript.Shell")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colMonitoredEvents = objWMIService.ExecNotificationQuery _
    ("SELECT * FROM __InstanceCreationEvent WITHIN 10 WHERE " _
        & "Targetinstance ISA 'CIM_DirectoryContainsFile' and " _
            & "TargetInstance.GroupComponent= " _
                & "'Win32_Directory.Name=" & strUserFolder & "'")
Do
    Set objLatestEvent = colMonitoredEvents.NextEvent
    strNewFile = objLatestEvent.TargetInstance.PartComponent
    arrNewFile = Split(strNewFile, "=")
    strFileName = arrNewFile(1)
    strFileName = Replace(strFileName, Chr(34), "")
    Select Case LCase(fso.GetExtensionName(strFileName))
    Case "pdf" 'Typ in Kleinbuchstaben angeben
        objShell.Run """C:\Program Files (x86)\Foxit Software\Foxit Reader\Foxit Reader.exe"" /p """ & strFileName & """"

    Case Else
        ' keine Aktion erforderlich
    End Select
Loop
Problem ist, daß ich gerne nach dem Ausdruck das File gelöscht hätte und ich mit den vielen Anführungszeichen nicht so zurecht komme.
z.B:
fso.DeleteFile("T:\rechnungen\11\etiketten\""" & strFileName & """"),true
nach dem Foxit Reader Aufruf funktioniert nicht (keine Fehlermeldung, aber die Files bleiben stehen).

Andere komplette Noob Frage:
Über Google hätte ich nichts gefunden:
Gibt es außer echo keine Möglichkeit einer Bildschirmausgabe?
Z.B. ein Fenster, welches jede gedruckte Datei anzeigt.
____________________________________
www.mankra.com Meine private Site
mankra ist offline   Mit Zitat antworten
 


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.

Gehe zu


Alle Zeitangaben in WEZ +2. Es ist jetzt 09:07 Uhr.


Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Forum SEO by Zoints
© 2009 FSL Verlag