File io VB脚本更新现有文本文件中的现有编号

我相信这很简单，但我的编程技能几乎是零

我有一个文本文件，其中包含一个数字，并且始终包含一个数字，例如

1

。我需要一个VBScript来始终将

1

添加到该文本文件中的该数字，更新、保存，然后关闭。新文件应包含

2

---

下次执行脚本时，文件应该包含

3

等等

假设您指的是VBScript而不是VB.NET，那么以下是我总结的内容：

Option Explicit

Dim filename
filename = "C:\Path\To\Your\file.txt"

Dim fso, f, num

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(filename, 1) ' for reading
num = CInt(f.ReadAll)
f.Close

Set f = fso.OpenTextFile(filename, 2) ' for writing
f.Write num + 1
f.Close

---

请记住，该代码中没有错误处理。

您能澄清VB.NET或VBScript吗？请尽最大努力。就目前情况而言，您只是要求为您编写整个代码。您将事情复杂化了

Set fso=CreateObject（“Scripting.FileSystemObject”）：num=CInt（fso.OpenTextFile（WScript.Arguments.Unnamed（0））.ReadAll）：fso.OpenTextFile（WScript.Arguments.Unnamed（0），2）。Write num+1

@AnsgarWiechers:同意。我简化了我的回答，但没有达到你在评论中提到的水平。鉴于OP几乎没有编程经验，我认为稍微详细一点会更有帮助。我已经设法让这两种解决方案都起作用了。我就是不知道如何添加到当前文件中。非常感谢。@Bucks:我看你是新来的——如果某个答案给出了你想要的解决方案，请单击旁边的绿色复选框，将其标记为“已接受”。