Quelltext verändern
09.01.2003 15:05:29
Nico
Danach möchte ich noch den Quellordner löschen, und im Zielordner die Exceldatei, die ein "@" im Namen hat, nach der
Variablen "datei2" umbenennen.
Kann das jemand ?
Danke im Voraus
Nico
store = Sheets("Tabell1").[b65536].End(xlUp).Row + 1
ziel = Cells(ActiveCell.Row, 1).Value
ziel2 = Cells(store, 2 + 1).Value
MkDir "d:\Personen\Auftrag\" & ziel2
FileCopy "D:\Personen\" & ziel & "\" & "*.*", _
"D:\Personen\Auftrag\" & ziel2 & "\"