Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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
Kommentar vom Moderator Biber am 03.05.2011 um 12:24:14 Uhr
Einfache Umbennung in VbScript
Set /a rgc+=1
#749
GELÖST

Einfache Umbennung in VbScript

Frage Entwicklung VB for Applications

Mitglied: FlorianVA

FlorianVA (Level 1) - Jetzt verbinden

03.05.2011, aktualisiert 12:25 Uhr, 2483 Aufrufe, 2 Kommentare

Hallo liebe Administratoren,
komme einfach nicht zum Ziel. Kann mir jemand bitte helfen wie ich zu dem Ergebnis 00001_Batch_2011-05-03_11.01.14.jpg komme .
Habe es geschafft, daß eine ein oder 2 Dateien mit dem Namen Batch_2011-05-03_11.01.14 benannt werden aber mehr aber leider auch nicht.
Vielen lieben Dank für eurer Hilfe im voraus.

Dim VarFileName
set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.Getfolder("Z:\Bilder\Archiviert\ZumSortieren\XNVIEW\Batch")

for each file in folder.Files

i=i+1 'Zähler

varFileName= year(Now()) & "-" & month(Now()) & "-" & day(Now()) & "_" 'aktuelles Datum

varFileName = varFileName & hour(Now()) & "." & minute(Now()) & "." & Second(Now()) 'aktuelle Zeit

varFileName = i & "_" & folder.Name & "_" & varFileName & "." & FileExtansion 'Datei Erweiterung soll von bisheriger Datei übernommen werden. Batch ist der Ordnername in dem die Datei liegt.

' Datein im angegeben Orndner sollten dann nach Umbenennung so aussehen.
' 00001_Batch_2011-05-03_11.01.14.jpg
' 00002_Batch_2011-05-03_11.01.15.jpg
' 00003_Batch_2011-05-03_11.01.16.bmp
' 00004_Batch_2011-05-03_11.01.17.tif
' 00005_Batch_2011-05-03_11.01.18.gif

file.Name = VarFileName

next

End Sub
Mitglied: bastla
03.05.2011 um 12:26 Uhr
Hallo FlorianVA und willkommen im Forum!

Gänzlich ungetestet:
01.
Set fso = CreateObject("Scripting.FileSystemObject") 
02.
Set Folder = fso.GetFolder("Z:\Bilder\Archiviert\ZumSortieren\XNVIEW\Batch") 
03.
 
04.
i = 100000 
05.
For Each File In Folder.Files 
06.
    i = i + 1 'Zähler 
07.
 
08.
    varFileName = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now()) & "_" 'aktuelles Datum 
09.
    varFileName = varFileName & Hour(Now()) & "." & Minute(Now()) & "." & Second(Now()) 'aktuelle Zeit 
10.
    varFileName = Right(i, 5) & "_" & Folder.Name & "_" & varFileName & "." & fso.GetExtensionName(File.Name) 
11.
 
12.
    File.Name = varFileName 
13.
Next
BTW: Die einsame Deklaration
Dim VarFileName
kannst Du einsparen - entweder alle Variablen deklarieren (und dann entsprechend mit "Option Explicit" absichern), oder gleich weglassen ...

Grüße
bastla

P.S.: "Code"-Formatierung macht gepostete Scripts besser lesbar (und lässt sich problemlos auch nachträglich einfügen) ...

[Edit] @Biber
#749
Da steht ja ein kleines Jubiläum ins Haus ...
[/Edit]
Bitte warten ..
Mitglied: FlorianVA
03.05.2011 um 12:52 Uhr
Vielen, Vielen Dank. Funktioniert Super.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

Windows 7
gelöst VBScript - HTML Probleme mit Schriftgröße (5)

Frage von MedicalAd zum Thema Windows 7 ...

Visual Studio
gelöst VBScript und WMI (Win32-NetworkAdapterConfiguration) (3)

Frage von MaxMoritz6 zum Thema Visual Studio ...

Basic
VBScript erweitern für Subfolder (8)

Frage von 132078 zum Thema Basic ...

Neue Wissensbeiträge
Windows Installation

Unorthodoxer Weg, um an einen Offline-Installer für Adobe Flash zu kommen

(8)

Tipp von beidermachtvongreyscull zum Thema Windows Installation ...

Datenschutz

Gefährdeter Datenschutz: Firefox löscht lokale Datenbanken nicht

Information von BassFishFox zum Thema Datenschutz ...

Firewall

PfSense OpenVPN beschleunigen

Tipp von Dobby zum Thema Firewall ...

Utilities

CCleaner 5.33 mit Malware infiziert

(27)

Information von SeaStorm zum Thema Utilities ...

Heiß diskutierte Inhalte
Utilities
CCleaner 5.33 mit Malware infiziert (27)

Information von SeaStorm zum Thema Utilities ...

Festplatten, SSD, Raid
gelöst Problem mit DELL 815R Server und Windows Bluescreen (24)

Frage von Leo-le zum Thema Festplatten, SSD, Raid ...

Windows Systemdateien
Windows bootet nicht mehr Fehlermeldung 0xc0000098 (19)

Frage von franzgoerlich zum Thema Windows Systemdateien ...

Windows Netzwerk
Dateien mit Intelligenz per GPO ins Programmverzeichnis (14)

Frage von erwin.t zum Thema Windows Netzwerk ...