Mehere Dateien öffnen und prüfen

[gabrielgsell]

Hallo zusammen,
Bei folgendem Problem komme ich nicht mehr weiter:

Aufgabe: In einem Ordner sollen alle *.SPL (Spoolfiles) Dateien auf einen Inhaltswert geprüft werden.

Problem: Gibt es eine Möglichkeit die .SPL Dateien nacheinander zu öffnen?

Mit dem Code habe ich es versucht:

 FNr = FreeFile() 'Gibt die nächste Kanalnr. frei
 Pfad = "C:\WinNT\System32\Spool\Printers\*.SPL"
 Open Pfad For Input As FNr
  Input #FNr, DInhalt
 Close FNr

Dies funktioniert natürlich nicht, weil ich annehme das VB genau wissen muss, welche Datei es öffnen muss.

Ich bin in VB nicht sehr versiert, darum freue ich mich auf Hilfe!

Viele Grüsse

 

[Retlaw]

Für Open brauchst du den Pfad für eine Datei, wenn du mehrere Dateien willst geht das mit einer Schleife über Dir():

Sub openFiles()

Dim path    As String
Dim pattern As String
Dim file    As String

path = "C:\WinNT\System32\Spool\Printers\"
pattern = "*.SPL"
file = Dir(path & pattern)
Do While file <> ""
    MsgBox file 'Hier Verarbeitung einfügen
    file = Dir
Loop

End Sub

 

[gabrielgsell]

Hey vielen Dank! Super schnelle Lösung und funktioniert alles, genau das was ich gesucht habe!

Nochmals Danke und Grüsse