vba dateien suchen, umbenennen und verschieben
04.06.2004 09:05:20
franz
Freitag und ein Problem:
Kann man über Makro folgendes steuern:
Suche mir in dem Verzeichnis c:\2004 folgende Dateien:
(Für den Stern (*) können noch verschiedene Buchstaben und Zahlen folgen
oder vorausgehen)).
1.) Bestandsprotokoll_*.xls
2.) BRNR_PTK.txt
3.) *_ERR.txt
4.) *_PTK.txt
5.) *_STA.csv oder *_STA.xls
6.) Prüfstatistik_*.xls
7.) Teilnehmerzaehlung_In_Branchen_*.xls
8.) Teilnehmerzaehlung_In_Buchabschnitten_*.xls
Benenne diese Dateien wie folgt um:
1.) Bestandsprotokoll Name 2004 Test.xls
2.) Branchenumschlüsselung Name 2004 Test.txt
3.) Fehlerprotokoll Name 2004 Test.txt
4.) Entladeprotokoll Name 2004 Test.txt
5.) Eintragsstatistik Name 2004 Test.csv
6.) Prüfstatistik Name 2004 Test.xls
7.) Teilnehmerzaehlung in Branchen Name 2004 Test.xls
8.) Teilnehmerzaehlung in Buchabschnitten Name 2004 Test.xls
Verschiebe diese Dateien nach der Umbenennung
unter selbem Verzeichnis in die entsprechenden
Unterverzeichnisse.
1.) Nach Verzeichnis c:/2004/Bestandsprotokoll
2.) Nach Verzeichnis c:/2004/Entladeprotokolle
3.) Nach Verzeichnis c:/2004/Entladeprotokolle
4.) Nach Verzeichnis c:/2004/Entladeprotokolle
5.) Nach Verzeichnis c:/2004/Entladeprotokolle
6.) Nach Verzeichnis c:/2004/Bestandsprotokoll
7.) Nach Verzeichnis c:/2004/Teilnehmerzählung
8.) Nach Verzeichnis c:/2004/Teilnehmerzählung
Schön wäre es, wenn für den Dateinamenteil "Name" vorab
Eingabeaufforderung für die Eingabe der richtigen
Bezeichnung käme, welche dann automatisch anstatt "Name"
eingefügt würde.
Ist natürlich ein riesiges Unterfangen, aber vielleicht ....
Gruss
franz