Druck Explorer

[SamSee]

Hallo Leute,

ich habe ein Problem.
Ich muss eine Art erweiterte Druckfunktion erstellen.
Also wenn ich ein Verzeichnis rechts anklicke sollte es die Option Verzeichnisinhalt Drucken geben.
Dann sollten alle Word Excel Dokumente etc. die sich in diesem Ordner befinden ausgedruckt werden.

Könnt ihr mir da helfen?
Es sollte auch noch ein Fenster möglich sein wo ich auswählen kann was ich drucken will.

Danke schonmal

Grüße
Sam

 

[Shakie]

Also da würde sich das FileSystemObjekt anbieten (Microsoft Scripting Runtime einbinden!). Damit kannst du alle Dateien in einem Verzeichnis inklusive Unterverzeichnisse auslesen (geht natürlich auch mit der Dir-Prozedur).
Nur beim Drucken der Dateien kann ich dir leider nicht helfen, aber irgendwer anders sicherlich!

Private Sub VerzeichnisDrucken()

Const DRUCKENDUNGEN As String = "doc;xls;..."

    Dim fso As Scripting.FileSystemObject
    Set fso = New Scripting.FileSystemObject
    Dim Datei As Scripting.File
    Dim Verzeichnis As Scripting.Folder
    
    Set Verzeichnis = fso.GetFolder("C:\Programme")
    For Each Datei In Verzeichnis.Files
        If InStr(1, DRUCKENDUNGEN, Endung(Datei.Name)) <> 0 Then
            '-->Es handelt sich um eine Datei, die gedruckt werden soll!
            'Hier den Code zum Drucken der Datei, für den ich leider keine Hilfe
            'anbieten kann. (Oder der Code, der die Datei zu einer Auswahlliste hinzufügt)
        End If
    Next
End Sub

Private Function Endung(ByVal Dateiname As String) As String
'FUNCTION: Gibt die Endung einer Datei wieder.
    Endung = Mid$(Dateiname, InStrRev(Dateiname, ".") + 1)
End Function