Vbscript 创建文件txt的相对路径

我有一个VBScript，按下按钮后读取并记录txt文件：

Set myFSO = CreateObject("Scripting.FileSystemObject")
Licznik_ID = myFSO.OpenTextFile("C:\Etykieta_NC\Counter\Counter.txt").ReadAll
Licznik_ID = Licznik_ID + 1
myFSO.OpenTextFile("C:\Etykieta_NC\Counter\Counter.txt",2,True).Write(Licznik_ID)

我想创建文件的相对路径

"C:\Etykieta_NC\Counter\Counter.txt"

到

---

如何在VBScript中执行此操作？

文件系统结构的相关部分如下所示：

C:\
└─北卡罗来纳州
├─柜台
│ └─Counter.txt
└─形式

假设您想从

表单

子文件夹（而不是到它）创建一个相对路径，该路径将向上（

。

）一个目录，然后向下进入

计数器

子树：

。\Counter\Counter.txt

用于构建相对路径，下面是一个快速示例

Option Explicit
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
Dim items: items = Array("c:", "c:\test", "c:test", "c:..\Counter")
Dim item, path
For Each item In items
  path = fso.GetAbsolutePathName(item)
  WScript.Echo "Test: PathSpec = " & item & ", Result = " & path
Next

---

到“C:\Etykieta\u NC\Form”，但相对于什么？可能重复的

Option Explicit
Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
Dim items: items = Array("c:", "c:\test", "c:test", "c:..\Counter")
Dim item, path
For Each item In items
  path = fso.GetAbsolutePathName(item)
  WScript.Echo "Test: PathSpec = " & item & ", Result = " & path
Next