VBS代碼在線格式化美化工具

這是一款可有效實(shí)現(xiàn)VBS代碼的格式化與美化功能的工具，可快速實(shí)現(xiàn)代碼的格式化與排版功能，用戶可點(diǎn)擊【Beautify VBScript(ctrl-enter)】按鈕，也可使用鍵盤Ctrl + Enter快捷鍵進(jìn)行代碼的快速格式化。歡迎需要的朋友使用。

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

關(guān)于在線VBScript代碼格式化工具

作者：	Demon
日期：	2011/12/27
描述：	在線VBScript代碼格式化工具
使用：	將您的VBScript代碼復(fù)制到左邊的文本框中，然后點(diǎn)擊上方的“Beautify VBScript”按鈕或者按快捷鍵Ctrl + Enter。
注意：	請(qǐng)保證您的VBScript代碼是正確的，錯(cuò)誤的代碼無法被正確格式化。