Datein im Ordner überschreiben ohne Nachfrage!
22.06.2005 10:33:55
Anja
Ich bin wieder gezwungen nach eure Hilfe zu fragen...
Ich habe eine Funktion, die Dateien von einem Ordner ins andere verschiebt.
Manch mal kann es aber passieren, dass die gleiche Dateien mit gleichen namen verschiebt werden. Dann erscheint die Meldung, ob es überschrieben werden soll.
Mein ziel ist es, diese Meldung zu vermeiden... Entweder sofort überschreiben ohene nachzufragen, oder doppelte Dateien im Ordner vermeiden, oder wenn das gleiche Datei übertagen sollte sie sofort löschen...
Wie kann ich es mit VBA realisieren...
Das habe ich bis jetzt (PS: hat mir ein guter Mensch aus diesem Forum geholfen ;) ):
Sub Ordner_uebertragen()
Dim FSO As Object
Dim FileList() As String
Dim x As Integer
Set FSO = CreateObject("Scripting.FileSystemObject")
Dim Dateien, Datei, Ordner
strPath0 = Me!PName
If strPath0 = "" Then Exit Sub
strPath_quelle = (strPath0 + "\to update\")
strPath_Ziel = (strPath0 + "\was updated\")
Set Ordner = FSO.GetFolder(strPath_quelle)
Set Dateien = Ordner.Files
For Each Datei In Dateien
FSO.MoveFile strPath_quelle & Datei.Name, strPath_Ziel & Datei.Name
Next
End Sub
Nun muss die code noch entsprechend ergänzt werden...
Ich freue mich über jeden Tipp :)
Danke und
viele Grüße
Anja