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
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, 2482 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
Heiß diskutierte Inhalte
iOS
IPhone wird ferngesteuert Hacker? (21)

Frage von Akcent zum Thema iOS ...

Vmware
VMware ESX - Start einer VM verhindern (19)

Frage von emeriks zum Thema Vmware ...

Rechtliche Fragen
gelöst Geschäftsführer Email gefaked (18)

Frage von xbast1x zum Thema Rechtliche Fragen ...