'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."