http://dieseyer.de • all rights reserved • © 2011 v11.4

'v3.5*****************************************************
' File: DateienMitKleinbuchstaben.vbs
' Autor: dieseyer@gmx.de
' dieseyer.de
'
' Alle Dateien in einem Verzeichnis erhalten gleichen
' Dateinamen wie bisher, aber mit Kleinbuchstaben.
'*********************************************************

Option Explicit

Dim WSHShell, fso
Dim oFolders, oSubFolder, oFiles, Folder
Dim i, LaufW, Pfad, DateiX, VerzX

Set WSHShell = WScript.CreateObject("WScript.Shell")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

LaufW = Left( UCase( WScript.ScriptFullName), 2)
Pfad = LaufW & "\dieseyer.neu\scr\backup"
Pfad = LaufW & "\dieseyer.neu\scr"
if not fso.FolderExists( Pfad ) then
MsgBox UCase(Pfad) & " existiert nicht!" & vbCRLF & vbCRLF & " . . . das ist das Ende.", , WScript.ScriptName
WScript.Quit
End If

' Dateiliste an Array Łbergeben
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
i = 0
Set oFolders = fso.GetFolder( Pfad )
Set oFiles = oFolders.Files
For Each DateiX In oFiles
i = i + 1
ReDim Preserve Datei(i)
Datei(i) = DateiX.Path
Next
Set oFiles = nothing
Set oFolders = nothing

' Datei-Array - Dateien
' 1. Datei nach *.?? umbenennen
' 2. Datei nach *.* mit Kleinbuchstaben umbenennen
' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
For i = 1 to UBound( Datei )
set DateiX = fso.GetFile( Datei(i) )
DateiX.move ( Datei(i) & "-" )
set DateiX = nothing

set DateiX = fso.GetFile( Datei(i) & "-" )
DateiX.move ( LCase( Datei(i) ) )
set DateiX = nothing
Next

MsgBox "In " & Pfad & " wurden von " & i & vbCRLF & "Dateien der Dateiname in Kleinbuchstaben gešndert."

http://dieseyer.de • all rights reserved • © 2011 v11.4