verflixt, ich habe hier einen super Tip bekommen, wie ich vernünftig Dateien (mit einem T am Ende) unter VBA kopieren kann.
Dim sr As Scripting.FileSystemObject
v0 = "c:\prog\testfiles"
TNetzCopy "\\pc1\i1\*T ", v0, "1"
und dann weiter mit der SUB
Private Sub TNetzCopy(QuellPC As String, Ziel As String, PC As String)
Dim vh As String
Application.StatusBar = "Daten werden von den Netzwerkrechnern kopiert ... - PC" & PC
Set sr = New Scripting.FileSystemObject
On Error Resume Next
Call sr.CopyFile(QuellPC, Ziel)
If Err.Number > 50 And Err.Number
So, damit klappt alles bestens - nun meine Frage. Kann man irgendwie die Dateien direkt beim Kopieren mit umbenennen?Also dsa Ziel wäre es VOR jede Datei noch das Kürzel "PC" & PC - davorzuhängen.
TNetzCopy wird für mehrere Rechner aufgerufen und der UrsprungPC der Dateien soll so direkt mit in den Dateinamen aufgenommen werden.
Hat da jemand einen Tip?
Mein einziger Gedanke wäre, ein Temp-Verzeichnis zu basteln, dort alle Dateien von PC1 reinzukopieren, danach alle Dateien umzubenennen, dann die in das eigentlich Zielverzeichnis verschieben und dann den nächsten PC zu kopieren - aber geht das noch einfacher?
LG,
Tommi