Question

我有一个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"

到

"C:\Etykieta_NC\Form"

如何在VBScript中执行此操作？

Answer 1

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

C:\
└─Etykieta_NC
  ├─Counter
  │ └─Counter.txt
  └─Form

假设您要从 Form子文件夹（而不是它）创建相对路径，路径将向上一个目录（..），然后向下Counter子树：

..\Counter\Counter.txt

Answer 2

使用GetAbsolutePathName()建立你的相对路径，这是一个简单的例子

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

创建文件txt的相对路径

2 个答案: