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, 2481 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
Datenbanken
SQL und C-Sharp - Grid und einfache Bearbeitungsmaske (1)

Frage von Archimedes zum Thema Datenbanken ...

Windows Server
gelöst Domänen Account mit SMB Zugang für einfache Geräte (ohne Login-Möglichkeit) (2)

Frage von kpieper zum Thema Windows Server ...

VB for Applications
gelöst VBScript und OR (5)

Frage von Invisan zum Thema VB for Applications ...

VB for Applications
gelöst VbScript: ADODB.Stream: Neue Zeile einfügen (2)

Frage von BirdyB zum Thema VB for Applications ...

Neue Wissensbeiträge
Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Humor (lol)

Bester Vorschlag eines Supporttechnikers ever: APC

(15)

Erfahrungsbericht von DerWoWusste zum Thema Humor (lol) ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

Ubuntu
Nextcloud 12 Antivirus App for Files (8)

Frage von horstvogel zum Thema Ubuntu ...

Server-Hardware
gelöst Empfehlung KVM over IP Switch (8)

Frage von Androxin zum Thema Server-Hardware ...