ich habe einen Code, in dem ich Dateien aus einem Ordner auslesen möchte. In diesem Ordner gibt es allerdings eine versteckte Datei. "thumbs.db". Ist es möglich nur die sichtbaren Dateien auszulesen?
Der Code-Ausschnitt sieht wie folgt aus:
Dim file() as string
Set fso = CreateObject("scripting.FileSystemObject")
Set Ordner = fso.getFolder("C:\folder").Files
ReDim file(fso.getFolder("C:\folder").Files.Count)
anzahl = 0
For Each Datei In Ordner
If InStr(Datei, "") > 0 Then
anzahl = anzahl + 1
file(anzahl) = Datei.Name
End If
Next Datei
Ich suche also quasi etwas wie
Set fso = CreateObject("scripting.FileSystemObject.visible")
Gibt es sowas? Ich finde nichts...
Gruß
René