如何在VBS中让FSO.GetAbsolutePathName返回正斜杠格式路径？

VBS里确实没有专门的路径分隔符转换函数，但可以直接用Replace函数把反斜杠替换成正斜杠，只需要修改你代码里的ReplaceTo赋值语句就行。

修改思路 #

FSO返回的路径用的是系统默认的反斜杠\，我们只需要在拿到路径后，把所有的\替换成/：

ReplaceTo = Replace(FSO.GetAbsolutePathName("."), "\", "/")

修改后的完整代码 #

OldTextFile = ".\file.txt" 
NewTextFile = ".\file1.txt" 
ReplaceFrom = "word" 
' 新增反斜杠转正斜杠的替换逻辑
ReplaceTo = Replace(FSO.GetAbsolutePathName("."), "\", "/") 

FSO.CreateTextFile(NewTextFile, 2). _ 
Write(Replace(FSO.OpenTextFile(OldTextFile, 1).ReadAll(), _ 
ReplaceFrom, ReplaceTo, 1, -1, vbTextCompare))

说明 #

• Replace(FSO.GetAbsolutePathName("."), "\", "/")会把路径里所有的反斜杠一次性替换成正斜杠，比如C:\projects就会变成C:/projects
• 其他逻辑保持不变，依然能完成原有的文本替换功能

内容的提问来源于stack exchange，提问作者samuel