用於更新現有文本文件中現有編號的VB腳本

Question

我確定這很簡單，但我的編程技能幾乎沒有。

我有一個文本文件，其中包含一個數字和總是一個數字，例如1。我需要一個VBScript始終將1添加到該文本文件中的該號碼，更新，保存，然後關閉。新文件應包含2。

下一次我執行腳本時，該文件應該包含3等等。

Answer 1

這是我張羅，假設你的意思是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 

請記住，沒有錯誤的代碼處理。