Datei verschieben und umbenennen

[Guenther]

Liebe Accesser!

Suche seit längerem eine Lösung für folgendes Problem:
Über einen Button soll eine Datei innerhalb des gleichen Laufwerkes von einem Ordner in einen anderen verschoben und umbenannt werden.
Da es sich um das selbe Laufwerk handelt, geht das über NAME ganz gut.
Mein Problem nun:
Die Datei, die verschoben werden soll ist eine von einem Scanner erzeugte pdf-Datei, welche einen bekannten Anfang hat, dann aber noch Datum und Uhrzeit automatisch angehängt bekommt.
Gibt es eine Möglichkeit, den Pfad so zu bestimmen, dass die Datei mit dem bestimmten Anfang, Bsp. GUE20160322110251.pdf auswählt, den Anhang aber variable lässt.
Der Anfang der Datei stammt aus einem Formularfeld (Initalen), pdf ist das feste Format, variabel müsste das Datum und die Uhrzeit sein.

Bin dankbar, wenn mir jemand auf die Sprünge helfen kann.

Gruß und DANK
Günther

[DF6GL]

Hallo,

mit z. B. der DIR()-Funktion könnten alle Dateien, die mit GUE beginnen und mit .PDF aufhören, in einer Schleife bestimmt  und darauf entspr. reagiert werden.

[Guenther]

Hallo DF6GL,

leider ist mir unklar, wie ich mit der Dir-Funktion eine Datei umbenennen kann.
Die Datei liegt im Verzeichnis J:/Scanner/ und soll nach J:/Guenther/verschoben und umbenannt werden. Der neue Dateinamen wird aus verschiedenen Feldwerten zusammengesetzt. Das stellt kein Problem dar.
Leider gelingt es mir nicht, den vom Scanner erzeugten Anhang zu definieren. Das Problem ist vor allem die Uhrzeit. Wer weiß schon auf die Sekunde genau, um wie viel Uhr die die Datei erzeugt wurde.

[MaggieMay]

Hi,

die Dir-Funktion hilft dir den konkreten Dateinamen herauszufinden, den du für die Umbenennung brauchst.

[Guenther]

Hallo MaggieMay,

habe leider nur eine grobe Vorstellung wie das funktionieren könnte. Könntest du mir ein Beispiel aufzeigen?

Danke und Gruß
Günther

[MaggieMay]

Zeig doch bitte den Code, der bis jetzt eingesetzt wird, damit man ihn anpassen kann.

[DF6GL]

Hallo,

Wer weiß schon auf die Sekunde genau, um wie viel Uhr die die Datei erzeugt wurde.

Na wer schon: Du natürlich...  ;-)

Es geht doch nicht um die Frage, wann auf die Sekunde genau die Datei erstellt wurde, eher darum, welche der Dateien nun bearbeitet (verschoben) werden soll.  Wenn Du keine Ahnung hast, welche Datei das konkret sein könnte, wird es auch nicht funktionieren.

Z. B. könnte definiert werden, dass es die jüngste der betroffenen Dateien sein soll.

Einfach wäre es, wenn es nur eine solche Datei zum Zeitpunkt der Bearbeitung geben kann.. 

[Guenther]

Wenn du eine Datei einscannst, weißt du dann, zu welcher exakten Uhrzeit (auf die Sekunde genau) die Datei erstellt wurde. Wenn JA- alle Achtung!

Ich habe mit dem Hinweis von MaggieMay wohl eine Lösung gefunden, die ich später hier noch posten kann. Hoffe, dass es klappt.

Gruß Günther

[DF6GL]

Hallo,

Du hast mich nicht verstanden....  deshalb nochmal:

Es geht nicht um die Uhrzeit als solche , sondern und die Definition, welche Datei es sein muss.  Das kann man nur an "älteste" Datei oder "jüngste" Datei festmachen.  Und eine solche kannst Du finden, wenn die in den mit der DIR()-Funktion ermittelten Dateinamen vorhandenen Datum/Uhrzeit-Angaben miteinander verglichen werden und dadurch die "richtige" Datei bestimmt wird....

Mit der DIR()-Funktion wird auch nichts umbenannt, das passiert anschließend mit der Name-Anweisung. Aber erst, wenn man weiß, welche  Datei/en betroffen ist/sind..



Nach diesem Rezept kannst Du nun den Code schreiben..

[Guenther]

Hallo,

DANKE für die Hilfe, auch wenn ich sie wohl nicht immer gleich richtig verstanden habe.

Habe folgende Lösung gefunden:
Datei = Dir("C:\Test1\" & Me.VN_Initalen & "*.pdf", vbNormal)
pfadalt = "C:\Test1\"
pfadneu = Me.Text396

altername = Datei
neuername = Me.VN_Nachname & ", " & Me.VN_Vorname & Me.VN_GebDat & "_" & strZusatz1 & ".pdf"
If Dir(pfadalt & Datei) <> "" Then
Name pfadalt & altername As pfadneu & neuername

Datei: Ist meine eingescannte Datei.

Gruß und nochmals Dank
Günther

[Guenther]

kleine Korrektur meines Codes
If Datei <> "" Then
...