Board logo

标题: [文本处理] [已解决]vbs代码，如何实现：绝对路径修改为相对路径？ [打印本页]
作者: ygqiang    时间: 2024-7-19 10:29     标题: [已解决]vbs代码，如何实现：绝对路径修改为相对路径？

本帖最后由 ygqiang 于 2024-7-19 17:50 编辑

[已解决]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. currentpath = createobject("Scripting.FileSystemObject").GetFolder(".").Path

  2. 

  3. 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    时间: 2024-7-19 13:07

本帖最后由 ppll2030 于 2024-7-19 13:09 编辑

你看看这样行不行。改动在第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    时间: 2024-7-19 17:49

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



    谢谢，测试可用。



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2