Question

问题在于十四号。否则就是语法错误，（800A03EA）我对VBScript很新。

Dim StrThing, fso, f
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
If f.FileExists("Desktop\testfile") then
    StrThing=InputBox("Type your name in")
    Set f = fso.OpenTextFile("Desktop\testfile.txt", ForWriting, True)
    f.WriteLine "Hello world!" 
    f.WriteLine "Hello, " & StrThing
    Set f = fso.OpenTextFile("Desktop\testfile.txt", ForReading)
    WriteLineToFile = f.ReadAll
    StrThing=MsgBox("Hello, " & StrThing)
    StrThing=MsgBox("Goodbye, " & StrThing)
    End if
Else
    x=MsgBox("Hello")
    f.createTextFile
    StrThing=InputBox("Type your name in")
    Set f = fso.OpenTextFile("Desktop\testfile.txt", ForWriting, True)
    f.WriteLine "Hello world!" 
    f.WriteLine "Hello, " & StrThing
    Set f = fso.OpenTextFile("Desktop\testfile.txt", ForReading)
    WriteLineToFile = f.ReadAll
    StrThing=MsgBox("Hello, " & StrThing)
    StrThing=MsgBox("Goodbye, " & StrThing)
    End if

Answer 1

此处需要进行两项更改。

else

if语句开始
f.FileExists←没有为f定义对象。

修改后的代码：

Dim StrThing, fso, f
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = CreateObject("Scripting.FileSystemObject")
If f.FileExists("Desktop\testfile.txt") then
    StrThing=InputBox("Type your name in")
    Set f = fso.OpenTextFile("Desktop\testfile.txt", ForWriting, True)
    f.WriteLine "Hello world!" 
    f.WriteLine "Hello, " & StrThing
    Set f = fso.OpenTextFile("Desktop\testfile.txt", ForReading)
    WriteLineToFile = f.ReadAll
    StrThing=MsgBox("Hello, " & StrThing)
    StrThing=MsgBox("Goodbye, " & StrThing)
Else
    x=MsgBox("Hello")
    f.createTextFile
    StrThing=InputBox("Type your name in")
    Set f = fso.OpenTextFile("Desktop\testfile.txt", ForWriting, True)
    f.WriteLine "Hello world!" 
    f.WriteLine "Hello, " & StrThing
    Set f = fso.OpenTextFile("Desktop\testfile.txt", ForReading)
    WriteLineToFile = f.ReadAll
    StrThing=MsgBox("Hello, " & StrThing)
    StrThing=MsgBox("Goodbye, " & StrThing)
End if

我收到错误800A03EA与“Else”

1 个答案:

修改后的代码：