Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1500to1504
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

Ordnerinhalt ausgeben, Name variiert

Ordnerinhalt ausgeben, Name variiert
11.07.2016 19:24:53
Hendrik
Hallo zusammen,
mir ist gerade ein Problem bei meinem Code für die Auflistung von Ordnerinhalte aufgefallen (hier befinden sich die Anhänge für die Mails).
Derzeitig ist das der Code, welcher auch funktioniert... Das Problem liegt aber darin, dass sich der letzte Teile vom Namen des Ordners variiert.
Diese Zeile macht mir Sorgen:
Dateiname = Dir$("S:\SNEID012\Listen\Meine\07_2016_07\*.*")
Was muss ich denn ändern, dass es auch die Dateien ausgibt, wenn sie im Ordner "08_2016_02" _ liegen. Der Ordnername darf nicht geändert werden und es soll die Dateien aus dem Ordner geben, welchen Monat wir gerade haben. Bsp: Monat_Jahr_Tag [07_2016_01]

Sub DateinamenAuflisten()
'Dateinamen in einem bestimmten Verzeichnis auflisten
Dim Dateiname As String, i As Integer
Range("A2:B500").ClearContents
Dateiname = Dir$("S:\SNEID012\Listen\Meine\07_2016_07\*.*")
Cells(2, 1).Select
Do While Dateiname  ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub

Vielen Dank und
Viele Grüße
Hendrik

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Month(Date) ...
11.07.2016 19:49:54
Matthias
Hallo
Probiers mal so:
Dateiname = Dir$("S:\SNEID012\Listen\Meine\" & Month(Date) & "_2016_07\*.*")
Gruß Matthias

... mit Dialog
11.07.2016 22:29:59
Christian
Hi,
den Code in ein Modul kopieren - hier das ganze mit einem Auswahldialog für den Quellordner.
Du musst den Namen des Zeilblattes noch im Code anpassen: Set ws = ThisWorkbook.Worksheets("Daten")
Gruß,
Christian
Sub DateinamenAuflisten()
'Dateinamen in einem bestimmten Verzeichnis auflisten
Dim Dateiname As String, i As Integer
Dim Pfad As String
Dim ws As Worksheet
' Hier den Namen des Blattes anpassen ("Daten")
Set ws = ThisWorkbook.Worksheets("Daten")
ws.Range("A2:B500").ClearContents
'Funktion GetPath aufrufen um Pfadname zu ermitteln
Pfad = GetPath()
' Wenn kein Ordner ausgewählt wird, hier Ende
If Pfad = "" Then Exit Sub
Dateiname = Dir$(Pfad & "\*.*")
' Wenn kein Ordner keine Dateien enthält, hier Ende
If Dateiname = "" Then Exit Sub
Do While Dateiname  ""
ws.Cells(2, 1).Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
MsgBox i & " Dateien im Ordner ''" & Pfad & "'' registriert!"
End Sub
Private Function GetPath() As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
' Voreingestellter Pfad, ggf. ändern
.InitialFileName = "S:\SNEID012\Listen\Meine\"
.Title = "Ordnerauswahl"
.InitialView = msoFileDialogViewDetails
.ButtonName = "Ordner wählen"
.Title = "Ordner auswählen"
.Show
If .SelectedItems.Count = 0 Then
GetPath = ""
Else
GetPath = .SelectedItems(1)
End If
End With
End Function

Anzeige
AW: ... mit Dialog
13.07.2016 08:39:54
Hendrik
Hallo Christian,
der Code ist genau das, was ich gebraucht habe!
Wow, auf sowas wäre ich selbst nie gekommen.
Vielen lieben Dank Dir!
Viele Grüße
Hendrik

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige