Top-Themen

Aktuelle Themen (A bis Z)

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

Problem beim Script das eine Datei in ein anderen ordner kopiert und umbenennen soll

Mitglied: MeiSeed

MeiSeed (Level 1) - Jetzt verbinden

15.11.2007, aktualisiert 14:44 Uhr, 3420 Aufrufe, 3 Kommentare

HI @ all,

ich hab da ein Script mit dem ich Datei(en) in ein anderen Ordner kopiere

und jetzt brauch ich da noch ein funktion die die Datei dann umbenennt und zwar soll an den Namen dann das aktuelle Datum drangegängt werden

hier mal das Script

01.
Set fso = CreateObject("Scripting.FileSystemObject")
02.
Set f1 = fso.GetFile("c:\test1\1.zip")
03.
f1.copy ("c:\test2\")


Die Datei 1.zip wird jetzt inden Ordner test2 kopiert das geht auch und jetzt soll die Datei in dem test2 Ordner nicht 1.zip heißen sondern

aus 1.zip soll dann 1_2007-11-15_11:37.zip werden.

Wie kann ich das jetzt realiesieren.


Gruß
MeiSeed
Mitglied: bastla
15.11.2007 um 12:22 Uhr
Hallo MeiSeed!

Vorweg zwei Anmerkungen:
  • Auch wenn das Script nur zu Testzwecken gedacht ist, solltest Du dennoch die Dateinamen/-pfade (zB "c:\test2\") nicht als Konstante verwenden, sondern besser in eine Variable stellen - damit kannst Du diesbezügliche Änderungen an nur einer Stelle im Code durchführen.
  • Einen Dateinamen mit einem enthaltenen ":" kann ich wirklich nicht empfehlen (daher ersetze ich diesen in meinem Beispiel durch einen ".").

01.
strSourceFile = "c:\test1\1.zip"
02.
strTargetFolder = "c:\test2"
03.
 
04.
Set fso = CreateObject("Scripting.FileSystemObject")
05.
 
06.
dtNow = Now 'Zeitpunkt festhalten und ...
07.
'... dafür formatierten Timestamp erstellen
08.
strTimestamp = Year(dtNow) & "-" & Month(dtNow) & "-" & Day(dtNow) & "_" & _
09.
	Replace(FormatDateTime(dtNow, vbShortTime), ":", ".")
10.
 
11.
Set f1 = fso.GetFile(strSourceFile)
12.
 
13.
strExt = fso.GetExtensionName(f1.Name) 'Dateityp auslesen
14.
'Dateityp (inkl "." davor) aus dem Namen entfernen, Timestamp und Dateityp daran anfügen
15.
strFileNameNew = Left(f1.Name, Len(f1.Name) - Len(strExt) - 1) & "_" & strTimestamp & "." & strExt
16.
 
17.
'Zielangabe mit vollem Pfad erstellen 
18.
f1.Copy ( strTargetFolder & "\" & strFileNameNew)
Grüße
bastla
Bitte warten ..
Mitglied: MeiSeed
15.11.2007 um 13:39 Uhr
Danke dir bastla

das du mir so schnell geholfen hast.

gruß
MeiSeed
Bitte warten ..
Mitglied: bastla
15.11.2007 um 14:44 Uhr
Hallo MeiSeed!

wenn ich mehrere ordner kleichzeitig kopieren will ...
... stellt sich zunächst die Frage, ob diese Ordner immer gleich bleiben oder Du sie ohnehin irgendwie (und sei es per Eingabe/Auswahl durch den Benutzer) ermitteln musst. Im ersten Fall könntest Du folgende Schleife verwenden:
01.
arrOrdner = Array( _
02.
	"c:\test1", _
03.
	"c:\test2", _
04.
	...
05.
	...
06.
	...
07.
	"d:\KeinTest")
08.
 
09.
For Each strOrdner in arrOrdner
10.
	objOrdner = fso.GetFolder(strOrdner)
11.
	...
12.
	...
13.
	...
14.
Next
Natürlich (wenn auch weniger übersichtlich) könntest Du die Ordner auch in eine Zeile schreiben:
01.
arrOrdner = Array("c:\test1", "c:\test2", ..., ..., ..., "d:\KeinTest")
Auch in den anderen Fällen läuft es auf die Verwendung einer Schleife (zB zum Auslesen aus einer Textdatei) hinaus - mehrere Variable zu verwenden, wenn Du ja eigentlich immer den gleichen Ablauf hast, ergäbe dabei keinen Sinn.

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Batch & Shell
Xcopy-script kopiert nur 1 datei?
gelöst Frage von f0rml0sBatch & Shell2 Kommentare

hey ich versuche gerade mit einem script dateien von einem unc pfad zum anderen zu kopierenleider kopiert das script ...

Batch & Shell

Script welches Datei kopiert und Übertragungsgeschwindigkeit und Zeit misst

Frage von ALucaKBatch & Shell3 Kommentare

Hallo zusammen Wir haben einige Probleme mit unserer Telefonanlage und ich habe nun folgenden Auftrag erhalten. Ein Script schreiben, ...

Batch & Shell

Nach xcopy feststellen, ob Datei kopiert wurde oder nicht

gelöst Frage von Scar61Batch & Shell9 Kommentare

Hallo zusammen, in einem Skript wird eine Datei nur dann kopiert, wenn sie in der Quelle neuer ist als ...

Batch & Shell

Script zum XML Datei Umschreiben

Frage von cberndtBatch & Shell12 Kommentare

Guten Tag. Ich habe folgendes Problem. Ich habe eine XML Datei mit meinen Gutscheincodes sowie weiter Daten aus meiner ...

Neue Wissensbeiträge
Humor (lol)
Administrator.de Perlen
Tipp von DerWindowsFreak2 vor 7 StundenHumor (lol)2 Kommentare

Hallo, Heute beim stöbern auf dieser Seite bin auf folgenden Thread aus dem Jahre 2006 gestossen: Was meint ihr? ...

Erkennung und -Abwehr
OpenSSH-Backdoor Malware erkennen
Tipp von Frank vor 1 TagErkennung und -Abwehr

Sicherheitsforscher von Eset haben 21 Malware-Familien untersucht. Die Malware soll Hintertüren via OpenSSH bereitstellen, so dass Angreifer Fernzugriff auf ...

iOS
WatchChat für Whatsapp
Tipp von Criemo vor 4 TageniOS5 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor!
Tipp von Criemo vor 4 TageniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Heiß diskutierte Inhalte
Server-Hardware
WS 2016 Essentials Hardware
Frage von ChefknechtServer-Hardware23 Kommentare

Moin welche Hardware würdet ihr empfehlen? Dell Poweredge HP Proliant Fujitsu Ich bin total konfus was nun nötig ist, ...

Festplatten, SSD, Raid
SSD zeigt falsche Werte
Frage von karl2014Festplatten, SSD, Raid23 Kommentare

Ich habe ein Problem mit der SSD in meinem Laptop mit Windows 10. Es ist eine 1Tb Platte die ...

Windows Server
Welche Option fürs Windows Server Installations besser
Frage von backitWindows Server20 Kommentare

Hi Zusammen, ich werde unserer AD (SBS 2011) und Exchange 2010 Servern auf neuen physikalischen Server umziehen. ich habe ...

Windows Update
Fehler bei Updates über WSUS
Frage von Hendrik2586Windows Update19 Kommentare

Guten Tag liebe Kolleginen und Kollegen, lang lang ist meine letzte Anfrage her. Hier etwas das mich nun schon ...