Hi,
kann mir vielleicht jemand sagen was man tun muß wenn man einen kompletten ordner über ein netzwerk von einem pc auf andere pcs kopieren möchte?
Danke
Hi,
gibts auch eine möglichkeit das ganze über vb zu machen? mit dem recorder funktioniert es nicht.
Danke
AW: ordnerinhalt kopieren STRG+C, STRG+V? ot.
27.12.2005 10:16:40
Reinhard
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.
Anzeige
AW: ordnerinhalt kopieren
27.12.2005 10:14:25
Josef
Hallo Lexika!
Die entsprechenden Rechte und Freigaben vorausgesetzt, sollte es so klappen!
' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' **********************************************************************
Hallo Sepp,
habe denn unteren teil angepasst zu
If CopyFolder("Z:\", "C:\test") 0 Then
MsgBox "Ordner wurde kopiert!"
Else
MsgBox "kopieren fehlgeschlagen!"
End If
aber es kommt immer die meldung "kopieren fehlgeschlagen!"
Danke
AW: ordnerinhalt kopieren
27.12.2005 10:34:48
Josef
Hallo Lexica!
Du hast keinen Ordner, sondern nur das Laufwerk angegeben!
Schreib statt "Z:\" mal "Z:\test", dann sollte es laufen.
Hallo Sepp,
möchte alles aus Laufwerk Z kopieren da es nur den inhalt eines Ordners enthält der auf einem anderen rechner ist.
habe es auch schon mit dem kompletten weg probiert ("\\pc010\Klimadaten") , hat aber auch nicht funktioniert
Danke
AW: ordnerinhalt kopieren
27.12.2005 11:56:44
Josef
Hallo Lexika!
' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' **********************************************************************
PrivateFunction CopyFilesFromFolder(Qellordner As String, Zielordner AsString) AsLong Dim objFSO As Object, objFo As Object, objF As Object, result AsLong
OnErrorGoTo ErrExit
'Erstellt den Zielordner, wenn nicht vorhanden result = MakeSureDirectoryPathExists(Zielordner)
If result <> 1 Then CopyFilesFromFolder = 0 ExitFunction EndIf
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 ExitFunction
ErrExit:
CopyFilesFromFolder = 0
EndFunction
Sub Test() If CopyFilesFromFolder("Z:\", "C:\Test") <> 0 Then MsgBox "Dateien wurde kopiert!" Else MsgBox "Kopieren fehlgeschlagen!" EndIf EndSub
Hallo Sepp,
kannst Du mir bitte noch sagen was man ändern muß damit er alles kopiert?
im moment kopiert er nur die bilddatei und die restlichen ordner nicht.
Danke
AW: ordnerinhalt kopieren
27.12.2005 12:23:54
Josef
Hallo Lexika!
Tausche die Funktion gegen diese!
PrivateFunction CopyFilesFromFolder(Qellordner As String, Zielordner AsString) AsLong Dim objFSO As Object, objFo As Object, objF As Object, result AsLong
OnErrorGoTo ErrExit
'Erstellt den Zielordner, wenn nicht vorhanden result = MakeSureDirectoryPathExists(Zielordner)
If result <> 1 Then CopyFilesFromFolder = 0 ExitFunction EndIf
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 For Each objF In objFo.subfolders objFSO.CopyFolder objF, Zielordner Next
Set objFSO = Nothing Set objFo = Nothing CopyFilesFromFolder = 1 ExitFunction