Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1588to1592
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1588to1592
1588to1592
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Dateien in einen Ordner

Alle Dateien in einen Ordner
29.10.2017 18:08:27
Bernd
Hallo liebe Excel-Freunde,
Ich möchte alle Dateien im Ordner "Beispiel", auch Dateien in jedem Unterordner von "Beispiel", in den Ordner "Hierher" kopieren.
Kann mir da bitte jemand einen Code geben.
Vielen lieben Dank und einen schönen Sonntag Abend noch
Gruß Bernd

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Robocopy
29.10.2017 18:13:01
Fennek
Hallo,
für ein einmaliges Kopieren sollte "Robocopy" mit dem Schalter "/s" ideal sein.
Also ein CMD-Fenster öffnen ....
mfg
Syntax mit Robocopy /?
AW: Robocopy
29.10.2017 18:23:47
Bernd
Hallo Robocopy,
danke für Deine Antwort, aber leider habe ich davon Null Ahnung.
AW: Robocopy
29.10.2017 19:25:35
Nepumuk
Hallo Bernd,
teste mal:
Option Explicit

Public Sub test()
    
    Const SOURCE_PATH As String = "H:\Beispiel\"
    Const TARGET_PATH As String = "H:\Hierher\"
    
    Dim astrFolders() As String, strFile As String
    Dim ialngIndex As Long
    
    astrFolders = GetFolders(SOURCE_PATH)
    
    For ialngIndex = LBound(astrFolders) To UBound(astrFolders)
        
        strFile = Dir$(astrFolders(ialngIndex) & "*.*")
        
        Do Until strFile = vbNullString
            
            FileCopy astrFolders(ialngIndex) & strFile, TARGET_PATH & strFile
            
            strFile = Dir$
            
        Loop
        
    Next
End Sub

Private Function GetFolders(ByVal pvstrPath As String) As String()
    
    Dim astrFolders() As String
    Dim strFolder As String, strPath As String
    Dim ialngIndex1 As Long, ialngIndex2 As Long
    
    strPath = pvstrPath
    
    Do
        
        strFolder = Dir$(strPath & "*", vbDirectory)
        
        Do Until strFolder = vbNullString
            
            If strFolder <> "." And strFolder <> ".." Then
                
                If GetAttr(strPath & strFolder) And vbDirectory Then
                    
                    Redim Preserve astrFolders(0 To ialngIndex1)
                    
                    astrFolders(ialngIndex1) = strPath & strFolder & "\"
                    
                    ialngIndex1 = ialngIndex1 + 1
                    
                End If
            End If
            
            strFolder = Dir$
            
        Loop
        
        If ialngIndex1 = ialngIndex2 Then Exit Do
        
        strPath = astrFolders(ialngIndex2)
        
        ialngIndex2 = ialngIndex2 + 1
        
    Loop
    
    GetFolders = astrFolders
    
End Function

Gruß
Nepumuk
Anzeige
AW: Robocopy
29.10.2017 19:46:02
Bernd
Hallo Nepumuk,
vielen Dank, aber da kommt die Fehlermeldung:
Fehler beim Kompilieren
Sub oder Function nicht definiert
Gruß Bernd
Code funktioniert einwandfrei! o.T.
29.10.2017 19:55:12
Sepp
Gruß Sepp

AW: Code funktioniert einwandfrei! o.T.
29.10.2017 20:04:06
Bernd
Hmm?
was habe ich denn falsch gemacht?
Ich habe den Code so kopiert und in ein Modul eingefügt.
AW: Code funktioniert einwandfrei! o.T.
29.10.2017 20:11:06
Sepp
Hallo Bernd,
wie Nepumuk schon vermutet hat, hast du wohl nicht den gesamten Code kopiert.
Gruß Sepp

Anzeige
AW: Robocopy
29.10.2017 20:00:42
Nepumuk
Hallo Bernd,
dann musst du einen Fehler beim kopieren gemacht haben. Ich habe den Code natürlich getestet und da kam keine Fehlermeldung.
Gruß
Nepumuk
AW: Robocopy
29.10.2017 20:31:29
Bernd
Hallo Nepumuk,
ich muss nochmal blöd nachfragen.
Wo muss ich den Code denn speichern?
Danke Nepumuk, jetzt funktioniert es o.w.t.
29.10.2017 20:53:20
Bernd
.

302 Forumthreads zu ähnlichen Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
9
3
3
1
11
8
6
1
14
4
3
4
3
17
3
3
3
1
13
6
1
3
5
17