Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1636to1640
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinen von A nach B kopieren?

Dateinen von A nach B kopieren?
04.08.2018 14:24:28
A
Hallo Leute,
wie kann ich bitte alle Dateien mit der Dateiendung .cfg
von T:\2018\Daten\Settings\OR3\ nach D:\Lokal\2018\ per VBA kopieren / überschreiben?
Gruß,
Sergej

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateinen von A nach B kopieren?
04.08.2018 16:23:42
A
Hallo Sergej,
teste mal:
Option Explicit

Private Declare PtrSafe Function CopyFileA Lib "kernel32.dll" ( _
    ByVal lpExistingFileName As String, _
    ByVal lpNewFileName As String, _
    ByVal bFailIfExists As Long) As Long

Public Sub CopyFiles()
    Const SOURCE_PATH As String = " T:\2018\Daten\Settings\OR3\"
    Const TARGET_PATH As String = "D:\Lokal\2018\"
    Dim strFilename As String
    strFilename = Dir$(SOURCE_PATH & "*.cfg")
    Do Until strFilename = vbNullString
        Call CopyFileA(SOURCE_PATH & strFilename, TARGET_PATH & strFilename, 0)
        strFilename = Dir$
    Loop
End Sub

Gruß
Nepumuk
Anzeige
AW: Dateinen von A nach B kopieren?
04.08.2018 17:41:10
A
Hallo
ich habe es getestet. Irgendwie ist das obere Teil in Rot dargestellt und es kommt zu diese Meldung beim Starten:

Gruß,
Sergej
AW: Dateinen von A nach B kopieren?
04.08.2018 18:50:15
A
Hallo Sergej,
stimmt denn die Excelversion?
Test mal:
Private Declare Function CopyFileA Lib "kernel32.dll" ( _
    ByVal lpExistingFileName As String, _
    ByVal lpNewFileName As String, _
    ByVal bFailIfExists As Long) As Long

Gruß
Nepumuk
Anzeige
AW: Dateinen von A nach B kopieren?
04.08.2018 20:13:35
A
Hallo Nepumuk,
es funktioniert. Vielen lieben Dank!
Gruß,
Sergej

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige