Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1540to1544
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Nur sichtbare Dateien aus Ordner auslesen

VBA Nur sichtbare Dateien aus Ordner auslesen
21.02.2017 10:15:26
René
Hallo zusammen,
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é

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Nur sichtbare Dateien aus Ordner auslesen
21.02.2017 11:44:14
Michael
Hallo!
Falls es nicht FSO sein muss...
Sub a()
Dim Pfad$, Datei$
Pfad = "C:\DeinVerzeichnis\DeinOrdner\"
'Datei = Dir(Pfad, vbHidden) 'Inkl. versteckte Dateien
Datei = Dir(Pfad, vbNormal) 'Exkl. versteckte Dateien
Do While Datei  ""
Debug.Print Datei: Datei = Dir
Loop
End Sub
LG
Michael
Anzeige

328 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige