ich habe folgenden Pfad:
C:\_Lager\__Logistik\__Kundennamen & aktive.zelle("K1")
in K1 steht das Jahr, das sollte dahinter stehen, so das man direkt das Verzeichnis
für das Jahr aufrufen kann.
mfg walter
"C:\_Lager\__Logistik\__Kundennamen" & aktivecell.value & Range("K1").Value
Ciao
Public Sub Dateien_kopieren()
Dim Datei As String
Dim Pfad As String
Pfad = GetFolder(ActiveSheet.Range("i2"))
ActiveSheet.Range("C2") = Pfad
Datei = Dir(Pfad & "*.*")
Do While Datei ""
ActiveSheet.Range("C9999").End(xlUp).Offset(1, 0) = Datei
Datei = Dir()
Loop
Cells(Application.max(9, Cells(Rows.Count, 7).End(xlUp).Row + 1), 7) = Pfad 'hiermit wird nächste frei Zelle wert gesetzt
End Sub
Function GetFolder(Optional StartVerzeichnis As String = "C:") As String
Sub walter()
Dim oFS As Object, oFldr As Object, oSubFldr As Object, oFile As Object
Set oFS = CreateObject("scripting.filesystemobject")
Set oFldr = oFS.getfolder(Range("A9") & "\" & Year(Range("K1")))
For Each oSubFldr In oFldr.subfolders
For Each oFile In oSubFldr.Files
'mach was
Next oFile
Next oSubFldr
End Sub
Gruß
Function GetFolder(Optional StartVerzeichnis As String = "C:") As String
Dim oFS As Object, oFldr As Object, oSubFldr As Object, oFile As Object
Set oFS = CreateObject("scripting.filesystemobject")
' Set oFldr = oFS.GetFolder(Sheets("Info").Range("A2") & "\" & Year(Range("K1")))
Set oFldr = oFS.GetFolder(ActiveSheet.Range("i2"))
For Each oSubFldr In oFldr.SubFolders
For Each oFile In oSubFldr.Files
'------------ von oben ----------------------------------------------
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = StartVerzeichnis ' 0 Then GetFolder = .SelectedItems(1) & IIf(Right(.SelectedItems(1), 1) = "\", "", "\")
End With
'mach was
Next oFile
Next oSubFldr
End Function
gruß walter