发老兵及海洋VBS解包工具代码

Wscript.Echo "所有文件释放完毕!"

Sub createFolder(thePath)
    Dim i
    i = Instr(thePath, "")
    Do While i > 0
        If fso.FolderExists(Left(thePath, i)) = False Then
            fso.CreateFolder(Left(thePath, i - 1))
        End If
        If InStr(Mid(thePath, i + 1), "") Then
            i = i + Instr(Mid(thePath, i + 1), "")
         Else
            i = 0
        End If
    Loop
End Sub