Dateien in einem Folder

Forumthread: Dateien in einem Folder
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Dateien in einem Folder

braleta

L&G,
ich sitze hier in Spanien, habe keine Litaratur und keine Hilfsbeispiele, und brauche einen Code, der mir die Dateien eines vorgegebenen Ordners auflistet, am Besten in ein eindimensionales Array (aber das kann ich selbst machen).
Ich habe das Archiv durchsucht, aber nichts gefunden.
Ich bin für jede Hilfe dankbar.
braleta

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Dateien in einem Folder

Josef
AW: Dateien in einem Folder

braleta

AW: Dateien in einem Folder

31.07.2011 23:40:42

Josef

Hallo Braleta,
die Dateinamen befinden sich nach Codedurchlauf in strFiles().

Sub Test()
  Dim strFiles() As String
  Dim strPath As String, strTmp As String
  Dim lngIndex As Long
  
  strPath = "E:\Forum"
  
  strPath = IIf(Right(strPath, 1) = "\", strPath, strPath & "\")
  
  strTmp = Dir(strPath & "*.*", vbNormal)
  
  Do While strTmp <> ""
    Redim Preserve strFiles(lngIndex)
    strFiles(lngIndex) = strPath & strTmp
    lngIndex = lngIndex + 1
    strTmp = Dir
  Loop
  
End Sub

« Gruß Sepp »

AW: Dateien in einem Folder

01.08.2011 00:10:22

braleta

Josef,
D.A.N.K.E.!!!!!
Genau das ist das, was ich gesucht habe. Mein Gedächtnis lässt nach, und ohne Literatur bin ich (fast) aufgeshmissen.
Danke
...braleta