Ändra till små bokstäver ?

[Akke P]

Kan man i utforskaren på ett enkelt sätt ändra till små bokstäver på en fil, t.e.x en mp3-låt, om den är namngiven endast med stora bokstäver ?

Nu markerar jag hela filen och "byter namn" på den till små bokstäver, men det tar ju evigheter om det är många filer....

 

[Anjuna Moon]

Vet inte om det finns program som ägnar sig åt sådant, det finns dock säkert som finess i flera editorer. Men här får du en skräddarsydd lösning istället.

Skapa en textfil, klipp in nedanstående kod i den och spara som en vbs-fil, ex. TillGemener.vbs

Set fs=CreateObject("Scripting.FileSystemObject")
argCount=WScript.Arguments.Count
If argCount=0 Then
   curPath= fs.GetAbsolutePathName(".")
Else
   curPath=WScript.Arguments(0)
End If
If Not fs.FolderExists(curPath) Then
   MsgBox("Mappen existerar inte!")
Else
   Set f = fs.GetFolder(curPath)
   For Each file in f.Files
       fs.MoveFile file.Path , curPath & "\" & LCase(file.Name)
   Next
End If

 

Lägg nu denna fil i den mapp med filer som skall ändras och dubbelklicka på den. Alternativt kan du köra den från kommandotolken och ange en mapp som parameter, ex. TillGemener.vbs "c:\en mapp\med filer"

Om du inte ser ändringarna direkt efter du kört scriptet, så tryck F5 för att "refresha" mappinnehållet.

 

Gör en backup av dina filer först. Koden fungerar, men jag vill inte ta ansvar för att du av misstag förlorar filer under flyttfasen.

 

[inlägget ändrat 2008-10-14 09:41:52 av Anjuna Moon]

[Akke P]

Tack så mycket !! Fungerade alldeles utmärkt.