-1

.vbsファイルを.exeファイルにするための方法を考えています。

出来ますか?

コード:

    Option Explicit

    Dim oShell : Set oShell = WScript.CreateObject ("WScript.Shell")
    Dim FSO : set FSO = CreateObject("Scripting.FileSystemObject") 
    Dim StartTime,Elapsed 

    'msgBox(oShell.CurrentDirectory)
    'MsgBox(FSO.GetFile(Wscript.ScriptFullName).ParentFolder )
    oShell.CurrentDirectory = FSO.GetFile(Wscript.ScriptFullName).ParentFolder

    StartTime = Timer

    IF NOT oShell.run( "ParentChildLinkFinal.vbs", 1, True) = 0 then Wscript.Quit
    IF NOT oShell.run( "Parent_Child_Merge_final.vbs", 1, True) = 0 then Wscript.Quit       

    Elapsed = Timer - StartTime

    MsgBox("Total time taken to finish this task:" & Elapsed & "in Seconds")
4

1 に答える 1

1

このユーティリティで実現できます http://www.vbs2exe.com/

于 2013-01-03T12:15:29.110 に答える