Microsoft Excel

Herbers Excel/VBA-Archiv

Dateinen von A nach B kopieren?


Betrifft: Dateinen von A nach B kopieren? von: Sergej
Geschrieben am: 04.08.2018 14:24:28

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

  

Betrifft: AW: Dateinen von A nach B kopieren? von: Nepumuk
Geschrieben am: 04.08.2018 16:23:42

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


  

Betrifft: AW: Dateinen von A nach B kopieren? von: Sergej
Geschrieben am: 04.08.2018 17:41:10

Hallo

ich habe es getestet. Irgendwie ist das obere Teil in Rot dargestellt und es kommt zu diese Meldung beim Starten:



Gruß,
Sergej


  

Betrifft: AW: Dateinen von A nach B kopieren? von: Nepumuk
Geschrieben am: 04.08.2018 18:50:15

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


  

Betrifft: AW: Dateinen von A nach B kopieren? von: Sergej
Geschrieben am: 04.08.2018 20:13:35

Hallo Nepumuk,

es funktioniert. Vielen lieben Dank!

Gruß,
Sergej


Beiträge aus dem Excel-Forum zum Thema "Dateinen von A nach B kopieren?"