Nombre: Nombre de carpetas y archivos a Minusculas
Descripción:
Pequeño script en Visual Basic Script, que se encarga de poner en minúsculas y remplazar los espacios por “_” a los nombre de todas las carpetas (y en su interior) y archivos de un camino dado. Siendo de esta manera la forma recomendable para los Sitios Web.
URL: http://www.mygnet.net/codigos/vbscript/archivos_y_directorios/nombre_de_carpetas_y_archivos_a_minusculas.1057
Código Fuente:
MsgBox "MinusIos - version: 1.0"+Chr(10)+Chr(10)+"Pone los nombres de las Carpetas y/o los Archivos a minúsculas,"+Chr(10)+"además sustituye los espacios por subrayado [_]; quedando de"+Chr(10)+"esta manera listos para que Apache en Linux los interpreten sin"+Chr(10)+"problema.",,"MinusIos - Bienvenida"
camino = InputBox("Camino a trabajar","MinusIos - Camino","d:tmp")
If camino<>"" Then
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
minuscula(camino)
End If
MsgBox "Chao",,"MinusIos - Despedida"
Sub minuscula(MiCamino)
Dim f, fc, fl, k
'MsgBox "Camino: ["+MiCamino+"]"
Set f = fso.GetFolder(MiCamino)
Set fc = f.SubFolders
For Each fl in fc
fl.name = Replace(LCase(fl.name)," ","_")+".bak"
fl.name = LCase(Left(fl.name, Len(fl.name)-4))
minuscula(fl.path)
Next
Set fc = f.Files
For Each fl in fc
If fl.name <> "minusios.vbs" Then
k = Replace(LCase(fl.name)," ","_")+".bak"
If (fso.FileExists(k)) Then
fso.DeleteFile(k)
End If
fl.name = k
fl.name = LCase(Left(fl.name, Len(fl.name)-4))
End If
Next
End Sub
Descargar