ich komme bei Folgendem nicht weiter.
Im Pfad "C:\Daten\Messdaten\ liegen viele Ordner in folgender Struktur:
...
20160506
20160507
20160508
...
Also nach einem Datum des Formats yyyymmdd
Ich möchte nun über eine Schleife die Ordner kopieren, die von einem Start bis zu einem Enddatum vorliegen und in einem neuen Ordner kopieren. Zum Beispiel in Pfad "P\Ausertung\Datengefiltert\
Ich habe dazu schon das Format der Eingabezellen mit:
Worksheets("Tabelle1").Range("D6").NumberFormat = "yyyy/mm/dd"
Worksheets("Tabelle1").Range("G6").NumberFormat = "yyyy/mm/dd" geändert.
Weiß aber nicht genau wie ich die Formate miteinander abgleichen kann.
Habe mir das so irgenwie gedacht...
Dim i As Integer
Dim strName As String
Dim dtmFrom As Date
Dim dtmTo As Date
Dim dtmFolder As Date
Dim strPath As String
Dim CopyPath As String
strPath= Range("C10") 'Zelle in der Pfad steht
CopyPath=Range ("C11") 'Zelle in der Pfad steht
strName = Dir(strPath & "\" & "*.*", vbDirectory)
dtmFrom = Format...? 'Wie Datum und Ordnername ansprechen und Formate anpassen?
dtmTo = ?
i = 0
Do While strName ""
If GetAttr(strPath & "\" & strName) And vbDirectory Then
If strName "." And strName ".." Then
dtmFolder = "Format (? yyyy/mm/dd")
If dtmFrom = dtmFolder Then
CopyFolder...in ZielOrdner (Copypath) ?
i = i + 1
End If
End If
End If
strName = Dir()
Loop
kann mir dort jemand helfen?bzw wäre das der richtige Ansatz?
hier das Sheet zur Veranschaulichung:
https://www.herber.de/bbs/user/138181.xlsm
Anschließend soll geprüft werden ob in den Ordnern (20160506) der Ordner "Elektro" existiert. Wenn ja dann möchte ich die TXT Dateien die sich dort befinden in einen extra Ordner zusammenfügen damit ich diese in Excel importieren kann... (aber das ist dann wieder eine andere Baustelle) erst einmal bräuchte ich bei dem oberen Teil Hilfe.
Danke schon einmal im Voraus
Anni