Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Kopieren von A nach B ohne überschreiben bei vorhanden

Frage Entwicklung VB for Applications

Mitglied: kinggunta

kinggunta (Level 2) - Jetzt verbinden

19.05.2009, aktualisiert 13:42 Uhr, 4147 Aufrufe, 4 Kommentare

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?
Mitglied: LotPings
19.05.2009 um 15:30 Uhr
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

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

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
Bitte warten ..
Mitglied: bastla
19.05.2009 um 15:38 Uhr
Hallo kinggunta und LotPings!

Schematisch (unter VBS) etwa so:
01.
Datei = "Test.txt" 
02.
Quelle = "Z:\Quellordner" 
03.
Ziel = "Z:\Zielordner" 
04.
 
05.
Set fso = CreateObject("Scripting.FileSystemObject") 
06.
DateiName = fso.GetBaseName(Datei) 
07.
DateiTyp = fso.GetExtensionName(Datei) 
08.
Zusatz = "" 
09.
Nr = 1 
10.
Do While fso.FileExists(Ziel & "\" & DateiName & Zusatz & "." & DateiTyp) 
11.
    Zusatz = "(" & CStr(Nr) & ")" 
12.
    Nr = Nr + 1 
13.
Loop 
14.
 
15.
fso.CopyFile Quelle & "\" & Datei, Ziel & "\" & DateiName & Zusatz & "." & DateiTyp
Grüße
bastla

P.S.: @LotPings: Danke für die Ausnahmegenehmigung - und sorry, dass ich schon wieder Deine pädagogischen Bemühungen störe ...
Bitte warten ..
Mitglied: kinggunta
19.05.2009 um 15:46 Uhr
@bastla

Es gibt eben doch noch bastla
Verwende Express Studio 2005.

DANKE
Bitte warten ..
Mitglied: LotPings
19.05.2009 um 15:57 Uhr
Zitat von bastla:
P.S.: @LotPings: Danke für die Ausnahmegenehmigung - und sorry, dass ich schon wieder Deine pädagogischen Bemühungen störe ...

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

Gruß
LotPings
Bitte warten ..
Ähnliche Inhalte
Windows Tools
Robocopy . Datei im Zielverzeichnis nur überschreiben, wenn neuer (7)

Frage von gnrmarcel zum Thema Windows Tools ...

Batch & Shell
Powershell Schriften installieren und überschreiben (8)

Frage von zamsi7 zum Thema Batch & Shell ...

Windows 7
Script zum Überschreiben eines USB Sticks (11)

Frage von ThomasKern zum Thema Windows 7 ...

Batch & Shell
gelöst Linie mit Leer überschreiben (Batch) (3)

Frage von clragon zum Thema Batch & Shell ...

Neue Wissensbeiträge
Heiß diskutierte Inhalte
Rechtliche Fragen
gelöst Geschäftsführer Email gefaked (18)

Frage von xbast1x zum Thema Rechtliche Fragen ...

Vmware
VMware ESX - Start einer VM verhindern (16)

Frage von emeriks zum Thema Vmware ...

Vmware
gelöst Update auf ESXI 6.5 Installieren (15)

Frage von zeroblue2005 zum Thema Vmware ...

iOS
IPhone wird ferngesteuert Hacker? (15)

Frage von Akcent zum Thema iOS ...