Tr4c3:為了方便在dos下使用,我把inputbox改成了args。 復制代碼代碼如下: 'Program By xiaolu 'name:file2vbs.vbs On error resume next Set Args = Wscript.Arguments If Args.length<>2 Then Wscript.Echo "Usage:" & Wscript.ScriptName &
if msgbox("文件打開錯誤!",1,"File2VBS")=2 then Wscript.quit else exit do end if loop if fname="" then Wscript.quit Set Fso=CreateObject("Scripting.FileSystemObject") Set File=fso.OpenTextFile(arg(0)&".htm",2, True) File.write Bin2Str(ss) File.close Set fso=nothing Ado.close set...
手動解決: ① 先到%SYSTEMROOT%/system32/確認下自己的wscript.exe在不在,不在的話,從其它電腦上copy過來就OK ② 注冊表 regedit 在HKEY_CLASSES_ROOT下面找到.VBS,看看默認值,改為默認的VBSFile。 ③ OK。從新運行。 2. 重新運行,彈出無法創(chuàng)建名為"WScript.Shell"的對象。 解決方案,運行一下命令: regsvr32 ...
Function GetLine Const ForReading =1, ForWriting =2 Dim fso, f, ra Set fso =CreateObject("Scripting.FileSystemObject") Set f =fso.OpenTextFile("c:\testfile.txt", ForWriting, True) f.Write "世界你好!" & vbCrLf & "VB腳本很有趣!" & vbCrLf Set f =fso.OpenTextFile("c:\testfile.txt...