VBS代码在线格式化美化工具

这是一款可有效实现VBS代码的格式化与美化功能的工具，可快速实现代码的格式化与排版功能，用户可点击【Beautify VBScript(ctrl-enter)】按钮，也可使用键盘Ctrl + Enter快捷键进行代码的快速格式化。欢迎需要的朋友使用。

On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
X = 0
T = True
While T
    Input = InputBox("Filename Lowercase Batch Convertor" & vbCrLf & vbCrLf & _
    "Please input the destination folder name. e.g. C:\Webmaster" & vbCrLf & vbCrLf & _
    "Note: Do NOT add '\' in the end of folder name!","FLowercase Convertor","C:\")
    If Input = "" Then
        MsgBox"Folder name is empty!",48,"Error!"
        T = True
    Else T = False
    End If
WEnd
MsgBox"All files names of " & Input & " will be converted to lowercase now...",64,"Note"
fold(Input)
MsgBox"Done! Total " & X & " file(s) were converted to lowercase.",64,"Done"
Sub fold(Path)
    Set f = fso.GetFolder(Path)
    Set rf = fso.GetFolder(Path).files
    Set fc = f.SubFolders
    For Each fff In rf
        lcf1 = LCase(fso.GetAbsolutePathName(fff))
        fso.MoveFile fff, lcf1
        X = X + 1
    Next
    For Each f1 In fc
        fold(f1)
        Set file = fso.GetFolder(f1).files
        For Each ff In file
            lcf = LCase(fso.GetAbsolutePathName(ff))
            fso.MoveFile ff,lcf
        Next
    Next
End Sub

关于在线VBScript代码格式化工具

作者：	Demon
日期：	2011/12/27
描述：	在线VBScript代码格式化工具
使用：	将您的VBScript代码复制到左边的文本框中，然后点击上方的“Beautify VBScript”按钮或者按快捷键Ctrl + Enter。
注意：	请保证您的VBScript代码是正确的，错误的代码无法被正确格式化。