kinggunta
Goto Top

Kopieren von A nach B ohne überschreiben bei vorhanden

Hallo!

Ich möchte gerne folgendes umsetzen:

Ich möchte mit einem "Kopier-Tool" welches ich selbst in VB bastle, Dateien von A nach B kopieren.
Jedoch soll eine eventuell schon vorhandene Zieldatei nicht ersetzt werden sondern fortlaufend nummeriert werden.

Also wenn die Datei Brief.doc am Ziel schon vorhanden ist soll er z.b. eine weitere Datei mit Brief(1).doc machen.

Hat jemand einen TIP?

Content-ID: 116383

Url: https://administrator.de/forum/kopieren-von-a-nach-b-ohne-ueberschreiben-bei-vorhanden-116383.html

Ausgedruckt am: 23.12.2024 um 08:12 Uhr

77559
77559 19.05.2009 um 15:30:47 Uhr
Goto Top
Zitat von @kinggunta:
Hat jemand einen TIP?

Hallo kinggunta,

ich liebe ja diese selbstbeweihräuchernden Pseudonyme (schließlich hab ich selbst eines, aber wenigstens nicht soo offensichtlich.)
aber sowas als Anrede benutzen zu müssen fällt schon schwer face-wink

Eigemtlich bastelt man VB nicht - man programmiert. Die Bastler wollen oft genug andere basteln lassen. (bastla DU bist ausdrücklich nicht gemeint face-smile )

Die Aufgabenstellung ist doch klar beschrieben. Wofür brauchst du einen Tip?

Einen Tip habe ich aber doch: du solltest schon genauer bei deiner VB Version sein.
  • VBDos
  • VB1 bis 6
  • Vb.Net welches Framework / VS Studio / Express welcher Jahrgang etc.

Die Ausführung einer Funktion die ggfs. rekursiv aufgerufen werden muss, um eine freie Nummer zu finden, hängt schon von deiner Umgebung ab.

Gruß
LotPings
bastla
bastla 19.05.2009 um 15:38:28 Uhr
Goto Top
Hallo kinggunta und LotPings!

Schematisch (unter VBS) etwa so:
Datei = "Test.txt"  
Quelle = "Z:\Quellordner"  
Ziel = "Z:\Zielordner"  

Set fso = CreateObject("Scripting.FileSystemObject")  
DateiName = fso.GetBaseName(Datei)
DateiTyp = fso.GetExtensionName(Datei)
Zusatz = ""  
Nr = 1
Do While fso.FileExists(Ziel & "\" & DateiName & Zusatz & "." & DateiTyp)  
    Zusatz = "(" & CStr(Nr) & ")"  
    Nr = Nr + 1
Loop

fso.CopyFile Quelle & "\" & Datei, Ziel & "\" & DateiName & Zusatz & "." & DateiTyp  
Grüße
bastla

P.S.: @77559: Danke für die Ausnahmegenehmigung face-wink - und sorry, dass ich schon wieder Deine pädagogischen Bemühungen störe ...
kinggunta
kinggunta 19.05.2009 um 15:46:27 Uhr
Goto Top
@bastla

Es gibt eben doch noch bastla face-wink
Verwende Express Studio 2005.

DANKE
77559
77559 19.05.2009 um 15:57:34 Uhr
Goto Top
Zitat von @bastla:
P.S.: @77559: Danke für die Ausnahmegenehmigung face-wink - und sorry, dass ich schon wieder Deine pädagogischen Bemühungen störe ...

Kein Problem - und sehr geschickte Lösung mit Anfangs leerem Zusatz. face-surprise

Gruß
LotPings