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

Frage Entwicklung VB for Applications

Mitglied: MeiSeed

MeiSeed (Level 1) - Jetzt verbinden

15.11.2007, aktualisiert 14:44 Uhr, 3398 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
Alle Dateien in einem Ordner umbenennen
gelöst Frage von l.scheperBatch & Shell5 Kommentare

Hallo liebe Helferlein, lese schon seit geraumer Zeit mit und hab schon viele Tipps erfolgreich genutzt, vielen Dank dafür. ...

Batch & Shell
Dateien in einem Ordner Suchen, Umbenennen und Entpacken.
gelöst Frage von NopiSoulBatch & Shell20 Kommentare

Hallo Leute, Ich möchte Archive in einem Ordner suchen, deren Namen nach einem Bestimmten Schema ändern, und dann Danach ...

Batch & Shell
Ordner nach darin liegenden Dateien umbenennen
gelöst Frage von Stefanie.LuehnsdorfBatch & Shell3 Kommentare

Hallo allerseits, ich stehe vor einem Problem, für das ich bisher trotz allen Suchens und Herumprobierens keine Lösung gefunden ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 107 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
gelöst Frage von HelloWorldBatch & Shell20 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

LAN, WAN, Wireless
WLAN Reichweite erhöhen mit neuer Antenne
gelöst Frage von gdconsultLAN, WAN, Wireless8 Kommentare

Hallo, ich besitze einen TL-WN722N USB-WLAN Dongle mit einer richtigen Antenne. Ich frage mich jetzt ob man die Reichweite ...

Windows Server
Ping auf einen bestimmten Server nicht möglich
gelöst Frage von a.thierWindows Server7 Kommentare

Hallo, ich habe folgendes Problem. srv-dc1: Ping srv-nav > geht Ping srv-exchange > geht nicht srv-exchange: Ping srv-dc1 > ...