Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateinen von A nach B kopieren?

Forumthread: 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
Anzeige

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)

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