Office: VB Kopieren und Umbenennen

Hallo zusammen,

ich befürchte der Titel ist etwas nichtssagend bzw falsch weiß aber nicht wie ich es anders kurz ausdrücken soll ^^

Es geht um Folgendes, ich habe für uns in der Firma etwas mit Excel bzw VB geschrieben was Bilder Kopieren soll.

Grund dafür ist das wir von Kunden Bilder bekommen mit Defekter Ware. Meine Arme kollegin muss dann immer hingehen und muss die Bilder einem Lieferanten zuweisen um den bei Späteren Verhandlungen auf die Probleme aufmerksam zu machen. Natürlich sind das nicht gerade wenig Bilder und ich wollte diese Aufgabe einfach etwas erleichtern. Dies ist mir auch gelungen in VB zu Scripten obwohl ich relativ wenig Ahnung von VB habe und mich immer nur rein Fuchse wenn ich was brauche :P

Mein Script läuft soweit gut und tut was es soll nur habe ich das Problem wenn es das Bild schon gibt.. Er kopiert es nicht und das müsste ich verhindern bzw umgehen.

Zur zeit ist es so das die Bilder einmal alle Markiert werden (Pro Artikel können es ja von einem Kunden mehrere Bilder sein) dann umbenannt werden nach der ArtikelNr. Windoof macht dann automatisch (1)(2)(3)... daraus. So wird es dann auch in den entsprechenden Ordner kopiert, der so heißt wie der Lieferant. Jetzt ist es aber so das es das Bild ja mehrmals geben kann.

Sprich das Kunde 1 den Artikel 4711-20 Reklamiert weil gebrochen oder sonst was. Nun kommt Kunde 2 mit dem diesen Artikel einige zeit später. Nun kopiert mein Script aber diese Datei NICHT da sie ja schon vorhanden ist.
Das muss ich irgendwie umgehen. Entweder per Datum oder das er die Datei automatisch eine Zahl dahinter schreibt in welcher art und weise auch immer das diese Datei eindeutig ist aber Trozdem noch die ArtikelNr dabei steht.

Also z.b 1_4711-20 2_4711-20

Zur zeit kopiere ich mit diesem Befehl:

Set myFSO = CreateObject("Scripting.FileSystemObject")
If myFSO.FileExists(qFolder & qFile) = True Then
myFSO.CopyFile qFolder & qFile, tFolder & qFile, True

Hoffe mir kann jemand helfen *biggrin.gif*

:)

 

Hallo,

warum benennst Du die Dateien nicht einfach alle um. Z. B. zusammengesetzt aus Datum, Kundennummer und einer fortlaufenden Nummer oder nur eine fortlaufende Nummer?

 

Hallo,

mit Datum und Uhrzeit z.B. so:

Code:

 

Hallo Springstil,

Schlimmer noch, nach deinem Code zu urteilen, wird die Datei kopiert und überschreibt dabei eine bereits vorhandene.

Eine ähnliche Fragestellung (bezüglich des kopierens) gab es hier und dort wird auch eine lfd. Nummer gebildet, um Überschreibungen zu vermeiden.

Ulrich

 

Das wäre ja noch besser du hast nicht zufällig grade nen Link zu dem beitrag ?

 

Hallo Springstil,
ich dachte, ich hätte den mit angegeben.

Dann nochmal:
https://www.ms-office-forum.net/foru...d.php?t=366469

Ulrich