[已解决]vbs代码，如何实现：绝对路径修改为相对路径？

ygqiang

[已解决]vbs代码，如何实现：绝对路径修改为相对路径？
vbs文件和2.doc文件，在同一个目录下。c:\test\2.doc修改为2.doc。
2楼代码测试可用。

1. Option Explicit
   
2. Const MSWORD_FILENAME = "c:\test\2.doc"
   
3. Sub VBMain()
   
4.   Dim wdApp, Doc
   
5.   Set wdApp = WSH.CreateObject("Word.Application")
   
6.   wdApp.Visible = False
   
7.   Set Doc = wdApp.Documents.Open(MSWORD_FILENAME)
   
8.   Doc.PrintOut
   
9.   Doc.Close
   
10.   Set Doc = Nothing
    
11.   wdApp.Visible = True
    
12.   wdApp.Quit
    
13.   Set wdApp = Nothing
    
14. End Sub
    
15. 
    
16. Call VBMain()
    
17. WSH.Quit()

复制代码

1. 
   
2. currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path
   
3. 
   
4. MsgBox "当前文件夹是 " & currentpath
   

复制代码

1. msgbox "当前文件路径是 " & wscript.ScriptFullName
   
2. set ws=CreateObject("WScript.Shell")
   
3. MsgBox "当前文件夹是 " & ws.CurrentDirectory

复制代码

1. Dim fso, scriptPath, currentDrivePath
   
2. Set fso = CreateObject("Scripting.FileSystemObject")
   
3. scriptPath = WScript.ScriptFullName
   
4. currentDrivePath = fso.GetParentFolderName(scriptPath) & ""
   
5. WScript.Echo currentDrivePath

复制代码

ppll2030

你看看这样行不行。改动在第4、5、8这位三行

1. Option Explicit
   
2. Const MSWORD_FILENAME = "2.doc"
   
3. Sub VBMain()
   
4.   Dim wdApp, Doc, ws
   
5.   set ws=CreateObject("WScript.Shell")
   
6.   Set wdApp = WSH.CreateObject("Word.Application")
   
7.   wdApp.Visible = False
   
8.   Set Doc = wdApp.Documents.Open(ws.CurrentDirectory&""&MSWORD_FILENAME)
   
9.   Doc.PrintOut
   
10.   Doc.Close
    
11.   Set Doc = Nothing
    
12.   wdApp.Visible = True
    
13.   wdApp.Quit
    
14.   Set wdApp = Nothing
    
15. End Sub
    
16. 
    
17. Call VBMain()
    
18. WSH.Quit()

复制代码

ygqiang

你看看这样行不行。改动在第4、5、8这位三行
ppll2030 发表于 2024-7-19 13:07

    谢谢，测试可用。