Opening a word doc in current folder as my vbs file

[Mingas]

Please help

I would like to open a word doc that's in the same folder as my vbs...i don't want to have to specify the whole path. What I have is the following:

set word = createobject("word.application")
word.visible=true
Word.Documents.Open "C:\Whatever\Other\max.docm"


I have tried:

set word = createobject("word.application")
word.visible=true
Word.Documents.Open "max.docm" and "\max.docm" and ".\max.docm"

none work...please help

 

[guitarzan]

The Word.application object does not know where your script was run from, so you need to include a path. You can get the path the script is running from with the code below:

Set objShell = CreateObject("Wscript.Shell")
strPath = Wscript.ScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
strFolder = objFSO.GetParentFolderName(objFile) 

Set word = createobject("word.application")
word.visible=true
Word.Documents.Open strFolder & "\" & "myfile.doc"

 

[markdmac]

Another way to get the scripts current directory:

CurrentDirectory = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")

I hope that helps.

Regards,

Mark

No trees were harmed in posting this message, however a significant number of electrons were terribly inconvenienced.

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER.