ordnerinhalt kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi lexika,
nachstehend was aus der Hilfe.
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
Copy-Methode
Beschreibung
Kopiert eine angegebene Datei oder einen angegebenen Ordner von einem Ort an einen anderen.
Syntax
Objekt.Copy Ziel[, überschreiben]
Die Syntax der Copy-Methode besteht aus folgenden Teilen:
Teil Beschreibung
Objekt Erforderlich. Immer der Name eines File- oder Folder-Objekts.
Ziel Erforderlich. Das Ziel, an das die Datei oder der Ordner kopiert werden. Platzhalterzeichen sind nicht zulässig.
überschreiben Optional. Boolescher Wert, der True ist (Voreinstellung), wenn vorhandene Dateien oder Ordner überschrieben werden sollen, bzw. der False ist, wenn sie nicht überschrieben werden sollen.
Anmerkungen
Die Ergebnisse der Copy-Methode für ein File- oder Folder-Objekt sind mit den Operationen identisch, die bei der Verwendung von FileSystemObject.CopyFile oder FileSystemObject.CopyFolder durchgeführt werden, bei denen die Datei oder der Ordner, auf die/den durch Objekt verwiesen wird, als Argument weitergegeben werden. Sie müssen allerdings beachten, daß die alternativen Methoden in der Lage sind, mehrere Dateien oder Ordner zu kopieren.

Hallo Lexika!

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" ( _
  ByVal DirPath As String) As Long

Private Function CopyFilesFromFolder(Qellordner As String, Zielordner As String) As Long
Dim objFSO As Object, objFo As Object, objF As Object, result As Long

On Error GoTo ErrExit

'Erstellt den Zielordner, wenn nicht vorhanden
result = MakeSureDirectoryPathExists(Zielordner)

If result <> 1 Then
  CopyFilesFromFolder = 0
  Exit Function
End If

If Right(Zielordner, 1) <> "\" Then Zielordner = Zielordner & "\"

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFo = objFSO.getfolder(Qellordner)

For Each objF In objFo.Files
  objFSO.Copyfile objF, Zielordner & objF.Name
Next

Set objFSO = Nothing
Set objFo = Nothing
CopyFilesFromFolder = 1
Exit Function

ErrExit:

CopyFilesFromFolder = 0

End Function

Sub Test()
If CopyFilesFromFolder("Z:\", "C:\Test") <> 0 Then
  MsgBox "Dateien wurde kopiert!"
Else
  MsgBox "Kopieren fehlgeschlagen!"
End If
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

ordnerinhalt kopieren

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

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread