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